

o 

o 

o 

C) 


c 

C' 

c 



MMEXEC 


PAGE 


DATEi 01/27/99 


000 1 

OQ.O 2 



DC 03 ■ 



000 4 



000 5 



000 7 



0 0 0 8 

, 


0009 


Jf. 

0010 



QQli . 



0012 



0013 



0014 



0015 . 


Jit 

0016 ' ■ 


Jf. 

0017 



0018 



0019 


* 

0020 



0021 



0023 



0 0 24 



0025 



0 0,2 7 

0 0 03 


00 2 8 

0 023 


00 29 

Q0B5 


003 0 

0 OEA 


00 3 1 

OOEF 


0G32 

OOFh 


0 03 5 



0 0,3 6 


Jf. 

0 0 37 



D0:'3 8 

0039 

0040 

0 042. 



0043'. 


Jf 

004'4 .. 



0 0,4 5. 

0046 

0047 


NAM MHEXEG ■ ' OECK-ID Mpl MSOS 5.0 

EXECUTIVE FOR MASS. MEMORY REST DENT.^I/0 DRIVERS 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
shale SYSTEMS^Om LA JOLLA, CALIFORNIA 

COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS ROUTINE IS THE CORE . RESIDENT' INTERFACE 
FOR ALL I/O DRIVERS WHICH RESIDENT ON 
MASS NEMORYi 

i ? internal BUFFERS. 
THE" I/O- DRIVERS ARE. READ '.INTO .THE BUFFER AREA 
WHEN THEY HAVE I/O JO PERFORM, OR QUEuls THE 
□ RIVER INTERNALLY WHEN NO.. BUFFER. IS AVAILABLE. 

THE routine may ,BE ENTERED AT A ^^Y. PRIORITY LEVEL 
THE LEVEL IS AL WAYS CORRECTED , IF REQUIRED, 

,TO THE OPERATING LEVEL OF THE PROGRAM. 


LOCORE EQUS 


EQU , LPMSK (3 ) 

EQU 0NEBITI$23) 
EQU AFNR($B51 
EQU ADISP(i;EA) 
EQU PRILVLLSEF) 
EQU AM0NI{$F4) 


ENTRY POINTS 

ENT HASDRV, MASEXT ,MASCON,MASERR 
ENT MAS3D0 
ENT RELBYQ 


■EXTERNALS 

EXT ALTOEV, LOG! A 
EXT LOG • 

EXT 3UFF,BUFFE . 


BUFFERS FOR DRIVERS 


MuiaOUOE 
MQIuQ'QOS 
' . MaiBOOOA 
M Jlu u 005 


'.MO 10 0 00 7 
: MG 10 00 0 8 
'.vMOlO G 0G9 
M(j lu 0 010 
.. MOlOOOll 
■..Moioaoia 
' MOIO’0 013 
. MulO'OQlL 
. M010 0 015 
MG1DQ016 
M010QQ17 
'M0 10 0 018 
M0100019 
M01G0020 
MiilOuOZl 


MQIOO 023 
MulQ a 024 
M01Q0 025 

MG100027 
MOIOO 028 
M0i0flu29 
MOlOOuSG 
M0100031 
M010G032 


M01C0035 
'MOIOO 036 
M01G0 03 7 
MOlOaO'38 
MO 10 0 039 
HG100Q40 


MO. 100 042 
Ma 10 0 04 3 
MGIQO‘Q.4'4 
Muie Q 045 
MO 100 046 
MGlOu 047 


HHEXEC PAGE 2 OATEJ u 1/27/99 


0 0 a;9 
0 0 5,0. 


^ . ... ' MO 10 0 049 

^ ... .- PHYSICAL DEV.ICE TABLE EQUS M010Du5G 

0 0 51 

, Q:Q0 5 . 



M0100051 

00 52 

' . EQU 

ELU(5) 

M0i00a52 

0053 

' 00 07 

EQU 

EWES (7.) 

MO 10 0 05 3 

Ou 5 A 1 

0 0 08 

EQU 

EREQST(8) . 

>10 10 0 054 

0055 ■ 

00 09 

EQU 

ESTATlCg) . . 

M3iQQ055 

005 6 

OOOO 

EQU 

MASLGN(13) 

MO 10 0 056: 

0057 

0 0 0£ 

EQU 

MASSEC( 14) 

■'M0100Q57 

0 05 9 
005 0 


^ , 

^ INTERNAL EQUS 

■HOl'Q.pO'5 9 
; ’ MO 10 0 u.o C 

0051 

0062 

DOID 

♦ 

EQU ' 

ERCOOEC 29) 

. MO 10 0 061 
: - , M01Qa062 

0063 

0 0 48 

EQU 

FDDPTH( 72) 

FDD PHYSICAL DEVICE TABLE THREAD ... . M01GG:063 

M0,10Q'O64 

0 064 

0 0 08 

EQU 

OPLVL (8 ) 

0065 

00 03 

EQU 

MSK'BNM( LPMSK) 

, .. MOlO 0 065 

005 6 

. . 0033 

SECNUM EQU 

SECNUM{51) 

USEABLE SECTOR CMT IN WORD-AODR BUFFR; 132^530 

0057 

0 0 06 

EQU 

SELCTF( 06) 

M0100066 

0068 

0 0 44 

EQU 

118335(68) 

MfllOO 057 



HMEXEC 


PAGE 3 


DATEt 01/27/99 


Q07Q 
007 1 
0C72 
00 7 3 
0 0 7 4 
0Q7S 
00 7 6 
0Q7 7 


POGOfl 
PQOOl 
P0002 • 
P-0fl03.^ 
P0 0 0 4' 
PO 00 5“ 
P0 0 0;6“ 
POD07 ■ 


40FF 
585B 
18 05 
54F4 
52F8 
D 0 07 
IAEA 
40FF 


MASDRV 


SAMiyi 


STQ-* I 
RTJ’^. LEVLIT 
JMP-> SAMLVl . ■■ 

• RTJ- ($F4) .. . 

ADC S52FO+OPL\/L 
add: SAMLVl 
JMP- (SEA) 

STQ- I 






^* * **!»*.>!■ 




007 8 

ROOD 8 

5000 ■ 

- RTJ^ 

FINOIT ^ 


0079. 

PD009 

0161 

SQP 

1 

o 

,00 8 0' 

PGOGA 

1811 

JMP» 

NOTIN 

• GO 8 1 

PGOQB 

CAOO 

LDA 

BFSTAT, Q 


0082 

POOOC 

POOOD 

00 78 
013C 

SAM 

EXIT 


0083 

POOOE 

0115 

. - SAN 

TAGY 

V..' 

008 4 

PODGE 

DA 0 0 - . 

IN . RAO - 

BFSTAT, Q 


008 5 

POOiO 

POOH 

00 74 - 
COFF^ 

GOTOIT LDA- 

I 


, 008 6- 

P0012 

5AQ0 • 

. STA 

BUFPDT, Q 


0087 

P0013 

PD014 

0 0 73 
C4FF 

TAGY LDA- 

(I) 


0083 
Q'Q8 9 


P0015 

P0016 


009 0- P0017' 
009,1 ' P0018- 

009- 2 P0 019: 
0G9'3 POaiA' 
0094 PQOIB 

■ROOIC 
0 0. 9-5 -PO'OIO 
■. PDOIE 
00.9 6 POOIF 
0097 P002Q 

009,8 P0021 
0099. P0022, 

010- O’ PG023 
0101 P,0u24 


0102 

010 3 
0104 
010,5 
0106 

0107 

0108 
0109 

011 G 
Dili 


PO 025 

PQ026 

PO 027 

PG028 

P0029-- 

P002A- 

P002B- 

P0 0 2C 

P002D 

P0 02E 

P002F 

P0030 


0500 
6802 
54F4 .. 
520A ■ 
0113 P 
14EA 
E800 ^ 

0 0 75 

4800 

006C. 

CA65 

0105 

5000 
CA'62 
0102. 
1800 
0 OCO 
5800 
00F8 
OAFE 
6A5B - 
COFF 
6A5B 
CIQE • 
6A5B ■■ 
Cl OD 
6808 
40FF 


ORVLVL 

EXIT 

NOTIN 


II N , 

STA^ 

RTJ-= 

NUN • 

AD.D ' 

JHP- 

LDQ- 


LDA^ 

SAZ 


.DRVLVL 
(AMONI) 
$520 A 
STRTUP 
(ADIS F) 
NXTBUF 

BUFNUM 

8F3TAT, Q 
GOTl 


GOTl . 


•RTJ^ .SWITCH 
LDA^^ 8FSTAT, Q 
SAZ GOTl 
JMP QUEIT 

RTJ CHECKL 

ENA - 

STA^^ BF5TAT, Q 
LDA- I 

STA^ 8UFPDT,Q 
LDA- MASSEC^I 
STA». OGUPNT, Q 
IDA- MAS:LGN,I 
STA» TEMP 
STQ- I 


INITIATOR FOR MM DRIVERS 
SET LEVEL F OR -OPERATION 
SAME.-LEVEL 
HONI.'CALL 

SCHEDULE AT PROPER LEVEL 

CALL DISPATCHER 
POT -TO I 

FIND IF IN CORE ALREADY 

STATUS OF DRIVER, Q = INDEX OF BUFFER 0 
IT IS COMING, NOT THERE YET, EXIT 
IN CORE Q = BUFFER INDEX 


UPDATE RECORD OF LAST POT USED 


SCHEDULE 'STARTER 
SCHEDULE REQUEST, 


AT DRIVER .'LEVEL : 

Q = BUFFER INDEX 



EXIT 4 

INITIALIZE INDEX 


GET BUFFER .STATUS 
INACTIVE, CAN USE 


SWITCH 

BUFFER STATUS 
THIS ONE OPEN 


CHECK LENGTH 


SET COMING 
SAVE -PDT 'address 

SAVE M-ASS MEMORY ADDRESS OCCUPANT 
LENGTH^ 

TEMP, NO WORDS 
INDEX TO I 



MuluuG69 
MQIOO 07 0 
'.HQ 10 0 0.71 
:;N0 10.0 07 2 
.,;m010 0 073 
. i MO 10 0 07 4 
'MQ 13 0 07 5 
' M01G0Q76 


Mi]ia 0 07 7 
M01UU078 
MO 10 0 07 9 
1 M0100080 

M0100Q81 
, ' M0100082 

H0100083 

Mu100Q84 

M0100085 

' MO 10 0 08 6 
M0100087 
M0100088 
M01Q0089 
MQ10'GQ30 
Moi.aoa9i 

HO 10 0 092 
M0100093 

H0 100)394 

MQ100095 

M010Q096 


M9 10 0097 
M01QOG98' 
MG 10 0 099 
MO 10 0 iu 0 

MOIOOIOI 

MOIO'GIGB 
MO ID 010 3 
M0100104 
M010G105 
Mu 10 0 10 b 
MO 10 010 7 
M0100108 
M0100109 
Ml) 10 0 110 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


MHEXEC 


date: Oi/27/99 


0112 
0113 
G1 1 4 ■ 
Qll5v 
0116 ‘ 
0117 '' 

0118 ' • 
0119 
012 D ; 
0121 
0122 ' 
012 -3 ■ 

0124 

0125 

0126 ■ 

012 7" 
012 - 8 " 
0129- 
013'C" 
0131. 

013 2-' 
01337 

013 4-', 
0135" 

0136 

0137 - 
Q13'8'."" 

0139 

0140 

0141 

0142 

0143 

0144 

014 5, 


P0031 
PD032 
PQ033 
P 0 0 3 4 
P0035 
PQ036 
P0037 

-P0038 

P0039 

P003A 

P003B 

P003C 

P 0^0 3D 

P'8'Q'3E ‘ 

PQ03F . 

P0D40 ^ 

PQ041 ' 

P0 042'- 

P0043' 

PG044 

P0045 

'P0046-- 

P0047 

P0048 ‘ 

P0G49 

-PQ04A" 

P004B' 

P0fl4C 

PG04D 

P004E 

PG0 4F 

P0G50 

PQG51 

PQQ52 


295A 
8958 
69,61 
E95E 
6A OD 
CO 0 0 
0 0 0 0 
00 37 P 
6 A 0 9 ■ 

C9 4F 
6A0A 
1A:0 1 
54 F4 
48F3 
■00 65 P" 
OQOO * 

0 8 G 2 T- 
00 0 0 
00 00 " 
00 0 0 ./ ■ 

0 0 0 0 . ' 
180 A" 
54F4. •• 
48 F8 
0 0 67 P. 
GOOD 
08G2 - 

OOQQ 
0000 
G 0 C 0 
CO 00 
EOFF 

50 00 
48 40 
14EA 


MUi^ sign, I 

ADD^ 3UFADR, I v 
STA^ BUF3TR, I • . . 
LDQ» INCRMT,! ■ 

, STA^ STARliQ 
LOA =NQ 

TEMP .EQU .T;EMR{^^-1) 
STA» ■M1,Q = 

■LOA’^ OCUPNT, I. 

, STA» MMlrQ 

JMP^ REA,Ol'.Gl - ", 
READ!, RTJ- OAHONI) ■ 

" ADC -SAeFO-^-aPLVL 

,,v. AOC ,'ROCHP 
, , ,■ NUM 0 , 

^ • " NUM -'$602 
N1 , NUM 0 . 

STAR!, NUM , 0 

HUM G . 

HMl NUM "Q 

JMP^-SWIGUM . 
READ2 RTJ-' iAMDNl) 

■■ AOC $48FO->-OPLVL 

ADC"i RICHP 
. NUM- 0 

' , . NUM , $8C2' 

N2 . NUM '. 0 ■' 

STAR2 NUM' 0 

• NUM O' 

MM2 . HUM 0 

SWICUH Loa- I 


^ 0 , 0 R ;-i ' , , 

TO GETvSTART:,OF^.ORIVER .. . 

DETER HI-NE WHICH FREAD CALL 
STARTING ADDRESS 


STORE NO WORDS 
MM ADDRESS . 


EREAD . 

iCGOMPLET'ION,., 

.tHREADr 

■ LIB. UNIT- IN LOCORE 
: NO WORDS 
STARTING ADDRESS 
MSB 
LSB 


FREAD. , 

COMPLETION 
THREAD .' 

LIB. UNIT'.'. , 

NO WORDS 

STARTING ADDRESS 
MSB- " ' , - , . 

LSB 

RESTORE BUFFER INDEX 


RTJ4 SWITCH 
SIQ^^ NXTBUF 
JMP- (ADISF) 


PROBABLE NEXT BUFFER TO USE 
EXIT 


MO 10 0111 
M0100112 
„'M0 10 0113 
,.Mu 10 01.14 

■ MO 13 0115 
MO ID Oil 6 

■ MO 10 Oil 7 
M3 13 uilj 
MQIGO 119 
MO 10 012 0 
HG 10 0121 
M010.Q122 
M0100123 
M3 100124 

. MfliO 012,5 
MQ'100126 
M01G0127 
M0130128 
M0130129 
MQ1G,G130 
MG 10 0131 
M01D0132 
M0100133 
MOIGG 134 
M0100135 
MulOQ-136 
M0100137 
. MOIQD 138 
H0100139 
'MO 10 0140 
M0100141 


H,01u0142 

M0100143 

M310G144 



V„ 014 7 
’ 0148 ' 

if. 

SWITCH BUFFER 

SUBROUTINE .. 


0149 

^ , . 

INDEX IN Q ■ 

■ '"'1 : ■ ‘ ‘ . 


0150 ■■ ■ 


INDEX IN Q 



.. 0151 . 


ACGIFFE.RENCE 

WITH 'Current oriv-er 


0152. PD053 0113 

. SAN 

NOTHIS 

NO HA TCH 


0153 P0054 4836 EXTEND STQ^ BUFNUM 

0154 P0055 0400 EIN 0 

^ ^ 

015 6 POO 56 IQO'O JMP^ (FlNOIl 

ajL L * ♦ ^ ^ ^ ^ ^ ^ 

0156 P0057 50C0 NOTHIS RTJ- SWITCH 


4836 

0400 


EXTEND, 


STQ^ 

EIN 


BUFNUM 

a 


JMP^ (Ft NO IT) 


RETURN caller 


M3100146 
MD10.G147 
MD100148 
Mai00l49 
MO 100 150 
M0100151 
M010Q152 
M0100153 


M310G154 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


H 0100155 


MMEXEC 


date; Gl/27/99' 


0157 -R0058 ,0101 

» *• U p » 4F- » JJ. ,1^ JSf. V 

015 8' 'PO 059 10 0 0 
0159;-'P0 05A OCFF 

0160 P005B 18F8 

0161 
0162 
0163 


P0 05C 
P005D 
P0 05E 
P0Q6F’ 
P0Q.6i} 
P 0 0.6-1 
P0 062 
P0063 
P0064 


- 0 0 0 0 
;''0 5Q0 
'■•EOFF 
-GO EF 
■.‘0 9F7. 
0101 
D8F9‘ 
0 400 
1CF7 


SAZ: ALLCHK 

'''’ jMP-» 'LOOPl 
ALLCHK- ENQ .-fl 

■ JMP^'EXTFND 


ALL HAVE SEEN CHECK 


ON&'MORE- ' 

NO ’FIND IN BUFFERS, :N0T IN COR 


CORRECr PRICRITV -LEVEL IF NECESSARY 


LEVLIT NUM 
II N 
LDQ- 
■ LDA- 
INA 
SAZ 
RAO^ 

LEVLRT EIN 
JMP» 


PRILVL 
-OPLVL , 
LEVLRT . 
LEVLIT 
0 

(LEVLIT ) 


ENTRY 

POT ADDRESS . ' ' . 

current; SYSTEH. -LEVEL. 

SAME -f^RIGRI-TY ' 

NOT same, go TO' SCHED CALL 

RETURN 


P0065. 
;P0066- 
P0067 
PQ068 
.PuQ69", 
PQQ6A- 
■■‘P0-Q68- 
P&06G 
P006D" 
PO D6E 
P0Q6F- 
P0 07,0' 
P0 071’ 
P0Q7-2 
PCI 073 
PQ074 
P0 075- 
PC 0-76 
POO 7-7 
PG078 
P0079 
P0 07A 
P-a 07 B- 
■P0 07G. 
P0Q7D- 
- P0Q7E ■ 
PflOJF 
PQ080 
P0081 
P0082 


OAOO 
1802 
-OAOl 
0175 
0 822 
GAIC 
60FF 
-OA18 
18 0 0 
FFAQ 
0 822 
GA16 
60FF 
OAOO 
6A15 
6A10i 
54B5 - 
OBOO 
C1G9 
B032 
6109 
El 05- 
OF A6- 
QAIO" 
0 8 32.^ 
5 4 0 a 
7FFF 
54F4 
52F8 
7FFF 


ROCMP ENA 0 ■ 

- ' JHP^-RlCMP+1 
RICMP.- , ENA -1 . 

SQM 'BA3XFR 

■ ■- TRA ..Q ■ 

LOA^- BUFPOT, Q . 
ST A-.' -I . ■ , 

■ ■- RAO^-' BFSTAT, Q 

JMP IN-- 


BADXFR TRA 
LOA^ 
ST A-.. 
ENA - 

- : STA^ 

- . r. ; STA^ 

- RTJ-- 

'.^NOP - 

'•LOA'~.>-' 

EOR- 

STA- 

LOQ- 

. . . MQLS 
ENA 

- AAQ 

■ RTJ.+ - 


-Q 

8UFPDT, Q 

M-- 
- 0 ' 

OCUPNT,Q 
BFSTAT, Q 
- (Af NR) , 

0.. 

■'ESTAT.1,1 
ONEBITi-15: 
ESTATI, I. 
E-LU,I 

:-6 ■ 

vERCODE 

.Q.v 

■LOG . 


RTJ- (AMONI) . 
ADC S52FO+OPLVL 
AOC ALTDEV 


COMPLETION FOR Q 

COMPLETION FOR 1 
Q MINUS FOR I/O ERROR 
NO ERROR - ■= 

RESTORE ROT ADDRESS, 

IN AN INACTIVE STATE 


FAILED TRANSFER,.. 

RES TORE, -.POT.. ADDRESS 
MAKE UNOCCUPIED;,' 

■FIND NEXT REQUEST, SEJ;, UP POT 

SET ERROR, .BIT ; 

LOGICAL-UNIT 

ERRDRl CODE- ' ' 

TOTAL CODE IN Q ,FOR ALTDEV 
GO LOG ERROR 

SCHEDULE , 

AT CURRENT LEVEL. 

ALTERNATE DEVICE; HA NOLER 


G204 


m ■ 


MO lu 0 15 6 

Q 

MO. 10015,7 


MO 10 015 8 


Mu 10 0 159 

; 0 

MulGOl&O 



MGlOOlol 

MU1GU162 


MOIOOIdh- 


MO 10 016 5 ’ ' -■ 


MO 10 016 6 


MO 10 016 7 

; 0 

MQ1G0168 


M01.0 0169 


MO 10 017 0 


M010D171 

: 0 

Mflli]ul72 



MO 10:0174 
M0100175 
M010Q17 6 
HaiGul77 
M010017S 
M0100179 
MO 10 0 18 0 
M0100181 
MuluOiaZ 


Si,.- 

o 

o 


M010Q133 
MO 1C 018 4 
M01u0i85 
MO 10 016 6 
MOIQOISF 
MOiOO-188 
M0iufli89 
MOiO 0190 
H01U0191 
H0100192 
, M0i00i93 
MQ1D0194 
M0100195 
M0100196 
MO IQ 0 197 
MO 100198 

M010Q199 
M01CG200 
MO 10 0 201 

MOIDQ 203 


O 

Q 

O 

O 

O 

O 

O 

C 



HMEXEC 


PAGE 6 

OATEi Qi/27/99 


V--' 

C) 

02G5 • ■ 

V- . 

CONTINJE AS IF EXIT FROM DRIVER , 

' HQ130204 

o 

w . , 

0206 ■ ' 


FIND 

ANY WAITING DRIVERS 

MO 10 0 20 5 


020 7 





MG iu 0 20 6 



02C8 P0083 1824 


JMP» 

MASEXT 


M0100207 


O 

0210 





MO iO 0 20 9 

o 


0211 , . 

* 

WORKING AREA 


' : MO 10 D 210 


o 

0212 





M010 0 211 

^ o 

021 4 'P0084 0 000. 

BFSTAT 

MUM 

0 

BUFFER STATUS- Q = INACTIVE 

' HO 10 0 21 3 



■021.5 P0065 0 0,00 

, 

MUM 

0 

1 =,,, COMING OR ACTIVE 

H0100 214 


C) " 

0217 PC086. 0000 

BUFPOT 

ADC 

' 0,0 

POT FOR.' RESPECTIVE BUFFER V" ' 

' ■'■M01C0216 - ' 

o 


PG087 0000 

- 






... 

•s^ 

.■ 0219 P0Q,88 0002 

< OCUPNIT 

BZS 

OCDPNT(2) 

■MM ADDRESS OF DRIVER IN BUFFER 

■- N010u218 

o 


- .0221 P008A 0 0 00 

BUFNUM 

NUN 

0 

BUFFER BEING PROCESSED, Q-1 

Mul0022Q 


o 

0223 .P0088 GOGQ 

SIGN 

MUM 

0,-1 •. 

^ LENGTH + BUFADR = START OF DRIVER 

■ M0100222 

o 

P008C FFFE 

' • ■ ■ ■ ' • 





0225 POOSO 7FFF 

X ' BUFA3R 

AOG. 

8UF.F ' 

BUFFER ADDRESSES, 

^ ■:- HO 10 0 22 4 


C; 

. 0,22 6 . P0 08 E " 7FFF 

X.. 

ADC' 

8UFFE 

SEE -SIGN- . 

, MO 10 0,22 5 

o 

0223 P0Q8F 0 0 0 0 

'■',’nxtque 

MUM 

0 

NEXT QUE SLOT 

MO IG' 0,22 7 



0229' P009G OOOQ 

NXTXGT 

MUM 

0 ■ . 

■ NEXT TO EXECUTE. . . 

MO 10 0228 


O. ; 

0231-.P0 091 0 0 00 

NXT8UF 

MUM 

0 

NEXT DUFFER TO USE, Q-i 

MO 10 0 230 

; O 


0233'' P0092 GOOD 

INCRMT 

AOC 

0 ,REA02-REA01 

. INCREMENT TO PROPER READ GALL‘ 

M010Q232 


■'0 , 

P0 09 3 GOO A 






C) 


0235 P0094 QQ8D 

X BUFSTP 

ADC 

buff, 

START OF DRIVER 

' MQia0234 



PQ095 00 00' 







Q: 

. 0237-.PG096 0008 

QUE : 

BZS 

QUE (8) 

POT ADDRESSES OF WAITING DRIVERS, 

MO IQ 0 23 6 

o 


0239 P009E. 00 08 

aUEHM 

BZS 

QUEHH(8'i' 

MM ADDRESS OF POT IN QUE 

M0100238 


o-\ 

024 0 



• , 


M010Q239 

/ 

0242, . , . , ' 

^ . ] 




N010 0 2‘+l 



0'243 , ■.■ ■ ■ 


RELEASE BUFFER OF 

FDT IN — Q-t, USED BY AOEV 

. ‘f. HQ10 0.242' 


o 

0244 





MOIO'0 243 

o 

. 0245 P00A6 40FF 

RELBYQ 

STQ- 

I . ^ 

SAVE Q FOR RELEASE 

M0130244 


0247 

jf 

DRIVERS .EXIT' H^Re' 

UHEN THEY HAVE SERVICEI) 

M010 0 246 


o 

0248 

Sf. 

ALL . 

REQUESTS OH' ALL LOGICAL . UNITS- THEY CONTROL 

MG100247 

o 

yj 

„ 02 49 . 



• ' 1 


MG 10 0 248 


0250 


I — 

CONTAINS POT. 

ADDRESS 

, MO 10 0 249 



0251 




CORRECT PRIORITY LEVEL 

■■ M0100250 


O 

0252 PG0A7 58B4 

HASEXT 

RTJ^ 

LEVLIT 

MOlOO 251 

c 


o 


Q 



MMEXEC 


date: Ql/27/99 


JG0A7 P 
■P00A8 .1805 
• P00A9 ,-54F4 
POOAA ..52F8 
POOABi'OOAD P 
POO AC- IAEA 
POOAD’ 4QFF 
If 

if 5f R L ff ^ ; 

PO'OA'E'50 00 ■ 

P0 0AF-;D164 
POQBQ COFF 
POQBl 6802 
P0 0B2 IAEA 
P00B3 GOOD ;- 
PGOBA- CACF (■’> 
P00B5 A8DB 
P00B6 0105 
P00B7 09FE ' 
P00B8 6ACB. 
P00B9 0102 
POOBA 1800 - . 
P008B ■ FF55 
POOBC EAOO X 
POOBD 7FFFi'X 
00 BD ' 

48 GC^ 
FF77 
EEFC 
C20E 
BIGE 
820D 


SAMLV2 


EQU HA3300 {HASEXT) 
SAMLV2 : 

RTJ- (SFA) I 

AOC,^ $52FQ + 0PUVL ^ 

ADD SAMLV2 
JMP- ($EA) ( 

STQ- I i 


POOEE 

PGOBF 

PGOCQ 

POOCl 

P00C2 

P0GC3. 


P00C4 8100 
P00C5 0101 
P00C6 1817 


PC0C7 
P00C8 
P0 0C9 
POQCA 
POOCB 
POOGC 


1817 
00C7 
0 5 00, 
G205 
0109 
C208 
0137 
•AOFF 


NOFiND 

OKIN 


0KIN2' 


RTJ- FINDIT 
SQP OKIN 
LDA-. I 
STA^ NOFIND 
JHP- (ADISF) 
ADC 

LDA» BFSTAT,Q 
STQ^ NXTBUF 
SAZ . AL30NE 
INA -1 
STA^ 8F3'TAT,Q 
SAZ ALDONE 
JMP GOT0IT 


ALDONE' LDQ+ LOGIA 


POOCB-' E8C3 ■ 
PO-OGg.OA85''. 
POO CP- 18EA-;- 
■PQQDG- OlOl"- 
POODl-lSOC-^' 
.P0002V.C2QD- 
- ■ - ", 0 0 03 

P00D3-C000 
POQDA OQOO 
P0005-6201 
P00D6 COOO 
P0QD7 OlAA 


ALOGIA-,>EQU ALGGl A ( -*^--1 ) 
L00F2 STQ TEMP 

• LOQ^ (ALOGIA ) ,Q " 
• LDA- MASSEC» Q 
EOR-- MASSED, I 
V EOR- MAStGN,Q 
■■■- EOR- HASLGNtI 
■ SAZ TAGOQl 
,, JMP^ NOS.A-ME 
'TAGOOl EQU TAGQ’OK^) 

1 1 N 0 

LOA- ELU,Q 
. ■.'.,SAZ NGASGN 
' LDA- 8,.Q 

' . . - ' SAM NGASGN 

..STQ- I 

’ ,..-.."-LDQ^'' NXTBUF 

; RAO»- BfSTAT.Q ' 

... JMP^ 0KIN2 
‘ SAZ - TAGOOQ , 

."■■JMP^ NOSAME 
TAG GO O LDA^ MAS:LGN,Q V , 
NGASGN.. EQU NOASGN(^> . 
LDA =XMASDRV • 

STA- 1,Q 
LDA =XiASCON 


SAME LEVEL: 
MON I CALL 
SCHEDULE AT 


PROPER LEVEL 


CALL DISPATCHER 
PDT TO I 


FIND BUFFER ^CONTAINING DRIVER 
SAVE PDT FOR DEBUGi 

LAST PDT OF DRIVER RELEASING WHEN NOT 


DECREMENT REQUEST 
NO NEW- WAITING 

GET ,kO. LOGICAL -.'UNITS' 

ADDRESS OF LOGIA 

GET PDT ADDRESS ■ / 

GET SECTOR 

DIFFERENCE OF' ONE^EXITI NG 
CHECK' LENGTHS SAM£ TOO 

THIS DEVICE DOES NOT MATCH RELEASING 


• SKIP', IF UNIT '.NOT ACTIVE 
GET REQUEST STATUS THIS POT 
SKIP'-iTF- -OPERATION IN PROGRESS 
SAVE. -iNEH-zPOT ADDRESS 
RESTORE;,rIiNDEX , 

BUMP'INTE.R,NAL ACTIVE STATUS 

DRIVER 

SKIP.IF MATCH 
JUMP.vIF NO MATCH . .. 

CHECK LENGTHS . SAME .TO^S 

SAME RESET ADDRESS 

INI-TIATOR - 


MQ10O259 
M Oil 0.0 2.6 0 
' MQ100261 
■ M0100262 
M0iaC2o3 
M01G025A 
M01Q:0 26 5 
-MfllQ 0 266 
MO 10 0 26 7 
HOIOO'268 
Mai0 0 269 
,, M0100 270 
,'.H0ia0 271 

; M01Q0272 

HQIO'D'273 

M010027A 


MOlOO 275 
HOI OB 27 6 
M0100 277 
MOlOG-278 
MOlO 0 279 
M010Q.28G' 
M01G 0 281 
M0100282' 
' . . . M 0 1 0 u 2 8 3 

, ■■ • - , MO 10:0 28 4 

■ ' M010G285 

. M 0.10 0,28 6 
MO 10 0 28 7 
MG100288 
M0100289 
, ' ' M0100290 
, ' MO 1C 0 291 

1 2 3 ^-‘4 8 8 5 ^ 

1 2 3 A 8 6 5 -5f ^ 

M01u0293 
M013029A 

M0100295 

M01Q0296 


O 




MMEXEC 


PAGE 


OATEj 01/27/99 


L- 


rv G3,0 0 PQQD8 6 2 02 
. -0301 P00D9 COCO 

POODA 017E P 
,030 2 POODS' 6203 
.0303 ■■POOOC -0 AOO 
7 030 4;- POODD E8 00 

■ PDOOE FF58 
0305 POODF ODFE 
, 0306 POOEO- 0141 

' - .030 7 P0 0E1--18DC 
■ '030 8 P00E2. E8AD ■ 

^ 030 9 P00E3,r- CAB2 
rv ' 0-^1 D P0 0E4 0115 ■ 

• 0311 P00E5 E8A4 

0312 P00E6 5400 ■ 
r'v, ■ . P0 0E7 0 000 • 

^ 0313 P00E8 48A8 • ' 

■ ' 031i+ POOE9 14EA ■ 

. . 0315- POOEA 60FF - 
. 0 316 POOEB OAOO 
- . Q317"P00EG 6AA9' 

... 0318 POOED 582F 

Q31.g >P0 0EE 68 A1 -■ 
- 0320' -POOEF-'EagA 

0321 POOFO 1800 ■ 
POOFl FF34 


STA- 2,Q 
LDA =XMASERR 

..STA- 3,Q 
■-EIN 0 

NOSA'IE LDQ TEMP . 

INQ -1 - 

SQZ DONRES ■ ■ 

„ JMP-^ LOOP2 
DGNRES LDG^ HXTXCT • 

= LDA^ aUE^Q - 
. SAN ONEWAT ■ ■ 

LDQ^ BUFNUH ' 

. - RTJ . SWITCH ‘ 

'V'V' sTaT;. NXTBUF . 
JMP^,' (ADISP) -• 
ONEWA T - STA-.;« I 
. - ENA ,-0 

STA^"aUE,Q 
RTJ«^ BUMPa 
STA^.-.NXTXCT 
: LOQ^^ 'BUFMUM 

JHP GOTl 


CONTINUATOR 

DIAGNOSTIC TIME OUT 


OECRtiHENT ■COUNTER 

ALL -SEARCHED 

MORE .TO SEARCH 

INDEX OF NEXT TO EXECUTE 


NONE 'QUED, exit 

CLEAR QUEUE SLOT 
UPDATE 

GET 'BUFFER NUMBER 


MO 10 0 29 7 
MO 10 0 29 8 

, M010Q299 

, . Mu 10 0 30 0 

' MOIGO 301 

M012.Q.3G2 
Mu 10 ii-303- 
■ -V ., ' ;,'.M0 10 0 30’4 , 

' ■ M0-10U30-5 ■ 

■ Maifi'B30.,6 
MO 10 0 30 7 
■MQ1C030S 

MO 10 0 30 9 

"'.■X'tH0,1Du'31,u 

M010,031i 
' MOIO'0 312 
M0iQ0 313- 
■■.M010Q314- 
MO 10 0 31.5 
MO lu u 316 
Mu 10 0 317 
M01Q0 318 


O 

O 

O 

(~) 

o 


- . 

U ■ 

0323 



0324 


/■A' ■; 

0325 



■que it routine 


G:, 

O 

Q' 

O 


0327 ‘P00F2 E89D 
032-8 P0 0F3 -G.AA2 
03E9 P00F4 0117 

0330 PG0F5 COFF 

0331 P00F6.6A9F 
0332' P00F.7'>-C1QE 
033'3‘.P0OF3'.'6AA5 
0334V POO F9 58 23 

' 0335 POOFA 4894 
, 0336;vP0QFB 14EA 

0337 'POOFC CAAl 

0338 PflOFD B1 GE 

0339 POOFE 0111 

0340 , PflOFF ^14EA 
0341;- POlOO- 581C 

•O'342,,P0i0'lB88E 

0343 P01Q2 0101 

0344 P0103 18EF 

0345 


QUE IT ■ LDQ^ 

NX.TXCT 

L00P3'- LOA^ 

QUE,Q 

- SAN 

OCCPID 

LDA- 

I 

. STA» 

QUE.Q 

- "'-LDA- 

MAS 3 EC , I 

.-STA^ 

QUEMM ,Q 

- RTJ^ 

BUMPQ 

. STQ» 

N XT QUE 

JMP- 

(ADIS P) 

OCCPID- LDA«, 

QUEMM ,Q 

EOR- 

MASSEC, I 

. SAN 

BMPQUE 

-JMP- 

{ A3IS F) 

BMPQUE RTJ^ 

BUMPQ 

EOR^ 

NXTXCT 

SAZ 

NOQUE 

JMP’^ 

LOOPS 


¥ 


geGtnitia'G index ■ 

unoccupied . QUE SLOT, AND NO-' PREVIOUS ENTRY 

PUT, THIS ONE IN IT 

SAVE -HASS MEMORY ADDRESS 


EXIT . ' , . ‘ 

difference' OF.'MH ADDRESSES , 

NOT SAME, -BUT 

THIS DRIVER ALREADY QUEO, EXIT 

TEST ALL SLOTS CHECKED 
ALL CHECKED 


M01D032G 
'M01Q0321 
MO 10 0 322 


MQ 10 0 32 4- 
MQ.iQ0325 
MO 10 0 32 6 
MO 10 0 32 7 
HQ 10.0 32 8 
MaiGD'32'9 
M0100330 
MOlOO 331 
MOlOO 332 
M01Q0333 
MOlOO 334 
MulOG 335 
MJlu 0 33 6 
M01D 0337 
HOlO 0338 
.MOlOO 339 
MG 100340 
MO lu Q 341 
MG1G0 342 


(J 

O 

O 

O 

O 

O 

o 


o 


( ) 
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PAGE 


9 


date: Gl/27/99 


SHOULD -WAIT IN SCHEDULE STACK 


0349 P01Q4 EOFF 
035Q P010554F4 
035.1 P0106 5202 

0352 POlO 7 01G9 

0353 PG108 14EA 


NOaUE ' 
DOWN_ K 


LDQ- 

PTJ- 

NUM 

AOG 

JMP- 


( AHONI) 
$5202 
SCRCHQ 
(ADIS P) 


PASS';POT;ADOR‘ESS.. 
SCHEDULE 'LEVEL 2,' WAIT 


P01G9 
POlOA 
PQIOB 
POIOC ■ 
POlOO 
POlOE: 
■POIOF. 
POllO' 
PGlli 
P0112 


P0113.' 

P0114.- 

PG115 

POilo: 

P0117 

P0118 

P0119 

POllA 

POllB 

POllC 

POllD 

POllE 

POUF 

PQ120 

P0121 


40FF 

E884 

CASA 

EOFF 

0101 

18F6 

1800 

FEEF 

40FF 

18DF 


0 5 00 ■ 

CAOO 
FF7E • 
6805 
EA 00 . 

FF6D 
0400 
1400 ■ 
OOGO • ‘ 
OllB ,P 
0000 
0814 ■ 
09 01 
A005 
0822 
ICFA 


SCRCHQ 


BACKUP 


GOADR. 

BUMPQ, 


STQ- I 
LOQ^-nNXTQUE 
LOA^- QUE,Q 
LDQt. I , 

SAZ BACKUP 
JHP» DOWNLK 
JMP HASORV 

STQ- ":I . 
UMP^ -QUEIT 


LEVEL 2 WAITING FOR: QUE SLOT' 


RESTORE PDT 

. OPEN BACK , ; 

RESCHEDULE 

■QUEUE OPEN, GO QUE THIS DRIVER 

PDT TO I 
GO QUE IT 


START UP DRIVER , , 

Q = PQT ADDR. 

A = ADDRESS OF DRIVER 


STRtUP 


IIN 0 

LOA BUFSTR,Q 

STA^ -GOADR ' 
LOQ ,3UFP0T,Qi 

EIN 0 
JMP+ 0 

EQU GOADR (’■-1) 
NUH - 0 
TRQ' : A 
INA 1-, 

AND^ LPMSK+2- 
TRA Q 
JMP«- (BUMPQ) 


GET STARTING ADDRESS 


GET PDT 


BUMP INDEX 


- ROUTINE TO CHECK LENGTH OF ALL DRIVERS" 
USING BUFF 


PI3122 SOOO 
■P0123 C800 
P0124- FF69 
P0125 9800 
P0126 FF66 


CHECKL NUN 0 

LDA BUFADR^-1 

SUB BUFADR 


SUBROUTINE- ENTRY 
END ADDRESS 

= TOTAL AVAIL 


MO 10 0 3i,3 
M01GG344 

M0100346 
M0100347 
MGia0548 
MO TO 0 349 
MOIO'0350 


■' M01U0 35 3 
M01DQ354 
-MQ10,0 355 
■MQ10:'Q35b 
■ Mu 10 0 35 7 
; M010.Q358 

■ MO 10 0 35 9 
■MO 10 0 360 
. M010G361 
MOIO C 362 
: HO 10 0 363 
.. M010 0 364 
Mula>0 3b^5 
HQ1G0366 
Mai0,0 357 

MGlfi 0368 
MO 10 0 369 

M0100370 
MOlOO 371 

M010 0 372 
M0100 37'3 
MOlOO 374 
MOlOO 375 
M010037.6 
M0iCi0377 
MO 10 0 378 


M01I],Q38G 

MOIOOSBI 

M0100382 

M01Q0383 

MaiO'0385 
HO lGfl 38 6 

MOlQ 0 387 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

.0391 P0127 9100 

SUB- 

MASLGN, I • 

0392 P0128 0122 

SAP , 

WILFIT 


0393 P0129 1800 

JMP 

BADXFR+l. 


. •P012A FF45 


MASLGN, I 

o 

0394 P012B • 31DD . .. WILFIT 

A D 

0395 P012C EAOO • 

LDQ-'. 

BUFPOT, 0- ■■ 


o 


o 


o 


o 

o 


039 & 
0 3 97 
0398 

039 9 

0400 

0401 

0402 

0403 

0404 
0 M-0 5 

040 6 
0407 

0408' 

0409. 

0410 

041:1 

0412 

0 413- 

Q^l 4 
0415 
Qi+16 

0417 

0418 


P012D 
P0 12E 
P0 12F 
P 0 13 0 
P0131. 
P0133 
P0133 
PO 134 
P0135 
P0136 
P0137 
P0138' 
PG139 
P013A‘ 
.PQ13B 
P.013C 
P013D' 
.f>0i3E- 
P013F' 
.P014C 
P0141. 
P0142. 
P0143' 
.P0144 
P0145 
P0146 
P0147 
P0148 
P0149 


FF58 
981B 
01 41 
8200 
910D 
0135 
■C816 
0141 
'9200 
810D 
-18CE 
OA 01 
B800 
FF4F 
0822 
CAOO 
FF4& 
0101 
18 82 
SAOD 
FF46 
BA 0 0 
FF42 
ClOO 
6804 
E800 
FF42. 
1C09' 
0000 


LAB ELI 


LABEL2’ 
N OT»U F 


LABELS 


-GOTNUF 


NUS ED 


SUB:^ 

SQZ, 

ADO- 

SUB- 

SAH 

LDA'^_ 

SQZ. 

SUB- 

ADO-r- 

JMP» 

ENA 

EOR 

TRA 

LDA 

SAZ. 

JMP» 

STA 


NUSEO 
LABELl 
MASLGN, 
MASLGN, 
NOTNUF 
NUS ED 
LAB EL 2 
MASLGN, 
MASLGN, 
GOTNUF 
1 

8UFNUM 


Q .. 

BFSTAT,Q 

LABELS 

QUE-IT 

OGUPNT,Q 


STA BUF'PDT, Q 


■ LDA- 
STA^ 
LDQ 

JMP» 

NUN 


MASLGN,! 

NUS-ED 

3UFNUM 

(CHECKL) 

0 


date; 01/27/99 


MINUS 'LENGTH THIS DRIVER 
MILL FIT SOME .TIME 
REPORT .ERR.OR AS MM FAIL 

’ TOTAL AVAILABLE 
POT ADDRESS OF .CURRENT OCCUPANT 

MINUSl- WORDS IN USE 
NOT ASSIGNED TO A DRIVER 
PLUS WORDS USED BY- OCCUPANT 
MINUS WORDS FOR NEW DRIVER 


TOTAL USED 
BUFFER NOT , USED , 

MINUS CURRENT LENGTH 

PLUS: NEW LENGTH . . 

NEW NUSEO ^ 

NEW DRIVER BIGGER THAN OLD , ' OV ERLAP. . 
TEST OTHER DRIVER - 


GET active. STATUS 


INACTIVE . 

ACTIVE, NEW ONE NO 
FITS, WILL OVERLAY 


FIT NOW 

OTHER PART I ALL 


NEW- I5:RIVER, LENGTH TOTAL USED 
RESTORE ORIGINAL INDEX 
RETURN 

NUMBER OF WORDS IN USE 


MQ100 388 
„ M01Q0389 
MOlOu 390 

■' MO 10 0 391 
MOIO'Q 392 

, M010.0393 
MO 10 0 394 
MOlO 0395 
MQIOO 396 
MQ 10 0 39 7 
. M0 10 0398 
.;.,..M01Q0399 
M01Q 0 40 G 
; HO 10 0 401 
MO 10 u 402 
; MO 10.0^0 3 
■, M01D0-t04 

";’moioo-,o5 
: , MO 10,0 40.6 

‘M.010 0.40 7 
MO 10 0 40 8 
' MO 10 0 40 9 

MQ10041Q 

M 0 10 C 41 1 
MO 10 0 ^12 
MO 100413 

MO 10 0 4l 4 
MO lu 0 4l '5 


'■.J 

o 

o 

o 

C) 


0420 

0421 

0422 
0 42 3 
042 4 

0425 

0426 

0427 


¥ 

af. 

¥ 

* 

* 

¥■ 


THIS ROUTINE>ESPONDS TO INTERRUPTS 

FOR DRIVERS WHICH ARE , NOT CURRENTLY IN CORE 

THIS MUST- BE CONSIDERED A GHOST INTERRUPT SITUATION 

OR THE INTERRUPT RESPONSE IS USING A 'PDT 
ADDRESS OTHER THAN THE ACTIVE- ONE 


0429 P0 14A 0500 MASCON IIN G 
04-30 P014B'. 40FF - STQ- I ^ 

0431 .P014C, 4831- STQ^ LASTPT 

If. U 0 ^ ^ ^ ^ ^ 

0432 >0140 5400 RTJ FINDIT 

P014E 0000 


IIN :FOR FINDIT 
PDT TO I 

DIAG SAVE 

DETERMINE IF DRIVER IN CORE 


MQIOO 417 
HOIQOAI'S 
MaiG0.4l9 
'MOIOO'420 
M01DD421 
MOIO'0 422 
M010Q423 
M0100424 

Ma.lQQ426 
MO 10 0 42 7 
MO 13 0 42 8 

Mai0 0 429 



O 

o 

c 

o 


o 

o 


o 


o 

o 

o 

o 

o 


o 

o 


o 


H t 
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0433 P014F 0500 
0434',P0150 D171 

IIN, 

0 

SQM 

NOTING 

0435 P0151 1810. 

JMP- 

OKINI 

0 43 7 ^ 

NOT 

IN CORE 

0439 .0152 P NOTING 

EQU ,, 

• NOTING (^. 

0'44Q P0152 0400 

EIN , 

■ 0 

Q-,41 P0153 E107 ... 

LDQr 

■■ EWES, I 

0442 P0154 COID .■• 

LOA- 

-.,$1D 

0443 P0 155- 08B2 

LAQ 


0444 P0156 FQ2E 

ADQ-i 

$2E 

0445, P0157' 0 201 

INP 

1 

0446 ■ P0158' 0800 ' ‘ 

NOP; 

..0 

0447 PQ159 El 07 ■ ■ 

LDQ- 

EWES, I 

0448 P015A 0AG2 

ENA 

2 

0449-P015B 0301 

OUT 

1 

Q45'0 P015C 0 BOO • , 

NOP 

Q . 

0451 P015D..D81F • 

RAO^ 

INTCNT 

0 452 PQ15E' Cl 08 . 

LDA- 

EREQST,! 

0 45-3 P015F OF 44 

ARS . 

4 

045.4 P0160 ,A0 09 • 

AND- 

LPHS'K + 6 

045.5, P0161 0988 

INA 

-T18335 

0456' PO 162 OllA 

SAN 

NOTED 0 

0457 P0163 0C06 

ENQ 

SELCTF 

0458 ■P0164 F107 

AOQ- 

EWES, I 

0459-.‘P0165 0301 ' 
046 0 P0166 OBOO 

OUT 

NOP 

1 


0461 
0 462 
0 453 
Qh6.4' 
0465 
0 46 6 
0467 


P0167 

P0168' 

P0169' 

P016A 

P016B- 

P016C 

P016O 


El 48 
■40 FF 
QC06 
F107 
0301 
0800 
14EA 


NOT FDD 


I- FODPTH, 
3- I’ 

3 SELCTF 
]- EWES, I 

r ■ 1 

) 

(ADISF) 


DATES 01/27/99 

IIN AGAIN» FINDIT. DOES EIN . . , 

IK, • BUT POT MUST BE OTHER THAN INT RESPONSE 


GET EQUIP COD, E-. 

MASK Converter.' sfioo. 

ADD $600 

NMA AND- TERMINATE IF BUFFERED 
GET EQUIP CODE 
ACK INTERRUPT 
BUMP COUNT 

CHECK T-YPE CODE FOR FDD DEVICE 


iSKIP lEi. NOT^'F-OD , 

SELECT UNIT AND EOF AND CLEAR INTERRUPT 
ADD EQUIPMENT CODE, FOR UNIT 0 


REPEAT FOR OTHER •UNIT IF IT EXIST 


M3 10.0 -,30 
MQ100 431 
MQ 10 0 432 

MO 10 0 43 4 

MQlO'fl 436 
MQIO.O h 37 
MG 100 438 
Mu 10 0 43 9 
MU1Q0-+40 
M0100441 
MO lu 0 442 
MQIGQ 443 
MO IDO -,44 
MQIQ 0 445 
MOlOO 446 
MQ lu 0 44?' 
MO 10 0 448 
MQ 13 Q 449 
M 3 ID u 45 0 
MfllOQ 451 
MOlOO 452 
MOIOQ 453 
MOlOO 454 
M01Q 0 455 
M0100456 
MQiQ'045 7 
^i0lG[i458 
MQ1Q0459 
M0,1DQ.4&0 
MOlOfl'461 
MOIOQ 462 
MQ 10 0 463 
MfllOG464 


0469 

047,0 
0471 ■ 
0h7 2 
0 473 

0 4?'-, 

047 5 

0476 

0477, 

0478 

0^79 

0480 
0 48 1 


PO 16E 

P016F 

PO 170 

PQ171 

P0172 

P0173 

P0174' 

P0175 

P0176 

P0177 

P017 8- 

P0179 

P017A 

P017B 

PG17C 


GA GO 
FFU 
0111 
6133 
180F 
EA 00 • 
FFll 
C202 
6805 
EOFF 
0400 
6133 
1400 
00 00 
017B 
0 0 00 


OKINI .■ LOA 

SAN 

STA> 

JMP^ 

LDQ 

LDA- 
STA^ 
LDQ- 
: EIN 
STA- 
... I JMP+ 

AODCQN EQU 
INTCNT NUH 


BFSTAT, Q 


SECNUM,.! ' . 

NOTING 

BUFPOT,Q 

ADOCON 

I 

0 • 

SECNUM', I 

0 ‘ , , , 

AODCON(»-l) 

0 


IS ACTI^C,.-.' ■ ■ ,.v - . 

INDICATE, /MORD-ADOR. BUFFER.’ NOT GOOD 
A GHOST TREAT AS NOT IN CORE 
USE POT ApDRESS . LAST USED 

GET- CONTINUATOR 

RESTORE POT 

INDICATE WORD-ADOR. i'SUFFER NOT GOOD'V, 
JMP TO CURRENTLY DEFINED CONTINUATOR 


COUNTER OF GI 


MG1Q04&O 

... MOlOO 467 
132 =^ 5305 **^***^* 
MOIG‘0468 
MQ 10 0 459 

'. • MOlOO 470 

" : ■ MQ1Q0471 
MOlOO 472 
MQIOO 473 

132^5 30 

MOlOO 47 4 

MOIOQ 475 
MOlOO 47b 



o 

o 

o 

o 

o 

o 

‘o 


MUlu 0 ^77 


HQ13Qh79 
.'HOiaG^tSC 
MO 10 0 981 
MO 10 0932 
MulQ 0 it8 4 
; MO 10.0 48 5 
MOlO.g 486 
.M0100487 
'MQ100h88 

MO 10 0 489 

M0100490 
MO 10 0 491 
MOlOO 492 


G 

O 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




("") 

; O 

; O 

, ; V 

.0'i42» Qi-o7f GI 8 I 1 0186» U259t G262-* 0289» G31"» 033u , 

^ Q'47b . , . 

'l. . , . ' J ‘ 

0'.353, 046 7.' . 

o 

C398, 0399, 0403, 0 -+ 0 ir, Q41 h Q 

' ■ . O 

• o 
o 
o 

• o 

: O 

: C) 

o 
o 

o 


v_..' 
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o 

D 

S Y M B 0 

L S 



C'l 

o 

DEF . LINE 

NAME , 

ADDRESS 

REFERENCED ■ AT--L--INE NUMBER 

: O 

C; 

.0 038 

MASORV 

0 0 0 0 

■ 0 038 , '0297, 0.361 

O 

■0 038 

MASEXT 

Q0A7 

-• 0033 , 02Q8r 0253 ■ 


0 038 ■ 

MASCON 

D14A 

■O'0-38, 0 299 



0 038 

MASERR 

D17E 

,■ .■•.oa;.38, ■ OEoi 


O 

0 039 

MAS3Q 0 

G0A7 

■ ■-.0.0 39 

,G' - 

0 040 

RELBVa 

00A6 

.:.004Q 


0 0 77 

SAMLyi • 

00 0 7 

■ • ..-00 72 , 0 07 5 



0084 ’ • 

IN 

■OQOF 

V 0183. ■ ■ 

■ '■ , O 

o 

' 0085- 
■ 0 087- , 

GOTOIT ■ 
T A G Y 

'Gull 

■■0'fll4 ■ ■>. 

..■■r0 2 72 

• ■ ■■■■0 0 83 ■' ■ ■- 


- 0 0 91-' 

■ DRyLVL ' 

■0 018 

.. ,, ■-.0089 ■ ■ ■ 



0 093 

EXIT 

OOIA 

■■■ , 0-0 82 


o 

0 09 4- 

■NOTIN 

OOIB 

■0 080 

u 

0102 

GOTl 

0026 

0 097, 0100, .0321 


0 118 

TEMP 

00 37 

QUO, 0275, 030*+ 



0123 

READl • 

Q03C : ’ 

0122,- 0233 

o 

G 

0128 , 

N1 

0041 ■' , 

... 0119 ■■ ■ 

0129 

STARl ■ 

0 0 42 

■-'. Q 116 .. ,■ ■ 



0131 

MMl ■ 

0044 

.■0 121 . • 



0133 , 

RE A 02- ■ 

0046 =■ 

:-'Q233 

o 

C 

0 138- , 

■ N2 

004B ■ ■, 


0 139 

■STAR2 •' 

004G ■ 



0141 

MM2. • 

0Q4E 

0 132 



, 0 1 42 ‘ 

:SWIGU.M ’ 

Q0 4F ... 


(0 

. 0153 

EXTEND ' 

0054 

■0160';- 

o 

0156 

.. NOTHIS 

0057- ■ - 

0152-.'.-'-. • ,1 ■ 


. 0159 

.'■ALLCHK 

■QD5A ■.• - 

■ 0157 .■..,■'■ 



. 0165 ■ 

LEVIIT 

'8Q5C ■ ■ 

■■. . 0071, -0171., . 0173, 0252 



,-:-D172 

■LEyLRT - 

0 06 3 *.■: ■■•...■ 

■■,.■-■ -.: 0170 

o 


. ■ 0 1 7 5 ■ ■ ,i 

, ROGHP . • 

0065 ■.- 

•• ■ , 0125 ,.,•■■ ..■: ■ . , . 


7 . . . 

Q17'7 ■■ 

RICMP 

0067 ■ 

013.5,.. 017.6- , •■ 



018 4 - 

BA o xer. . 

G06F. . 

Q178,,.- Q'3.93 .■ '■■■‘:' ■ ■' ■: ■ 



0 214 

8FSTAT ■ 

008 4 -■ . 

0081, 0 084, 0096, .0 09.9, '010 4, 0182, 

0189,' 0'266, C27C, 0291, 0409, 0*r69 O 


. 0217 

BUFPDT ■ 

0 0 8 6 - 

0 0 86.,-; OlO'.e,.. <0180, .0.1 85.,-'C 572, 0395, 

0413, 0473 ... ■ ^ 


0219 

OCUPNT 

0088 

0103, 0 120, 0188, Q412 ' 



0 221 , 

, BUFNUM '. 

G08A 

■ ■ OQ95.,--O15.3, 0311, 0320, 0407, 0 416 

. o 

c 

0223 . 

SIGN 

0G8B ■ ■ 

3112 <■ 

0225 

. 8UFA0R -. 

0,0 8D ■ 

. . 0113, ■.0.-389, 0390 


0 22 8 

NXTQU.E 

Q08F 

■ 0335, 0,356 



0229 

NXTXGT 

0090 

0308, 0319, 0327, 0342 


o 

0 231 

NXTBUF 

0091 

0094, 0 144, 0267, 0 290 , 0 313 

: O 

c 





, O 






o 







o 





o 


X..' 


MMEXEC 

PAGE 15 


DATE; 

0 i/2'7/99 



1 1 

_ 0 233 

INCRMT 

0092 

. 0115, 

0370 . 





V ) 

0 235-. 

8UFSIR 

0094 

0114,. 


0-35 7 


o 


0 23 7-' 

• QUE 

- 0096' 

"3 3 09,’ 

.0 317, 

3 328, 0331, 



0 239- 

aUEHM . 

'‘0 09E , 

0333f 

;0 33 7 



( ' 

0 259 

SAMLV2 ’ 

OOAD 

0 2 54, 

0257 




■ o 


0265 

NOFINO • 

0033 

0263 






0266 

OKIN 

G0B4 

0 261 






QZ7-2 

0KI.N2 

-3'0'BA V , . 

0292 






o 

0273- 

ALOONE • 

OOBC 

'0 2 68 , 

0 271 




o 

0274 

ALOGIA- 

0 0 BO 

0 2 76 






0275 

LOOP2 ■ 

OO.BE 

,0 307 






0 2:83“- 

. TAGQOl'. 

00C7 

;,0 2 81 






r'\ ■ “ 

0295 

TAGOOQ. 

0002 

, 0 293 







0296 

NOASGN 

0QD3 

. .0 286, 

028 8 



'' 

: 


0304 

NOSAME 

OOOO 

. 0282, 

0'294 






0308 

DONRES 

OOE2 , 

-.0 306 






C) 

0 315 

ONE WAT 

QOEA 

, 0310' 





o 

0327 

QUEIT- ■■ . 

0 0F2 

, 01 01, 

. 0 36'3 , 

0411 




0 328 *: 

L00P3 ' 

0DF3 

, 0344 







.0337 

OCCPIO-- 

OOFC 

, 0 329 






O', : ' 

■Q 341 - 

8MPQUE 

010 0 ■ 

0 3 39 





■ o 

’0349 . 

NOQUE 

0104 ■ 

0 .3 43 





' - . , 

■ 0,35 0 

•DOWNLK ■■ 

■310 5 

, , ,, 3360 







: 0355 

-SCRCHQ'- 

• 0109 

' m; ,03 52 






/ ' ' •' . • 

. ,0.361 - 

BA'CKUP 

OIQF ■ , 

,..■■"..'■,3 3 59 





; O 


.0.3 69 , 

STRTUP 

0113 . .V., , .. 

■33 92 






.0,3,75 

GO A DR ,."r 

0118 . 

0371 

0'3'34, 



- i 



.,0376' ' 

BUMPO 

•fllic 

, 3318, ' 

0341,. 0-381 ■ 




O' 

0 388 . 

CHECKL 

0122 ■ 

^ 3102, 

0 41 7 




■ o 

0394 

WILFIT 

012B ■ 

0 392 






0399 

labeli . 

0131 , 

0 397 







0 40 4 

■ LABEL2 

0136 ' 

3 402 






ri 

0 406 ■ - 

NOTNUF 

0138 

■ 0400 





; o 


D 412 . 

■ "LABELB ,, 

■014G , , , . 

■:0'410 


, , , 




0 415 

GGTNUF 

0145 , . 

-.0 4 05 






0 t4-18 

NUSED 

0149- - 

0 396, 

0.401, 

0,415 ' 




O 

0 439 ■ 

NOTING , 

0152 , 

,■•0434, 

0 472 



: O 

0 467 

NOTFOO ' 

016D ■ ■ 

■■3 456 





0 469 

OKINl 

016E 

■ 0435 






0 480 

> ADOGON 

017B 

’ 0 475 






r~ 1 ' 

0 481 

, INTCNT 

■017C , . 

■0 451 

1 . 




; 


0 48 2 - 

■ LASTPT 

017D , ■ 

' 0'43i 




r 


0495 

LASTER 

018 e 

0 489 






0 496 

ERRCNT 

018 7 

0 492 






O 









; O 

O 









; O 

o 









; O 

o 









: O 

o 






' , 



■ O 


o 


HMEXEC 

PAGE 16 

DATE: 01/27/99 



L> 

o 

E X T E R 

N A L S 





; O 

o 

DEF. LINE 

NAME VALUE 

REFERENCED AT 

LINE NUMBER 



O 

o 

Q 

0 045 
, 0045 

0 046 ^ 
0 047 
0 04 7 

ALTDEV 0185 
LOGIA OOBD ‘ 

LOG-.. 0183 

BUFF' 0 09 4 

BUFFE 008E 

0 2:0 2, 0 494 
..:.0-2-73 

:0>199, 0A9 3 

0225, 0^35 
0226 




o o 

'L.'" 







o 

C') 







' o 








o 

o 







o 

o 







o 

0 







o 

o 







; O 

C) 







o 

o 

o 







L...' 

o 

o 







: O 

o 







C) 


MMEXEC PAGE 17 DATE: ijI/27/99 


♦ A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H 8 

0 L S 











ADO CON 

048 0' 

■ ADISP , . 

oosq'a 

AFNR . 

0 

'A LOONS. .. 

;‘027.3' 

■ al:lchk 

015 9 

. A LOGIA 

Q2'T>4 

QOL? 

ALTQEV 

a.0^45 

AMONI 

0.Q32 

BACKUP 

0361 

BADXFR 

018 4 

BFSTAT 

. D214 : 

8MPQUE 

Q341'v 

'BUFAOR.. . 

•0 22 5 . 

BUFF 

0047 

bufFe 

BUFNUM 

a.22i 

BUFPDT 

021 7 

BUFSTR 

U235 

BUMPQ - 

0376' 

CHECKL. 

0368 . 

OONRES 

0 3 0-3 > . 

0 GWNLK" .. 

0 350 

DRULVL . 

■QG-91 

ELU 

0 03.2 

ERCOOE 

.,.0’06 2 

EREQST 

0 05 H 

ERRCNT 

J496 

. eSTATl 

0 05 5 

EWES. ' 

' 0 0 53 

EXIT ■ 

0 0 93' 

EXTFNO V.- 

0.15 3 

FODPTH ' 

.0063.. 

GOADR 

0 373, 

GOTl'. 

2i0 2 

GOTNUF 

u,4l5 

GDTOIT 

0 1 8 

• ■I '• 

. GOO'D- 

IN : 

.0 08 4-: 

. INCRNT 

Q2 33--V 

INTGNT-..' 

048 1 

LABEL 1 . 

0 39 9. 

. LA8EL2 

Q 40 '4- 

LABEL3,. 

...■'0 412 

LASTER 

0 49 5 

LASTPT 

u.^82 

LEVLIT 

, 016.5 ' 

LEVLRT 

■'0172 

LOG • ■ 

0046 ■ 

LOGIA ■ 

0C“t5 

■LOOP2 ... 

•0275 

L00P3 

' D32..5'. 

L PH SK 

.0027 

- NAS30-J 

Q 039 

MASCOM 

L u 3 8 

MASORV 

0 03 8 

MASERR 

. ’.0 038 , 

MAS EXT 

0 038-,'- 

■MASLGN . 

0056 

. M ASS EC 

.0057 

HMl 

G13'l 

MM2 

..,0141 

H.SKBNM 

‘ 0 '06 5 

N1 

0126 

N2 

0138 

NOASGN 

■’.0 296 

NOFIND 

0 265 

.NOQUE 

0349 

. NOSAME 

030 4 

NOTFDD 

0 46:7 

NOTHI.S, 

.015 6 

.NOT. IN 

0 09- 

NOTING 

C -^39 

H.OTNUF 

‘ 0406^ 

NUSEO 

■■ '0 418 

NXT8UF 

02 31'" " 

NXTQUE ■ 

022 8 ■•■ 

'NXTXCTa i 

0229 

OCCPIO 

03 3. 7 

0CUPNT6 

.. 0219 

OKIN 

Q266 

OKINl 

0 469 

■0KIN2 . 

0272 

ONE0IT 

.'■0028 

ONEWAT 

0315 ■ • 

OPLVL :: 

0 06 4 . 

.'PRILVL .... 

0 03 1 • 

QUE 

0237' 

QUEiT ,' 

032 7 

QUE MM 

0239 

ROCMP 

G 1 7 5 

RICHP • 

017 7 : 

RiiAD 1 

"0123 

READH-. 

0133 

;RELBYQ'„ 

0D40 

-SAMLVl V 

.0 07 7 

SANLVB 

0259 . 

SCRCHO' 

035 5 

SECNUM 

0 066 

' SELCTF 

U Cb7 

SIGN ■ 
TEMP 

0 22 3 
0118 

STARl 

WILFIT 

0129 

0394 

STAR2 

0139 ' 

..STRTUP 

0369 

SWICUM 

0142 

T18535 

0063 

T A G 0 0 u 

'0295 

TAGu 01 

0 283 

TAGY 

t. C 8 < 


0016 ERRORS 



SNAPOL 


PAGE 


DATE: 01/27/99 


r \ 

0..0 0 1 



0.0 0 2 



0,0 0 3 



00 0 4 

If. 

o ■ 




00 0 6 



00 0 7 

-¥■ 

o 

00 0 9 


O 

0011 


o 

0012 

*> 

O013 



0 015 


' 

. 0016 


: 0017 



0018 



. 0 01-9 


O' 

■ 0 021 • , 

if. 


0022 . 



0023-.. .. 


o 

002.5..... . 



0026. . . . 



0 027 

if. 


0028 



NAM SNAPOL • DECK- ID;,:;MQ 2 _^MSOS' ',5.. G 

HASS STORAGE OPERATrl'NG' •SYSTEM VERSIQ^ 

SHALL .SYSTEMS . DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMHARY-r,.libM020 0QGl 
M0‘2Gi3Q,0 2 
MO 20 Qu, 0 3 
M0200QOA 


ON-LINE S N A P D U ’H P R 0 U T I N" E MO2OOO07 

V-** ^ :f. Jf. if >/. ^ ^ if i/- ¥ -V-* ^ V- if if ^ y- ^ \^Q 2ij Q iiQ 9 


¥¥¥¥%¥ yV-* ¥¥¥¥¥¥'¥¥¥¥¥ ¥ ^M0'2'.Q Q Sj 1 

THIS Ro'u’'H;NE ■ IS AN 'optional debugging ROUTINE' HHI'CH MOEO;|'Q1 
MAY BE OELETEO^ FROM *“ 


MS OS 


IF,. IT IS NOT 
RESIDENT AND 


THE ROUTINE.. MUST BE. CORE 
IN ;PART0 O'R PARTI 
UNPROTECTED PROGRAM COMMUNICATION IS PROVID 
ENTRY IN THE TABLE OF, PRESETS IN THE LOG 
OF THE--FORM SHOHN 8ELOW- 


TO BE USED. 
MAY RESIDE 


1 
2 

M020.0U13 


:d by an 

IRE MODULE 


ALF,;,': 3, SNA POL 
ADC ' SNAPOL 
EXP, SNAPOL 


CALLING SEQUENCE- 

■ OECLARE SNAPOL. AS AN EXTERNAL 
RETURM JUMP TO SNAPOL 


-Ma200015 
MO 20 0 016 
, MG 2,0 fl'G17, 
'M020 0 01S 
M02a0C19 

, MO 200 021 
. M020G 022 
MO 20 0 023 

M020C025 

H0200Q2& 

MO20'OQ27 


O 

O 

O 

Qi 

o 

o 




o 


( .) 


o 


O 

o 

o 

o 


00-3 0 


0031 


0033 

if. 

0034 


003 5 


0036 


0037 


0038 . - 

* 

0039 - ■ . ..•. 


00 41 

If 

0042 

if .if 




PROGRAM FUN.GTION 

UP TO 5 PROGRAM REG.ISTER DUMPS. WILL BE 
AND DUMPED IN THE FOLLOWING FORHAT- 
P=HHHH ■ -Q=HHHH A = HHHH M = HHHH I=HHHH 


P=HHHH a=HHHH A=HHHH - M=HHHH I=HHHH 


STACKED 


N0200031 

M020G033 
Ma2ao Q3‘. 
H02u0u35 
MO 20 0 0 3 b 
MG 23 0 037 
MQ200038 
M0200a39 


¥¥¥¥¥¥¥¥¥¥¥¥ 


OUTPUT IS TO THE STANDARD LIST.DEVICE FIRST IN FIRST. OUT MC20Go4l 

^ If ¥ ¥ ¥ ¥ 9 ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥ ¥¥ ¥¥¥¥ ¥¥¥¥¥¥¥ ¥¥¥■¥¥ 0H2 


o 

o 

o 

o 

o 

L-) 




S NAPOL 


PAGE 


O 

G' 

o 

O 

o 

o 




O 


0053 

0G55 

0 a.5 7 

0058 

0059 


0044 

'f- 

PROG 

0 04 6 


■ CONST AN T 

,0E-4 7 

■ . ^ 


.0048 

' ' ^ 

, , PUT • .. 

.0-049^ , 


TAKE 

-0-0 5 0 


FIRST 

-O'OSi . 


ENTRYS ■-•r- 

0052 

-V- 

V LAST :■ 


2 DATE: 01/27/99 


RAH CONSTANTS, ETC 


USE' 


- BASE -'AOORESS 'FOR CURRENT OUHP TO BE STORED 
BASE- ADDRESS' FOR CURRENT DUMP TO BE OUTPUT 
START vOF STACKING BUFFER 
NUMBER, OF DUMPS -CURRENT LY STACKED . 

■END OF-j.STACKING -BUFFER 


Mu2u00-+A 


Mif 20 u Q46 
HQ200 047 
'M02Q0 048 
M 0 2 0 0 0 49 
M02ii0a30 
M020fl05i 
'M020'0052 


sf-lfif/. Jf. if. ^ ^ ^ ^ ^ ^ V- ^ M02Q0 055 

„ HQ200 055 


M0Q5. 
0 022 


ENT - vSNAPOL •- 
EQU -;.FULL 
EQU ZERO ($22) 


-NUHOER of D'U-I'IPS STACKED AT ONE TIMEriMAXIMUH 
EXCESS IGNORED 


M02fl0057 

M02’00058 

M02'0,0a59 


O 

La 

o 

o 

o 

o 


o 

o 

o 


'f 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


SNAPOL 


PAGE 3 


DATE; 01/27/99 


o ,, 

006 1 



■ 0Q63.'.-... 


O; 

0 0 8 4 ■ 


0 06 5 

■V 


. . 0066 

3f. 


; 0,05 7. 


O 

' .0068 


^0069 



0070 



0071 


O ; 

0 072 


0073 



0 07 4 



0075 


O 

007 6 

■V 

0077 . 



0078 , 



0079 • 


j ’; 

^ 00 8 0 ^ 



:• 0 061. 

■' 


0082 



6083 


•■* ''i 

0084 



DIAGRAM 


CONSTANTS 


BUFFERS 


M 0 2 u u u 0 1 


FIRST ===== 


last, == === = 


STAlChilNG 8UFFES jEOR./^DaHPS 

^ 5- WORDS PER ENTRY 'iP) * 

^ (Q ) » 

^ F<U L L '(A) ^ 

ENTRY (H ) ^ 

^ - , .(I) ^ 

' : If. 

^ ‘ F u L Lv,' :■ - 

^ E 'N T R-Y , ^ 

^ M- , , , , , V- 


E M ~}P T Y 
E N T, R Y 




'■MaZ00:Qo3 

^ , MCl2u0ti&4 

===== T A,,K E = :..M020QQb5 

* OLDEST STORED ^ MQ20Q05& 

^ DUMP' ENTRY YET TOMOEii 0 067 
^ BE PRINTED , M0 20 G068 

^ MQ 20,0 06 9 

^ , ,M020 0070 

M023 0 071 

^ H020.0 072 

^ , M0.2Q0Q73 

* MQ2G007L 

' 'J ' MO'200 075 

M02D0376 
M0200077 
^ :■ Ma200 078 

^ = ==== P:,',Ij.,T',--N£XT Mii2'D0 0 79 
^ EMPTY DUMP SLOT ('10200080 
^ TO STORE IN MQ200Q81 

* MO 2 0 0 0 8 2 

^ M0200033 

MQ200 08L 


O 


PAGE 


u 


0G8 6 
0087 
0 088 


SNA POL 


A 


date; 01/27/99 


^ ENTER HERE Mg20 0 087 


o 

c 


0090 


V- 


DECIDE IF ROOM TO STACK 


H020009C 


O 


0 092 POO^fifl' QOCO 
0093' POOOl 0500 
009 4 ' PQ002 .6848 

0095 P0003 C865 

0096 POOO'4. 9867 

0097 P000.5 0113 

0098 P0Q06 C847 

0099 90007 04QQ 

0100 P00G8 1CF7 


SNAPOL. NUH Q. .• 

..v;:IIN-..0 '=,-- 

... STA^ TEMP 
-..LDA^i^NTRYS ■ 

. SUB^ SIZE- 
7SAN . STACK-^.-l 
aOA». TEHP •.■ 
EIN a 

JMP^ CSNAPCL) 


ENTRY PdiN't-UNPROT ' VIA TABLE OF PRESETS 
STOP INTERRUPTS .. 

■SAVE A i , ;:: , , . . , 

StZE ;v FULL' DOES NO, OF ENTRIES = FvULL 

IS-/.STACKING. BUFFER FULL 

YES, 'IGNORE -CALL AND RETURN 

TURN ON INTERRUPTS BEFORE RETURNING 


MQ2D0092 
M02G0U9.3' 
M02Q 0 09’4 
MQ2fl.0:.09 5 
MO 2 0 009 6 
M0200 097 
M0200098 
M0200099 
M0200 100 


o 

o 

o 


o 

o 


o 


SNA POL 


date: 01/27/99 


■010 2 
0103 
OIQ 4 


0119 

0120 
0121.. 
012'2L' 
012.3- 
QlZk 

'0>1'2 5' 
012 6 

012 7. 
012 8 

0129 

0130 

0131 

0132 

0133 
.013 4 
0135 

013 6 
013 7. 

013 a 

■0139 

014 0 
0141 
.ei4'2. 
.0143 

0144 

0145 

0146 


PQ 0 0 9.; 
PQOOA 
PO QO B . 
POOQC 
POOOD; 

. PO COE 
,-PGDO'Fv- 
.PO'OIQ- 
'.POO 11 
,P,QG12. 
-poqi3.. 
P0.S14 
'.R0'015 
P0016 
P0 017 
.P0018 
P0019 

• POOIA.' 
PQQIB 

■ PDOIC. 
POO ID. 
P 0,0 IE 
'POOIE- 
P0020- 
, PO 021 
PQO'22 
PQ023 
PO 024 
P0025 
P 0 0-26 
P0Q2--7. 
PD 028' 
P 0 0 29 
PC Q2A 
PQ.-D2B 
Pe02C 

• PG02O 
PO D2E 

. P002F, 
P0030, 
P0031 
P0032 
PQ033 


^ A 5' WO^^'OVENTRY. at put to the stack M02QD103 


C8F6 
6C5F 
Q814 
E85D 
6201 
C83F 
6202 
08OC ' 
62 03 '■ 
CQFF «:■ 
62 QA.i‘- 
0 814.’ 
90.00’ 
,00 63 ■ 
0104 
0814 
■0905 
■584F 
18 04' 
CQOO 
0 0 4F 
"68 48 
D8 49 
C84C 
0104 
C2Q2 
E2 01 
0400 
ICDA 
D846 
4846 
0-4 0 0 
5-4 F4 
520D 
Q'Q-88 
0500 
■0162 
■■'DAOO 
'•68 30 
.E830 
C622 
68 CD 
18EE 


STACK 


LOAT SNAPOL 
STA?^ (PUT) 
TRO A , 

LDQ^ PUT 
STA- ItO 
LDA^ TEMP 
STA- 2»Q- 
TR-M , A 
STA-. 3,Q. ■■ 
L.OA-.; I 
siA- 4 ,. a 
TRQ A ‘ 

SUB • =XLAST 


RESET 


AOB'E'J T 


SCHliRT 


.ACCEP 


SAZ 

TRQ 

INA 

STA* 

JHP* 

LDA 

STA*... 
.rAQ*'”' 
LDA*- 
SAZ . 
LDA- 
LDQ- 
EIN - 
JHP* ■ 
RAO* ■ 
STQ*-. 
EIN ■• 
RTJ-. 
NUM 
AOC.-- 
IIN ■ 
SQP ... 
ENA-., 
STA*'-, 
LDQ*' 
LOA- 
STA* 
JMP* 


RESET-*-! 

A 

5 

PUT 

ADDENT 
, . =XSTART 

,pui 

'ENTRY S.-.-' • 
WRITBZ ■ 
-SCHWRT-*^! 
2»Q 
1»Q 
-0 

(SNAPOL ) 
-WRITBZ 
-.QSAVER..,. 

($F4) ■ ■ 

$ 52 0 D 
WRITER 

AGCEP-*-! 

0 , 

WRITBZ 

QSAVER 

(ZERO),Q 

SNAPOL 

OUT 


SAVE.....P = RETURN 
SAVE- Q . IN A 

SAVE ■ Q 

■ SAVE A ■ ; ■ . 


CHECK TO SEE IF WE .i-iUST RESET POINTER 
AROUND TO FRONT OF BUFFER 


:. NO, MOVE DOWN 10 NEXT 
, SLOT FOR. NEXT - DUMP. 


A00E;D A DUMP. ENTRY .-RECORD THIS, 
CHECK TO SEE IF WRITtR IS ACTIVE 

YES, .WRITER RUNNING, EXIT 
RESTORE REGISTERS 
TURN ON INTERRUPTS 
RETURN-.'TO CALLING • PROGRAM 
SET WR'ITER BUSY ■ 

KFEP Q-iNTACT THRU SCHEDULER CALL 


.SCHEDULE UP TO WRITE AT P.L. = 13 

SKIP IF WRITER WAS SCHEDULED 

NO, SCHED REJECTED, CLR: WRITBZ SWITCH 

SET UP RETURN 


Hu 20 0 106 

MG20Q107 

H02001Q8 

HQ2G0109 

M0200110 

M020.U111 

M020 0112. 

H02G0113 

MQ2D0114 

M02QQ115 

Mfi.20,ail6 

Mu 20 u 117 

M0200118 

MO 20 Oil 9 
■MQ.ZlIO 12 0 
M 0.2 0 0 121 
MO 20 0122 
MQ 20 0123 
M0200124 

Mu 20 012 5 

Mfl20'012 6 

M0200127 

MO 20 012 8 

M020ui29 

MQ20Q130 

M02Q0131 

H0200132 

M02G0135 

H0200134 

HQ 20 0.13 5 

M02Cai36 

M020G137 

MO 20 013 8 

Mu200139 

M02C014C 

MO 20 0141 

H02G.0.142 

M020ai43 

Mu 20 014 4 

M020 0 14 5 

M02S0146 


o 


SNA POL 


DATES Cl/27/99 


,0148'. 
0149- 
015 6 
015,1 
0152 , 


PO 03j+- 

P 0 05,5 

P0 036 

P 0037 " 

PO 038', 

PG 039< 

P0 03A-; 

PQ,G 3 B' 

PG05O 

R0030 

P0Q-3E, 

PQ0.3F- 

PO, 0,4,0 

P0041: 

PQ042 

POO’43 

P0044 

P 0 Q 45 

P0 0 4& 

PQQ47 

900^8 

P0049 

P0D4A 

P0Q48 

P004C 


0 0 0 0 ,' 
6 319-'- 
0C03- 
A0Q6\ 
09F5 
0131 
0907 
Q 93 A . 
&A 0*0 ’ 

• 0 1 45* • 
00 FE- 
C8QF! 
GF44 
6800 
18F4 
OFC# 
8806 
E806 
QFA8 . 
F805 
ICEB 
0000 
0 0 Ou 
CQOO 
0 000 


HEXA5C, NUM • 

*- STA<’ 

, ENQ,.' 

■RPT . , AND-^' 
INA , 

’ SAM,.^ 

,. INA.- 
"LTIO INA ; 

<.-,.STA^' 

, SQZ ■ 

, , . iNQ ,. 
.** .‘.vLV'LOA.^ 

, ' ARS 
STA^ 
JMP^' 

BONE c: AIS 
AOD^: 
LOQ* 
OLS 
ADQ^ 
JHP»- 
W4* NUH-' 

W3 ■ NUH ■ 

W2 NUN 

W1 NUM 


0 

WRD , 

3 

$6 , .* 

-$A , 

LTIO 
$7 *,■. 

$ 3 A 

W4',Q\- 

DONE- 

-1 , 
NRD’" 

4 • *. 

WRD 

RPT 

8 ■ ' ■' 

W3 ■■ 

W2 ■ 

8 

WIa, ,, 

(HEXASC ) 
0 ■ 

0 . 

0 

0 


' A.’ ■ : ■ I . • , 

CONVERTvTO ASCII 

SAVE :WORD TO '>GONV£RT „ . : 

CONVERT LOWER 4 glTS TO” ASCII 

CHARACTER OR, -.NUMBER 

IS A LNUM8ER ‘ 

STORE- CONVERTED. WORD 


STORAGE FOR XCQO 
STORAGE FOR- 0X00 
STORAGE FOR OuXO 
STORAGE FOR OuOX 


O 

O 

O 


o 

o 

o 

o 

o 


o 


■ Hfl20,0148 
, MQ20:fll49 

M020C150 
HO 200 151 
M0200152 
MO 20 015 3 
M0200154 
Ma2aoi55 
MO 20 0 15 6 
■ M0200157 
' H020015a 
HO 20 015 9 
M0200 160 
’H02fl0151 
M02GG162 
".M02001 d 3 
M02001b4 
^ MO 20 0 18 5 
Ma2u01b6 

■ M02Q0167 
M02Q0168 
M3200169 

' M0200170 
M02a017l 
M020G 172 


U 


o 


o 


o 


o 


o 


o 


o 


o 

o 

o 

o 

Q 

Q 

Q 
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017 4 



^ ^ ^ ^ ^ ^ ^ ^ 


If. :f. ^ ^ ^ if. 


-MO 2.0 017,4 

K^J 

0175 

P0Q4D 0000 


TEMP 

NUM 

0 


■ TEMPORARY STORAGE LOCATION 


MQ2 0.'017'5 


0175 

P004E 00 01 



BSS 

WRD 

u- 



M1J20 017 5 


017 7- 

-P004F 0014 



BSS 

. START {FULL.^5 

-5) ,LAST(5). »^^^-^’DUMP STACKING 

BUFFER 

M020Q177 

o 


PDQ63 0005 


, 




■ 



, G17'8 

Pfl068' OuCQ 


. ENTRY S 

NUM 

0 


TOTAL NUMBER OF ENTRIES .CURRENTLY STACKED 

HQ2QG178 


. ^ 017 9 






BUT NOT DUMPED. TO LIST r YET. 


M02D0179 


■ 018-0; 

PC 059,' 0 0 4F 

.p, 

PUT . 

AOG . 

; START 




M020QiB0 

o .. 

. 0181. 

P006A Q 0 4F 

p. 

TAKE--. • 

ADC ' 

START 


. , i ’ , f ' ■ L 

' j- 

M02QU181 

' 01 8-, 2- 

PO 06B 0 D 05 


SIZE-, 

ADC 

FULL 


■ / 

' 

MU2G0182 


0183 







, WRITBZ.. WRITER BUSY, SWITCH =1 BUSY, 

0= NOT ^ 

M02UQ183 


' 0184 

po 06 C '.oaoo ' 


WRITBZ.- 

.NUH 

, 0 , 


. ■ ( .fl’ . i 


MQ200184 

O " 

,. 0185 

P0O6O,,-Q0Q0 


QSAVER.- 

■ NUN 

Q 


'■ . 


M0200185 

018 6 

P006E 2020 


BUFST:-: 

NUM 

■$2020 


OUTPUT PRINT BUFFER 


MO 20 018 6 


018 7 

P006F.' 5030 
P0Q70 2020 


DPBUFF 

ALF 

5,P= 

pppp 


MJ20D187 


o 


P0071 50 50' 
P0072 5050 











P007 3. 20 2 0 



1 

5,a= 






0.188 

P0G74 '5130 



ALF 

QQaa 



Ma20fll88 

C‘ 


. P0 07 5 20 20 
P0u76 5151 
P0077 -5151 
P0078 2020 







M0200189 


AAAA 

O : . O 

. 0189 

P0079 4130 
P007A- 2020 
P007B- 4141 
P007’G-'4141 
P007Q 2020 


' < . < ' • , .. 

ALF 

5 ,A = 


. 



019 0 

P007E- 4030 

! 

. ' , c ' 

ALF- 

5,M= 

HHMM 



Mfl20G190 

o ■; 


P0Q7F 2020 
PO 0:8.0.; 4040 
POO 81. 40 40 


: ' ■ 




’ 'J 



■ 0191 

P00a2- 2020 
P0083 4930 
P0084 2020 
P0085 4949 
P0086 4-949 
P0087 2020 



ALF ‘ 

."‘5,I’=\„ 

IIII ' 

l ; . , . 



M0200191 


o. 





o 

o 

o 

o 

o 


o 

o 

C) 

o 


o 


u 

o 

o 


o 


O 


o 


o 

o 


o 


o 



SNAPOL 


PAGE 


date: 01/27/99 


o 

c 

o 

o 

r-] 

o„: 


c;: 


( ; 


U 


O 


o 


.0194 
019 5 

019 6 

0197 

0198 

0199 
• 020.0 

0 20 , 1 - 
0202 

020 3 


0205 
-0206 
020 7- 
0208 


0210 

0211 

0212 

0213 

0214;- 

0215 

0216 

0217 

0218 

0219 

0220 
022-1 
0 2,22 
0 22:3 
0224 
>0225 
0226 
0227. 
022 8 

■0 22.9 
023B, 
0231: 
■,0232 
0233 
0234- 
023.5.' 
0236 
0 2.3.7 
, 0238 
023-9 
‘,0 2^-0 

oe'ai 

■ 0242 
0243 


Pfl 088 
P0089 
.P008A' 
.P008B: 
.P008G' 
■POO 80' 

■ P008E 
PC08F-; 

■poogo' 
'P0 091' 
P0092. 
POO-9 3 
P0094- 
P0 095- 
-P0096 
P0 09 7 
POO 98. 
P 00,9 9 
P0O9A 
. P0.D9B 
.PflQ,9C.. 
■P0 09Q- 
P009E 
-.P0 0 9F- 
-POGAO-i 
..PO-OA-i' 

. PO-OA2 
'P0;0Ar3, 
,POQM 
PSOAS. 
PGO.A-6 
■P0:0.A7. 
Pfl 0 A8 
PQ0A9 
PODAA 


QCOO 
• SA02 
60FF- 
.CEDE 
480E 
58A6.. 
69 EO 
lOOFF - 
'49DE 
•C309 
0901 
0822 
09FA 
-'010 5 
: C 0 FF • 
09 04 
6QFF 
18F1 ■ 
OOflO'.' 
54F4 ■ 
4CD0 
0 0A3.- 
DO 00 
:18FB 
DOIA 
0 0 6E. 
■14EA 
0 5 0 0- 
E8C5" 
0 81.-4': 
. 90 0 0". 
0 0 63 ' 
0103' 
0 814 
0905 


^ V- ^ ^ ^ ^ V - ^ ^ y y y y 

^ . '- W R- I-'T.-'-E P- -R 0, ,U, T i:.-,N 

^ ^ If. :f:); )f. ^ V-fl- 9-ir.V- !(■ V- ^ ^ f ^ ^ 

* . - THIS vR,Q-UTiNE -QU.TPUTiS TO -THE STD4'4.LI DUM 

» ' ' initial E^l TRY. . WHEN 'WRITER IS. INACTIVE IS BY A SCHtDUL 

» ... REQUEST. OF ADDRESS .-WRITER- AT PRIORITY 13. 

* : . . NOTE.'..,'' w'rITEA:-.RUNS AT. PRIORliY.^^'.!^ WITH EXIT DURING 1/ 

‘t- ...WAIT TIME. 

y.j(. y. y-y. y-y-y, y4y*yyy^*^<^ yyyy yyy^yyy yyyyyy yyyyyy yyy yyyyyyy^^y^v-yy^^^v-yv- 


y ,y y yy y 
y yyyyy 

ps; 

ER. ■ 

y ify 'yyy 
0 . 

yyyyyy 


-P: 


y 

y 

y 

y 


WRITER ENQ 

• ENA ‘ 

- STA- 

WRTPIK ■LOA'^ 

■ STQ^ 

■ RTJ'» 
STA^ 

. . - RAO-: 

. .. STQ^. 
- . LDA^ 

• INA 
... TRA 

-.-.■-INA 
.' -SAZ 
-LOA- 
- -.-..INA • 
.- -vLvST-A- 
JMP» 

AUXSTQ'- NUM 
THRU RTJ- 
NUM 

ADC - 

- .. .. . NUM . 

NUM 

NUM 

- - . . . ■ AOC 

JMP- 
II N 
LDQ^- 
TRQ 
SUB 


COMP... 


SAZ 

TRQ 

INA 


TOPSET- 

A 

5 


SAVS-q WHILE W£. -CONVERT . 
CONVERT HEX NUMBER IN , 
RETURNED UPPER TWO IN A 


A, 4 CHARACTERS 
, OTHERS IN Q 


THIS RO.UTINE ..C-ALLS A HEX j-Q ASCII CONVERSION ROUTINE, 
STORES THE CONV.ERTEO^- NUMBER- IN THE OU TPUT BUFFER-: AND 
IMITATES A WRITE* EXIT IS THEN TAKEN. UPON I/O COMPLETE 
SEE IF MORE ENTRIES ARE LEFT TO PRINT. 


0 

2 -. 

$FF. 

(TAKE) , Q 
AUXSTO 
HEXASC 
OPBUFF, I 
SFF 

DPBUFF, I 

AUXSTO 

1 

THRU-+-1 

SFF- 

4 ■ - . 

SFF' 

WRTPIK 

0 

($F4) 

$.4CQQ 

,.&OMP 

..0 / 

:.$18FB 

2 - 6 -. 

BUF 3 T 

tSEA) 

,.Q,. 

-TAKE - 
A - 

=XLAST . 


LAST •.REGISTER IN PRINT BUBEER, YES,: GO TO JHRU 
CYCLE THRU STORING OF ALL REGISTERS STACKnD, 
P,Q,A,M,I 


LIST. 

■FHRITE 


D'UM.P -REGISTERS TO -STD. 

STACK., AT 13, 'COMP AT 13 
-COMPLETION ADDRESS . 

THREA-D 

TO. STO LIST, , 

SIZE.-'OF . BUBFER OUTPUT ■ . , 

START-.OF -'MSG. -T , 

EXIT-UNTIL- I/O COMP THEN AT COMP 
STOP INTERRUPTS 


CHECK.' TO SEE IF WE-, NEED TO - WRAP-AROUND TO. 
TOP OF BUFFER 


^M0200194 
:M0"20'.019 5 
'^M0,2C019b 
M0200197 
MC2G0198 
MQ200199 
-M02Q0 200 
M02Q 0 2Q1 
M02002D2 
^H0 2Gfl 20 3 


MQ20 0 205 
MO 20 0 20.6 
M02QQ207 
M02Q0208 


MO 20 0 210 
Mfl20Q211” 
M02 0'0 2i2 
MQ200213 
MOZOG 214 
MQ'2G0 215 
M020021b 
M0200217 
M0200 218 
H02G0219 
MO 20 u 22 0 
M'02Q022i 
M02Q0222 
MQ2U0223 
M0 20 0 2-24. ■ 
'M02D.0225 
M02.0Q'22b 
MO 2-0 0,-227 
' M,02D0-228 
• Mfl2fl‘Q:229 
MU2DQ230 
.,MQ2S' 0 2,31 
" MO 20 S 23 2 
, M 02:0 0 233 
;vH,02a'a-2.34 
;'H a '21:0.23 5 
Mfl20'0236 
.M020Q23.7 
MO 20 0 23,8, 
M0200239 
. M02Q02‘tU 

' MQ20 0241 
M020Q2h2 
MQ200243 


R..' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


u 
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9 
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POOAB 
PQOAC 
P.Q GAD 
pflOAE 
PO OAF 
PQOBO 
POOBl 
PQOBZi 
P00B3 
-POOBA- 
PQ0B5 
PQ0B6'^' 
PO QB7- 
PG0 8 8 


18 03 
COOO 
0 0 4F 
68BB 
E8B8 
.ODFE 
4 8B6 
98 B6 
■0102 
0400 
18D2 
-68B5 
0400 
14EA 


/. JMP+ 
JOPSeii- LDA 


AHEAD 


EQUAL 


STA^. 

LOQ^ 

INQ 

STQ^.' 

SUB»- 

SAZ 

EIN ■ 

JMP».’ 

STA’i 

EIN 

JMP- 

END 


AHEAD 

=XSTART 

TAKE 

ENTRYS 

-1 

.ENTRYS 

■PUT 

EQUAL-'^-l 

WRITER 

■WRITBZ- 

0- 

(SEA) 


printed an ENTRY 
ONE . ..SO MARK > 

HAVE ME OUTPUT Al 


REDUCED THOSE STACKED 


THAT 


TURN 


INTERRUPTS 


SET WRITER NOT . BUSY 
..TURN ONvINTERRUPTS 
EXIT, ALL DUMPS STACKED 


ARE STACKED 
.NO OUTPUT MORE 

HAVE BEEN PRINTED 


M02aQ2,46 
M020 0247 
M020 0.248 
M020 0249 
MD2a025Q 
M02G0 251 
MQ20 0252 
Mu200253 
M02Q.0254 
MQ.20 0 255 
H02D.0256 
M0200257 


PGM= OOB9 


DAT = 0000 


o 


SNAPOL 
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DATE: 01/27/99 


: Q u I V 

A L E N C E S 



def,lin£- 

"NAME 

-VALUE 


REFERENCED AT LINE NUMBER 

0 00 0 , ' . 
0 0 57 ■ 
0 059 

' I 
FULL 
ZERO 

0,0 FF - 
00 0 5 
0022 

^ ( 0-£,0,2-$5 ) 
" CQ'fl'0 00 5) 
I 000034) 

. -oiiis ' , ■ " '1' 

0177, 018^:: 

0144 


SNAPOL PAGE li 


DATE! 01/27/99 


I 




S Y ti B 0 L S 


o 

o , 

O' 

o 

C' ■ 

o;. 

O' ■; 


DEF .LINE - ‘NAME 


0-' 


--0Q55 . , 
0106 
Q124 
0126 
0129 
0133 
Q1A3 
01L8 
0151 
0155 
0163 ' 
0169 
0 17G 

0171 

0172 

0175 

0176 

0177 

0177 

0178 ■ 
0180 
0181 
G182 

0184 

0185 
018 6 
018 7 
Q 210 

. 0213 
0228 
0229 
023 7 
, 0245 
.0 246 
0254 


-SNAPOL. ■ 
STACK . 
RESET ■■ 

. A DO ENT 
OUT 

SCHWRT- 
ACCEP ■ 
.HEXASC 
RPT 
LTIO 
DONE ■ ■ 
W4 
W3 

W2 ■ 

W1 

TEMP 

WRO 

START 

LAST 

ENTRYS 

PUT 

TAKE . 

SIZE 

WRITBZ 

QSA VER 

BUFST 

DPBUFF 

WRITER 

WRTPIK 

AUXSTO 

THRU 

COMP 

TOPSET 

AHEAD 

EQUAL 


ADDRESS 

000 0 . 
0009 
OQIC - 
OOIF 
0022 
0026 
0030 
Q0 3'4 
0037 
003B 
0043 ■ 

0049 
004A • 
004B 
004C 
■0040 
004E 
■0D4F 
• 0063 
00 6 8 ■ 
0069 
.0 06A 
0C6B 
Q06C , 

0 0 6D 
■006E .■ 

006F ..'■ 
■0088 ■■ ■■ 
0088 ■ 
009A 
QQ9B 
00 A3 '■■ • 
uOAC 
QOAE 
0QB6 


REFERENCED AT LINE NUMBER 

00E5, 0100 , 010.6, 0132, 0145 
0 0 97, 

0119- 
0123 
0 145 ' 

, , 0128-,^ 

. Q14Q,"- 

016-8, 021.5- 
0 162 '. . 

0153*- 

0157... 

■Q156- 
0164- 
01&.5-.. 


016-7 



0 0 94, 

0a98f 

■0,111 

0149, 

0159, 

0161 

0 1 24 t 

■0180, 

0181 

0118, 

0 240 


■a.0 95,' 

O' 12 6, 

0247 

0 10 7, 

010 9, 

0122 

0213, 

0238, 

0246 

0096 



0127, 

0133, 

a 1-42 

0134, 

0143 


0235 



0216, 

0218 

■ 1 

0138, 

0227 

0-253 


0 214, 
0 223 

0219 



.0 231 ■ 
• D 241 , 
0 244 
0 251 


O 


C: 

U 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

o 


o 

o 


o 



o 

o 

C) 

o 

o 

C) 


o 

o 


COHP 

...Q237. 

...0GNE 

0165 

ORBUFF 

'0187.' 

ENTRYS 

0178 

LTIO 

..0155 

OUT 

0129 

PUT 

0.18 0’ 

' USAVER 

0185 

STACK 

. 010 6 

5TART 

0177 

TAKE 

0181 

TEMP 

017 5 

Wh 

■ 0169 

WRD 

0176 

WRITBZ 

018 4 

WRITER 

G21G 


C) 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 




PARAHE 

. ' .1 

O: 

0 0 0.1 ^ 

V. .1 . .. ■ 

000 2 



00 03 



000 4 


O . 




000 6 
. 00 0 7 


o. 

00 0 8 

00 00 P 

• ’ ' 

; a 0 1 !■ 



0012' 

0 0 01, 

1 ' 


0005 


0013 

0 0 03 


0014 

0 002 

o 


. : 0012 


00 22. 


0015 . . 

0 0 23 - ^ 


0016 

0 0 04 

'''^1 ’ ■ 

0017 . 

. ' OOEB ■ ■ 


0018 ■ ., 



0019 

0020 
0 0 2'.'1 
0022 
0023 

: 0024 
0 025- 
0 0 26 
Q02 7 
0028 
0 0 2-9 
003 0 
0031 ^ 
Q 0 3 2-' 
0C33, 
003 4 
0035 
0 0 36 
0037 
. 0038. 
0039 

, 00!* a 

0041 
.. 0042 
' 0043 
■ 0 0 4.4> 
' ..0 04 5 

0046 

0047 

0048 

0049 


P.flOO^u. 

■ PO 001 

P0 0.02. 

PG003 

P0004, 

PO 005 ' 

P00D6 

PO 0C7 

P0008 

P0009' 

P'QOO'A 

POOCB 

.PCQO..C 


0000 
■0 500 
4815 
C203 
AOOE 
■OCOD 
0FE6 

■ 0F46 
lAQl 
1809 

■ 1802 
1804 
E80B 


POOOD 0834 
POCOE 18 02 


LUAB5 


PAGE 1 DATEJ 01/27/99 

PARiM^''”' ' msOS-'5.0 . 

.'MASS STORAGE ORERAflNG SYSTEM VERSIOfT 5 . Q>:i 
SMALL SYSTEMS OJVISTQN, LA 30LLA, CALIFORNIA 
copyright: control data corporation 1976 

PARA METEiR ; CONVERSI ON ^ROUTINES 
ENT PARA HE .. 

ECU PARAMET^) 

ENT L,UABS4 3ABS*.NABS,CABS 
EQU PC(l) ,PS(5) 

EQU PLU(3) ” " 

... EQU LPMSK($-2) ,NZ£RO ($12) »ZERO ($2.2) 


EQU Q.NEBIT($'.23) 
■EQU PN(4) 

. EQU ASY30R($EB) 


ALL/ROU TINES ARE •ENTEREO WITH 
PARAMETER LIST LOCATION IN Q. 

ALL.ROJTINES EXIT WITH THE TRANSLATED 
PAR-AMETER IN Q. 

IN ADDITION, SABS EXITS WITH THE LOCATION 
OF S IN THE A REGISTER. 




LOGICAL UNIT TO ABSOLUTE 


STQ» TLDABS PARAMETER LOC TO TEMP ■ 

LOA- PLU,Q 
AND- LPMSK+12 
ENQ 0 

LLS .5 . . A PARAMETER TO Q 

ARS 5 ' LU IN A9-0 

LUTV,Q. 

JMP»' AO 
JMP'^ LUAl 

JMP^ LUA2 ■ ; 

LOQ^ T.LUABS EIX 

■BIT 15 OF A SET, ALWAYS DO 16 BIT ADDRESSING 
AAQ' .A. 

JMP^ LUIA , V 

PARAHETER A=2, PICK UP CONTENTS OF LOC A9-0 


,A PARAMETER TO Q 

LU IN A9-0 


LUT V 


LUAl 

-¥■ .. 

LU2 


SUMMARY-l'tO.MO 30 0 001 
,M030u002; 
M 0300005 
MQ300004 


Mu300006 
M0300 0Q 7 
M G 5 0 0 0 0 8 


' HD30flfl.ll 
M0300ul2 

■ MQ3QQQ13 

: MQ3000I4 

'■ MOSD'O 015 
"■•M0,3.fl0.QlB 
Mu'30 0 017' 
M030 0-018 
M03G0D19 
Hu3G0a20 
M 0 3 D u 0 2 1 
M03G0022 
MO 30 0 023 
M0300024 
Mj30uQ25 
MQ 30 0 025 
M03^0027 
MG3 0ii02 8 
Mu30u029 
'■ M0300 03G 

M 0 3 0 0 u 3 1 
M0'3bp.0 3.2 
Mu3u0j.i‘o 
, ' , M03p0,a34 
' M0.3,5,Q ■-■ ^ '^ 
,.Mi]'30 0 036 
.."MO3D0u37 
. ,.M0SGQ038 

MO 30 0 039 
' M03:OQ04G 
. MQ 30 0 UH-l 
■ ' MflSu O 
' ■-■ -MO 3 0 u 0 43 
"M.3 33 0'a4,4 
^ MSOS4 , ijMQ300u45 
' Ma30oa4-b 
77-188; M0 30 0-UT.7 
Mo 3.0 0 ‘04 a 
M030Q049 


O 

C: 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


• u 1 


PARAME 


date: 01/27/99 


;POOOF AODC -LUA2 AND- SC- 

POQIO .0822 LUIA T.RA Q 

POD 11-0 622 LOA- {Z€RQ)»Gl 

P0012G822 AO TRA Q 

P0013 0.161 SQP LU3-^-l 

POQlA'FQll ADQ- LP‘iSK + 15 

PG 015 0400 ' LU3 EIN 0 

P0016 1CE9 ■ . JMP« (LUABS) 

POOir-'OOOO • .TLUABS 0 0 


MASK OFF A LC..-:, EXCEPT ,S'3FF 


A=o, A9-0 IS actu'Al: unit 


STARTING ADDRESS TO ABSOLUTE 


■00 9.5 


PQ.Q18 
P0019 
PQOIA 
P a 0 18 
POOIC. 
POQID 
PQDIE 
POOIF- 
PG02 0 
POO El:' 
.Pe022^^> 
P0 023- 
P0 0 2 4' 
.P0Q25 
P0026 
P0027 
P 0 0.2.8 
PQ029 
P002A 
P0.Q2B- 
P0 02-G 
PQfl2G.. 
PQ02E 
P002F 
P0030 
P0G31 
POO 32 
P0 0‘5_3 
P 0 03'4 
^P 0 a 35 * 
■ P 0-0.3 6■• 
:■Pa 03 ’ 7 ■' 
.pa 0,3-0^.. 
>P0'-Q3.9'i 
P0Q3A^ 
PO,0'3B' 
P0 03C 


00 00 
0500 
48FC 
C622 
.AO 31 
0106 
0814- 
09 05 
6800 
FFF5 
.-ECF4., 
,1819 
G622 
■AQ2B 
0101 
0 81.4, 
6817 
0121 - 
80 32 
■ E2 05 
U 1 62 ■ 

0 8 34 
18 03 
C8E-7; 
0 905- 
AOll . 
68E4 
.GCE3 
.0131- 
r 80 32. 
•■^,E8 09' 
■;-ai61 
,-FOil^ 
n0 8 32 
^; 01 ' 6 i 
•:F0ii 
■CSDA 


SABS 


S2 


■■ ■ S5 


G -Q 

-•■■ ■ 

STQ^. SL 

LDA-: (ZERO) , Q . : 

AND- ONEBIT+14, . 
SAZ SOI 
TRQ A ■ 

INA 5 
STA ■ SL 


, LDQ^. 
JMP» 
LOA- 
AND-„ 
SAZ -■ 
TRQ , 

. STA^ 
SAP 

. EOR- 
LDQ- 
SQP 
AA.Q . 

■ jHP^ 

, LDA^. 

. INA •- 
AND-. 
STAi^ 

. LDA^- 

■ SAM 
AD0- 
LOQ’^ 
SQP , 

. -ADQ- 

, -AAQ 
SQP, ■■ 
ADG-. 
LDA^ 


(SL) 

S 7 , 

(ZEi?0) ,Q 
ONEBIH-8 
S 1-^-1 
,A 
L - 

3 2-f--l • 
ONEBIT+15 
PS,-Q 
S3--“-l 

;A- 

S4 

SL 

LPMSk415 
SL • 

(SL> 

0NE8IT+15 

L 

S6-^-l 
LP.M3K + 15 
Q ■ 

S 7-^-1 
LPMSK + 15 - 
■SL 


CHECK D .BIT 

SKIP IF NO O' .BIT 
S IS ABSOLUTE' 

SL=ADORESS OF S PARAH 

Q=S' PARAM 

CHECK X PARAHET'ER 

IF X=l» 

, .'tnen l = f, 

OTHERWISE L=a 

. . v.1,5. BIT. 

ARITHMETIC 

GET '.STARTING , A DORESS 

IF S15 = 1 

THEN ( A)=t+..(P+-5) : 

OTHERWISE S15=0» (A)=P+5 


THE .REST INVOLVES 
15 BIT ARITHMETIC 


EXIT - A = ADDR OF S PARAf'ETER 
Q=S PARAMETER 


O 


. u/,7.7^1887 
. L' 77 . 7 -=^ 188 t, 


^ ^ ^i'iSOSL «' 
^^^MSOSit'.. 
-^^MSOSt . 
^-^HSOS-., 
* ''■■^HSOS ^ . 


CM0300u7i 


=^^4HSOSV'. CH'030 0 073 
^^4M'S0S,4. '-M03-U074, 
s?..» ¥.{v|SQS4 , H03 'Cj G C7 5 
Mj3'a'u07 6 
M 3300077 
Ma33 0a7 8 
Mu 33 0 0 79 
H 0' 3 0 0 0 8 u 
M 03 0 0 3 8 1 
M 3 3 3 0 3 8 2 
M 3300083 
MOSO U 08 H 
H330 0 085 
M3 3 j 0 G 86 
M'3 3uu08 7 
M0 33 0'6'8 8 
M3330089 
Mu 5 -0.0 3 9 0 
M3 3 3.C.-3 91 
.. M0 3,.3-aa‘92 
H030Q093 
„ ,■ HD 30 -u'Q 9 h 
, . MG 33 0 0 95 
MG3uG^'0.9& 
PM03Ga:09 7 
HO 3,3 0 '39 6 
■' ' ' M03DQ099 

'MGSOaiOO 
MOSOOiOl 



O 

o 

C) 

o 

O 

O 

o 

C'') 

o 

o 

o 

o 

o 

C) 

o 

o 


PARAME 


DATES U1/2T/99 


•P0 030' 0 40 0.. 
.P0 03E 1CD9 
P0 03F 00 0 0. 


4 0 : 
P.0 041 
POO 42' 
POQh'3 
P:0044 
P0045 
PQ046 
PQ.047 
'•POO 48 
P0049 
PG04A 
P004B 
PQ04.C 
P004D- 
P 0 04B 
P0Q4F 
Pfl'QSO;'. 
';P,0.051'. 
P'fl.0;§-2; 
'PQJS3/ 
■P0Q54 
P0055 
P0 0B6 
P0Q57 


0 0. 0:0'; 

0 5 00 ' 
480.4- 
C622 
AO 31 
0102 
E2G4. 
18 OF. 
C622 
E2 04 
0169 
A028- 
0103: 
C8G9 
0121 
BO 21 
0:832 
0161., 
Foil 
E622 

01 61 
FOil 
0400 
1CE8 


L 

NABS, 


EIN- 0 
JMP- fSABS) 

0 , , • 0 


NUMBER OF WORDS TO ABSOLUTE 


NQWl 


NOWXT 


0 , . 

I'IN 
STQ^. 
LDA- 
ANDr 
SAZ 
LOQ- 
JMR^ 
•LDA- 
•LDQ- 
SQP 
AND- 
SAZ 
LOA^ 
•SAP 
EOR- 
AAQ- 
SQP • 
ADQ- 
LDQ- 
SQP 
AOQ- 
EIN 
JMP* 


0 . . .. • 

0 

TNABS 
(ZE.Rg), Q 
0NEB1T-H4 
Ni 

PN,a 

N2 

(ZERO) , a 
PN,Q 

NOMXT-^~l 
.ONE3IT-1-8 . 
NOWl-^-1 
TNABS 
■NOWl-^-1 
NZERO+1 5 
.Q . 

IV , . . 

LPMSK+15 
(ZERO) »Q 
N2-^-i 
LPMSK+l 5 
0 

(NABS) 


. SAVE r'aRAMET'ER LIST LOG 
GHEGK D BIT 

SKIP IF NO 0 BIT 
Q=N PARAMETER 

GET FIRST. , WORD .. . 

■ ..GET PA-RME TER N 
■■ . + N = NOr,*; OF , WDS 
CHECK; FOR X SET 
ZERO=.IN. ABS. 

15‘ 'BliT,;.' 

ARITHMETIC 


GET IT’ 


EXIT - Q= N PARAMETER 


COMPLETION ADDRESS TO ABSOLUTE 


P0Q58; 

P0 0.59- 

P0 05A 

P005B., 

PflOSC- 

POflSD-' 

PQQ5B^; 

P005F 

P0.060. 

PC 061 

P0062 

P0 063 

P0Q64 

PO 065 

P0066 

PGQ67 

POQ&'a 

P0069 


0000 
D5Q0 
48BC 
C622 
A031 
0102 
E201 
1810 
C2C1 
0139 
C622 
A02B 
E2 01 
0107 
C8B0 
0131 
8032 
G832 


CABS 


a 

IIN 

STQr 

LDAr 

ANO- 

SAZ 

LDQ- 

■JMP^. 

LDA- 

SAM 

LDA- 

AND- 

LDQ- 

SAZ 

LDA^, 

SAM . 

ADD- 

AAQ 


0 

0 

TCABS 
(ZERO) , Q 
0NEBIT-H4 
COl'- 
PC,Q, 

C2 

PG,a ' 
CAl-^-l 
(ZERO),Q . 
ONEBIT+8 
pc,a 

CAXT-^f-1 

TCABS 

Q j_ 

QNEBIT+15 

Q 


CHECK D BIT 


SAVE - PARA H LOC 


Q=C.:.PARAM£T'£R 

GEF’.'c PARAMETER 

-C=SYS.DIR REF 
GET FIRST WORD 
CHECK X 
■ GET C 
. . EXIT 

, GET ADDRESS 

15 BIT ARITH. 


O 


Mu30 0 10 2 
,M,0 30u 10 3 
M03Q 0 10 4 
Ma;33 010.5 
M 0300106 
'■;M0 30 Q1'G7 
,,M03 ju 1O8 
M0'3Qul09 
.H'OSju.ilO 
, , ,M0,30Olll 
M.S,0S^ • 0M03juil2 
^^.^MS.OS^. O.M‘030 0113 
^-•*fMS'0SE.:,:HQ3[i,G im- 
^♦^MSOSt. 3M03GO 1,15 
MuSOlilio 
^^»MSOS-. LM0.30 01.17 
M030uii8 
MOSOOilB 
MO 3i^:0 120 
Mu.3uQ12i 
M Q 3 0 u 1 2 2 
M0300123 
M 0 3 Q 0 1 2 
MQ300 125 
--HSOS ‘r.uM030 Ql2D 
'‘^MSOS 4. 0M03Q01Z7 
M0350 128 
M03 0 0 129 
MO 3 0 Q 13 0 
HU300131 
Mu 50 0 132 
MG3 0 0 13 3 
MO 30 0134 
Mu30 0 13 5 
. M0B0D13& 

' Mu 30 1113 7 
. , 'M0.30 0 13b 

; .• .M,0 30 0139 

=if^.Y:MSpS.!*...0H0,5 0 0i.‘rU 
. 4 ¥ iis,Q S 4,. ‘ili.M0;3 0.0141 
' ^^^;M.SOS4. O.M3 3u;Q,l,it2 
■ ^,HS0S4. OM.0300143 

««^HSOS4. OHfl,30,DX,44 
^^^MSQSh. LMIi',3fJ0X45 
Mu3.fl.0.i46- 
,'Mi}30;D147 
\,H0. 30 0,1^*8 
J<10'3SO,149 
HO 30 0.15 0 
.. MOSaO'lSl 
./■ M03iI0i52 
Ma30Ql53 
MO 50 u 15 4 


o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




o 



o 


MOSCuiaB 
H03DQ1p 6 
Mu 30 u 15 /' 
MO 3-0.015 8 
M03DU159 
MQ3G016U 
ii 0 ,3 0. o 1 6 1 
M03Q0162 
H Q 3 00 16 3 


M030D164 

■ o 


o 


n 


O 


o 


o 

'v.-* 


o 

o 

o 

o 

o 

o 

o 


• !. 


PARAME 


PAGE 


p 


01 / 2 7/9 9 


DATE: 

EQUl' VALENCES 


DEF.LINE. 

NAME , , 

VALUE 

- ■ 

■REFERENCED AT 

LINE .NUMBER 





OQOQ 

I 

OO'FF 

(000255) 








G012 

PC ■■ 

■ OOQl 

(OG'OOOl) 

• 01 43 5 

0145, 

0149 





0012 

PS 

0 0 0,^5, 

( 0 000,0 5) 

,'■0 0 82 







0013 

PLU 

000-3 . 

(000003) 

0 0 35 


- 

. , 




0 014 

LPMSK- 

00 0 2: 

(000002) 

■ .0 036, 

&'056, 

0Q88, ■0'095, 

0 098 

0127, 

C. 1 3 u , 

0159 

0014 ■: 

NZERO 

0 012. 

(000018) 

■ • 0124 


' ^ 





, . 0014 

ZERO 

0 0,2 2; 

(00.0034) 

: 0 0 53, 

0 06 7, 

0u75, O‘i'12, 

OIL 7 , 

012.8, 

Li. 1 H 0 , 

6,1^7 

. . 0015 

ONEBIT 

0 0;23- 

( 00,0035) 

■ 0068, 

C-076, 

0 0 81 , 0'.3 92, 

0113, 

0 120 , 

Cl 41 , 

0148 , 

0 016 

PN 

0004 

(000004) 

.0115, 

O'llS 






0017 

ASYSDR 

OOEB 

(000235) 

0156 








0153 




„ o 
. o 

. C) 

■- ' " o 

c 

o 

\ ' '/r ' ^ '' 

■ /' ' ' ' ' ' ; ■ o 

: O 

■ o 

0.0 99 ' ' . O 

■ o 

■ o 

O 
; C 

■ o 


l : 


PARAME 

O 


L P H A 

B E T I 


AO 

. ..' 0-05 4 

ASYSDR 

O 

L 

.f 0104 

LPMSK 

. N1 

:■ 0117 

N2 


PLU 

0013 

, PN 

C) 

So 

0096 

S7 

o 




o 





















( ■) 


CAL 


Q.Q17 
OOIA 
Qi3i 
OD16 
0 099 


PAGE 7 


SORT. OF SYM 

. CQi - 0145 Cl 

LUIA ' 00 52 LU2 . 

-NA3S < 0 011 NOWl 

'PS 0012 SOI 

SABS 0011 SL 


date: 01/27/99 


8 0 L S 

:'.‘ul5^ C2 ’ 'Ql6u 
00^6 LU3 0057 

. 0125 NOWXT 0129 

0075 SI 00 79 

0163 TCABS 0153 


O 


O 

O 

o 

o 

o 

o 


GAi ■ , .. .015,6, .■ 

LUAi'. GC4n 

NZERd 0014 
S2 0 0'82 

TLUA8S 0059 


,.EABS. ,;'U.0;1.1 

,:LUA2 .■•0051 

■ ONEBIT. , ..C.Ul.5 
'S3 '0086 

TNABS 01d3 


CA X T . 0 15 8 

LUAES OjII 

FAR7iME u'C07 

S -* 0 08 8 

ZERO Oui- 


‘I tj ^ L l, 

'LJTV juAl 

PC 0^12 

S3 0 C 9 3 


C' 

C 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




T16 


0 

■0 0 0 1 
■ 000 2 




00 0 3 




0 0 0 4 


-V- 

0 

000 6 




0 00 7- , 
, 00 0 8 



- -00 09 




.0010 


V- 


0011 


¥ 

0 

0012 



0013 


¥ 

0 

0 015 ; ' 

' 0QE3'- ' 




00 05 

‘ ) 

1 

' > a ' 

, Q0Q8 

1- 


0016 ’ ' 

'■ 0 0 06 



0017 

0 0 01 



= AGE 


date: Cl/27/99 


NAH T16 ■ DECK-IDM04 HSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMAUL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

ENT vTlo^ ■ 

£X,T- -ASO 

THIS ROUTINE! , HANDLES INOIR:^CT REQUESTS FOR PART 1 
REQUESTS. IT IS ENTERED WITH THE FOLLOWING PARAMETERS 
A= ; . PARAMETER LIST 


SUMMARY- 11 uMO eg 0 00 i 
M0400a02 
MG 4-0 0 u 0 5 
MOAuOOOH 


1 = 


VOLITALE STORAGE 


EQU t: vRf 3 > ,VPtRC 5 ) ,VID( 8 ) 


, EQU VTDS {&> 
EQU PLl(l) 


Mj^tuOuOd 
MQ.^juOG7 
MJLGy UG 6 
M040 00G9, 
M 04 y 0010 
MQ400J11 
MG 40 0 G 12 
M040G 013 


MQ4ij 0 015 


M3 40 0 016 
MQ4G0fll7 


u. 


o 

o 

o 

o 


V 


; ) 


o 


o 


o 


o 

o 

o 


0019 POOO’O 0 822 ' T16 
G02D POOOi'.CiOa'- 
S'021 . P0,e02 0134 . 

QG2'2 jPOQOS D103 
0 023 PGfi.0,,4! D103 
0 02 4. PQ 0-0.5, 0 8 04 
'0025: -PfiOOE 6108 
.0 0 2.6 P0.007 C1C6 ■ T16A 
.'0u2T P0a-0.8;.610 5. • 

-0028 PG009.' 1400- X 
POOQA 7FFF X 

DD29 


, TRA Q ■ 

LOA- VID,I 
SAM Tl,6A-^-l 
RAO- VR,I 
. RAO-- VR, I -- 
SET A 

, STA-r VIBti ■■■ 

; LOA- VTB5,I - 
:.STA- VPTR,I , 
JMP ASC. 


END 


SAVE- PARAMETER LIST ADDRESS IN 'Q- . , 

CHECR IE, THIS 13 THE, FIRST INDIRECT REQUEST ’ 
SKI.R 1 IF SECOND ^INDIRECT REQUEST 
FIRST INDIRECT;.-R£QUEST 
UPDATE RETURN .A-DDRE-S.Sm BY 2 

•SET, WORD 8 'of -VOLITALE' '’TD- I NDlGATr'lN:0. REQ’.'' 

GET PARA'METER- LIST .ADDRESS FOR. THE IND REQ 
SAVE, IN WORD 5 OF VOLITILE 
GO PROCESS NEW REQUEST - GO BACK TO MONI 


M04G5 019 
Hj 4 ju G 2 u 
Mu 4y'0 121 
Mj4i3uG22 
MG, 40,0 0 23 
H 04 G G,j 2 4 
MS40D025 
M0 40 0 G26 
MQ4aQ 027 
M^ -u 0 328 

M-J 40 0 u2 9 


PGM= " flo.oe' { 


11 ) 


:oM 


0000 { 


0 ) 


-DAT 


0 u Q O' ( 


0 ) 


n, 

O 

o 

c 

o 

o 

o 




( 1 


o 

o 


T16 


PAGE . 2 


DATES ul/2'7/99 




L-'' 


O'" 

E Q U I V A L E N G E S 

O '' ' ' ■ ’ . O 'V; ‘ 

OER.LINE NAME -VALUE , j, ■ REPERENGED AT LINE NUMBER 


OOQO 

I 

..OOFF . 

(000255) 



a 015 

VR 

0 0 0 3 .• 

. (O00Q03) 

0022 , 

0 023 

D015 

VPTR ; . 

Ou 0 5 ■ 

( 000005)' 

0 027 


0 015 ^ 

- VIO 

■ 0 00 8 

(000008) 

0020, 

0 02 5 

0016 

VTDS 

00 0 6 

{ OuQOQb) 

0 0 26 


0017 

PLl 

uOOl 

(0 00001) 




o 


o 

o 

o 


o 

o 

o 

o 

o 


o 

o 


V**- 


o 


G 


o 

o 

o 

o 

n, 

o 

o 

o 

o 

c 

o 

o 

o 


o 


Tift 


PAGE 


3 


DATE; 01/27/99 



o 

C) 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

C) 

o 

o 




T16 


PAGE 4 

DATE; 01/27/99 



o„ 

EX T 'E R 

N A L S 





; O 

G 

,,v,DtF .LINE 

, NAME 

VALUE , 

, REFERENCED 

AT-LINE number 


. r"i 

V..-' 

O 

0Q07 

ASC 

00 0 A 

0 028 



. O 

o 







, O 

o 







, o 

o 







o 

o 







0 

o 







; O 

o 







: O 

o 







^ O 

o 







; O 

o 







O 

o 







: O 

o 







O 

o 







O 

o 




‘ . .... .. . ... . S 

— 



^ O 


Tie 


PAGE 


DATE; 01/27/99 


i' ') 


u 


O 




o 

o 

c> 

o 

o 


ALPHABETICAL SORT 0 F Y M B 0 L S 


ASC 


0 00 7 I 


0 0 00' PLl 


0017 Tie 


00 0 6 Ti&A 


0 02 6 VID 


0015' VPTR 


0015 VR 


QG15 \/TDS 


0 L Ic 


( 

o 

o 

o 

o 

r) 

‘v.f’ 

O 

V*..' 

o 


i \ 


u 


o 

: O 

o 

: O 

o 

: O 

o 

O 

o 

: O 


O 


DTI HER 


PAGE 


DATE: ul/27/99 


o , 

0 00 1 
GOO 2 

■ • ' 



0D03 




00 0 4 



O ' 

',0 0 0 6 
00 0 7 




00 0 8 

QQOO P 



0:0 1 1 


V- 

o 

GO 12 



0013 




■ 0015 



o 

0017 



o 

0019 
-■■.0-D2 0 
-- 0021 

. 0 0 04 



■ 0Q22 

0 0 03 


O' "■ 

DQ23 

0 0 QA,} ' 



002,4 . 

0 0 08--.- 



0025 ' 

' ' - 40 00 , 



-0026 - 

00F4 • 


Q 

DO 2 7 

OOEA 



0 0 02 



NAM DTIMER ■ DECK-IO MGi?' MSO$ 9.0 

MASS. STORAGE OP ERA TI NG . SYSTEM- VERSION 5.0 , 
SHALL SYSTEMS DIVISION, -LA JOLLA, CALIFORNIA 
COPYRIGHT' CONTROL DATA CORPORATION 1976 


SJMMA'RY-i:l uMuSCtluDi 
. .HQs.SuJQE 
M 0500003 
M0 5'G D004 


E0 06, DIAGNOSTIC TIMER : 

ENT DTMER 
EQU DTMER(^) 

this: COREv RESIDENT PROGRAM IS OPERATED PERIODICALLY. 

VIA A TIMER REQUEST. IT IS USED TO DETECT I/O HANGUP 
ONLY THE---DEVICES LISTED IN TABLE DGN TA-B ARE SUPERVISED. 

IT GAN BE OPERATED IN MULTIPLES OF 1/10 SECS 


ENT DTIMER 

EXT OGNTAB 
EXT , TMRLVL 
EQU .£DCLK(L) 

EQU EDPGM{35 
EQU -DELAY (10) 

EQU I.IMRC(8) 

EQU DBIT($tt0Q0) 

EQU AMONI (SFL) ,AOISP($EA) 

EQU ZERO (2) 


TABLE OF P.D'.T.- ADRS- 
TIMER, LEVEL DEFINED IN SYSDAT 
DIAGNOSTIC CLOCK LOCATION 
DIAGNOSTIC ERROR ENTRY 
DELAY TIME I-M- 1/10 SECS 
TIMER REQUEST CODE 


,'^^HSOS 


^^^MSOS 


H 0 5,0 0 0 U 6 
M0300007 
H 0 5 0 0 0 0 8 


M0500.Tjll^ 

MQ500012 

MG500013 

MO 5 0 0 01 5 


„ :MQ50Gu17, 

H0 50 0'019 
uM0 50 G02C 
M 0 5 0 0 b 2 1 
M05G u,02 2 
M05u0u23 
M050 J02L 
0M050G Q25 
M05yQ026 

M05uU027 


O 

O 

o 

o 

o 


o 


o 


Q 

o 

.1 

o 

o 

o 


0029 POGuO OAOO 

0030 ..POOfil 6816 
G03i: P0002 E815 

0032 P00G3 E6G0 
■ P0004 7FFF 

0033 P00Q5- 0161 
0Q34- P00C6 1812 
0035 P0007 C204 
00-3.6 P,fl008'0121 
0'0'37- P00G9-18QC 
0038 P0 00A'Q9F,E 
003-9‘ POaOB-6204 
OOAOPGGGC 0131 
0041’ POOOO 1808 
0fl42'P000E C602 

0043 -POOGF 6804 

0044 POOlO ‘C203 
Q045 POOll'i.6803 

0046 P0012154F4 

0047 POO13FC000 

0048 PG014 QOGO 


DTIMER ENA 
ST A^ 
A2 'lOQ^ 

X ldq 

X 

SQP 
JMP^ 
A7 LDA- 

SAP 

.-FC.JMPf 

A5 - V INA 
• , STA- 

- ■ -SAM - 

. JM P^ 

A6 LDA- 

STA=^ 
LDA- 
STA^ 
RTJ- 

SCHEQl NUM 
SCHED2 NUM 


0 

J 

J 

OGNTAB, Q 


£DCLK,Q 
A5-^“l 
A1 - 
- 1 - .- 

£DCLK,Q 
A6-^-l 
A1 ', 

(ZER0),Q 
SCHEOl 
£DP6M,Q’ • 
SCHED2 
(AHONI) 

0 

0 


SET J=1ST LGIA ENTRY 


GET AUR OF P.D.T.. 

IS. THIS END -'.OF TABLE 
YES EXIT 


GO TO Ai. 

DECREMENT DCLK(J) BY 1. 

IFDCLK(J) IS NEGATIVE, 

SCHEDULE DIAGNOSTIC 
ERROR ENTRY 

CALL • SCH'EbuLER-.’ - 
REQUEST CODE, LEVEL 
LOCATION IN DRIVER 


H j 5 j u 029 
MO 50 0,03 0 
MG 50 0 03-1 
M05GQ032 

M0-5afla3 3, 
M05i0-U34 
M05afiC35 
M 050 0 036 
M 0 5 J 0 0 3 r 
M050 u 038 
Ma50a039 
M05Q0j40 
M050.0 utI 
M0 5L0 0'42 
M050'-0-,043 
MO 5,0 0 044 
M3 50^0045, 
MO 50 0,U'4o 
M050Q047 
H u 5 Q 0 0 4 8 


O 

o 

o 

o 

o 

o 


o 


o 


DTIMER 


PAGE 2 


DATE'S' 01/27/99 


P0.Q15. D8Q2 A1 
. PS 016 18 EB . 

P'0 017 0 0 00 J 

: , , ^ , 

■‘’p.0 018 G8 0 5 ' A3 . . ' 

•P0019 A016 
PGOIA 6807 ' . 

POOlB-6802 .. -V 

Pfl:Q'lC'' 54F4 ' . . , 

POOl-D' 5010 ■ RQCOQ 

POOIE 00 00 P 
POOIF OQOA 
P0020 14EA 
P0021 7FFF X OTLVL 


RAC,^. J 

JMP^; A 2 
NUM 0^. 

LDA^‘ RQCOQ 
AND-^7.$16 
AOD» :»TLVL 
STA«^aRQCOD 


insert, any other PROGRAM 
ACTION IN HER-E 
INCREMENT J BY 1. 


TIMER-DELAY ■ 
SETToDIAGNOSTIG TIMER LEVEL 
SFFFfl MASK 


RTJR iAIiONI) 

ADC .,TIMRC^B2flO^-$10 + OBIT 
ADC DTIMER 
ADC DELAY 

JMP- (AOISP) CALL DISPATCHER 

ADC TMRLVL 


006 7 


PGM= 0022 ( 


34) COM = OG-QO ( 0) OAT = 00 uO ( 


O 

O 

o 

o 

o 

c 


MQ5liju-»9 
M 0 -J 0 u j 5 u 
M e b u 0 J 5 1 
MiJ 5'Q 0 0 5 2 
..... HC'5-Q U 0? 3 
. t'l i] 5 0 0 U 5 H 
- ^^MSOE 4 .-LMu5uQb5,5 
■ .»>MSO'S', tMEBOaOSo 

» ^ H SO S ;,4 . GMG50U'j57' 
*^MSOS 4«GM050 0Q.53 
MupCQO^S, 
‘ ' »^MSQS':;4. OMdSOQOaO 
-‘^HSOS-'.H. oMOBudObl 
«-*^MSOS4.iiMqS.0,0 0o2 
, Mdb'Li. u 05 3 
r MuSGQQoL 

MO-5 0 0 055 


M05flfl067 


o 

o 

o 

r"i 

•w.-' 

O 

c 

c 

L-' 

o 

o 

o 

o 

o 

o 

G 


E Q U I V 


.DEF.LINE- 

■ ,Q 00 0 
0 0 21 
0 022 
0 023 
0 0 2 4 
0 02 5 
0 02 6 
0 026 
0 0 27 


□TIMER PAGE 3 


date: 01/27/99 


: L E N 

UJ 

o 


NAME ,, 

VALUE 

, 

I 

Q0FF,\ 

(00 6255) 

EDCLK 

0 0 0. 4 

(0QO.0Q.4) 

EDPGM 

D0Q5 

(000003) 

DELAY 

00 0 A 

( OOOQIO) 

TIMRC ‘ 

00 0 8' 

( 0 00:00 8) 

OBIT 

. 40 0 0,,., 

. (016:3'84) 

AMONI 

00F4 

(000244) 

ADISP 

OOEA 

(000234) 

ZERO 

00 0 2 

(000602) 


REFERENCED AT LINE NUMBER 


0 0’’35 ^ 
Q.Q44 
0 0 63 
0061 
,0061 
0 0 46 , 
0 064 
0 0 42 


0 039 


0 060 


DTIMER PAGE 4 DATE: Cl/27/99 


REFERENGEO AT^INE NUMBER 
D0Q7 

0017, 0062 

..,',0052 '■ 

;:,0 0 33 --' 

■ 0 036 ’ 

0 0 40 ■ 

00 43 
0045 . 

0D37, DQ41 
0030» 0031, 0051 
0 034 

0 0 55, G 058 
0 057 


o 


o 


o 


o 


C) 


o 


o 

S Y M B 0 

L S 


o 


; DEF.LINE 

NAME ‘ • 

ADDRESS 

o 

0 0 0 7 

OTHER 

0 000 

0017 . 

DTIMER 

OOOQ.. 


■ 0031- 

A2 

000 2 


0 0 3 5. ‘ 

A7 

00 0 7 


0 038, 

A5 

OOOA 

EJ 

0 0h2-. 

. A6 

. QOOE 


, 0047 -■ 

SCHEDl 

0013 . 


.0 048 .. 

SCHED2 

0014 


■ ■ . 0051 

A1 

0015 

■v^ 

. ' 0Q53 

J 

0017 


.0 05 5 .. 

A3 

0018 


. QQ61 

RQCOO 

OOID 

1 . 

0 065 

DTLVL 

0021 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



DTIMER 


L!i 

EX tern' A LS 



DEF.LINE NAME 

VALUE 

O 

0C19 0GNTA8 ' 

0020 TMRLVL 

OOOL 
00 21 

G 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PAGE 5 date: 01/27/99 


REFERENCED AT ilNE NUMBER 

' 00'32 
0 065 



O 

O 

r\ 

•w,'' 

O 


C) 

o 

o 


o 

o 


o 




o 

o 

o 

o 

o 


C) 


o 


A7 di:.'3'? AOlSf?' uiiZb AHONI u-Zo OdIT 

EDCLK 0C2i EDPGM ' 03 22 I J 

ZERO 0027 


o 

c 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

C ') 


TMINT 


PAGE 


1 


DATE; 01/27/99 


0 00 1 
00 0 2 

Ar 

QQ 03 


000 4 


G 0 Q'6 


0 0 0.7 
000 8 

0 u u 0 P 

0010 
0 011,, 



NAH- THINT DECK-IO HGb MSOS 5.0 

MASS STORAGE OPERATING SYSTEM -VERSION 5.u 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


0012 

0013 

0014 

0015 
0D16 

0018 

0019 


0020 

DQ21 


0 0-2 2 


0023, 

0024 

0025 


0026 

0027 

0028 
QQ2 9 

0030 

0031 
003 2- 
0 0 3 3- 
0D3 4: 
0Q35-' 
0 036.- 
•00 37' 
0038,- 
0 05-9' 
0040- 
0041 


■PQJ3D.0 

POOOl, 

P0 0Q2-.- 

POODS 

P00Q4- 

P0005- 

-B-00 06'.- 

P00C7^ 

P'0008 

P00G9 


00E8 
00 01 
0-002 ■■ 
00 03, 

0 0 09 
0 0 03 . 

0 0.05 
0006 . 
00 07 ■- 
00EA.■ 

0 0 23 - 
00 02 
00F4 
00B4 ■■ 

0022 : - 

OOBE". 

0 0B9 
0003-'- • 

0 3 OF - 
aOGO P 


0 8 22'- 

C 1 0 8- ' 

0133- 

flAQ3-- 

8103 

610 3 

C622 

OF 49 

A0Q7 

09FO 


ENT 

TMINT 

EQU 

TMINT(^) 

ENT 

TIMEUP 

-ENT 

T3 ■ 

ENT 

T15 

ENT 

TMRTHD 

EXT 

NSCHED 

EXT 

TIMEC 

EXT 

SYF-AIL 

EQU 

CLOCK (££8) 

EQU , 

PC(l) ,PT (2) 


T8 


TRIX 


SU H M A R Y- 1-1 ^ ^ f- 

MO fa-u li j_G 2 
M0dOuGj 3 
MQ 5 3 0 fl 0 4 


!i'j fa 3 0 3 0 6 

MObuOOa? 

MubuOOOfa 


ENTRY POLL-OWING TIMER --INT. ACK. -'^MSOS 4,. 1-M 3 60 0 0 1 C 
TIMER .RtaUEST- PROCESSOR „ ■' Mufa^tOGll 

PART 1. -TIMER REQUEST ^^HSOS 4 . E ’ -H Do 0 0 012 

TOP OF TIMER THREAD - 

NO. OF S.CHEOULE CALLS DURING A TIMER IN TERRUPTMOou u 01 3 
NO. OF TIMER INTERRUPTS’^ 1 /I G - 1 Ha&OOul^ 

SITE FAIL LOCATED IN SY-SDAT (S18FF) MudjOuIS 

r-r . MGDU 0 01 7 

riME(3) MO 60 0 018 


EQU ' RCSCHD(9) REQUEST CODE FOR’’, SCHEDULER 

EQU VR(3) ,VPTR(5) ,VTPE (6 ) , VTMP (7 ) 


EQU ADISP (3EA) , ON EBIT ($23) ,LPMSK($2) 


EQU - AMONI ($F4) 

EQU T0MPT(£B4) TOP OF EMPTY STACK 
EQU ZERO ($22 J ,ACABS ($BE) ,AREQXT ($B9) 


-EQU r T83IZE(3) 
EQU P1TIME(15) 
EQU T15{») 


TRA Q 
LDA*-8,I 
SAM ;TR1X 
ENA - T8SIZE 
ADD-;VR,I 
ST A- VR', I 
LOA-. (ZER0),Q. 
ARS 1-9 - 
AND- LPMSK+5 
INA -PITIME 


LENGTH OF TIMER REQUEST 

timer' re;quest .processor 
SKIP IF .indirect request 

LENGTH OF CALLING SEQUENCE. 
CHECK FOR PART 1 TIMER REQUEST 


^^^MSOS’4. 

^^^HS.0S4. 


T-5^^MSOS-» . 
^^^HS0S,4 . 
’^•^^MSOS-. 
^’^^NSOSA. 


M0 6'5 0 01'9' 
M0600020 


M06uGu21 


M3 60 0 022 
-M0&0a023 
MQb00024 


M0600025 
MO bO G uEb 
MObjQ02 7' 
M063-U 028 
- MG6ua029 
jMa600.,a30 
'- ,-M0,bA,ii -0 3 1 
0M06,Ooe32 
OMO'BG 0 03-3 
MOd03u34 
M^oOCuSb 
■ MO b 0 0 0 3 6 
4 MO 6 GGO 37 
uM J 60 u 03 6 
u,M0 6j 0 03 9 

■;Mij6i-,004C 


date: Gl/27/99 


POOuA 

poaoB 

P 0 G'.u C ' 
POOOD 
pa ODE 

PGOOF 

ROOlO 

POOtl 

P0012 

P0013 

POOIV 

POfliE-’ 

P0016/ 

POOi7- 

POOl-8' 

pooig 

poaiA- 

P0G:i8. 

po&£g; 

POQIO 

PQ GIE 

POOIB' 

PQG20-; 

:PQ02J,'' 

P0 02H-..' 

PO a23 ■ 

P0 02A 

P0025 

P0026 

POQ27 

P 0 , 0:2 8 

P0029 

PG02A ■ 

P002B 

POQ2C 

P002D- 

P002E 

P002F 

P0,03a- 

P0031 

POC32‘ 

Pfl0,33- 

PQQ34' 

P0 035 

P0036^ 

POQ-3-7- 

P0038 

P0039 

P003A 

POQ38 

PO03C 

PO OoD 


0114 
C'2 0i •< 
B032 
0822 ■■■ 
18 OA 

C622 
A. 0 31 
0114 
C201 
-0122 
0 822 
1803 
C2Q1 ■ 
54BE 
4107 
El 05. 
C622 • 

A 0 0 O' r- > 

Q OCQ^.-- 
0102- 
54 00-. X , 
•7FFF' X. 
,C4FF ^ ■ 
AOll ■ 
64FF 
C622 
ACOQ 
400F 
8000 
1200 
O5G0 . 
E0B4' ■ 
OOQ G 
0152 
5400 X 
OOIF X 
6622 
C202 
6 0 B4 
4106 
C107 
6201 
El 05 
C622 • 
0F44 
Afl 04 ■ 

0822 - - ■ 
4107.. ' 
CA54 ■ 
El 06, 
6202 
0814 


TRIG 


NOT 01 R 
TRIA 


CLRBI 5 ;. 


TRIB 


SAN- TRIG - . .. 

LDA-4- PG,Q .V. 

EOR-. ONEO.ITi- 15. 

Tk'Ah': Q. ii. 

JMP^' TRlA + 1 . 

RC=a GO TO PARAME 
EDA- (ZERO),Q 
AND- 0NEBIT-H4 
SAN NOTOIR 
LDA- PC,0 
SAP NOTOIR 
TRA Q 
JMP- TRlA+1 

>LOA- pc»a 

RTJ-. ( ACA8S) 

STQ- VTMP,I 
LOQ- VPTR,I 
LOA- (ZBRO),Q . 

AND: =N$;.pQC0 

•SAZ C 0^815 
,RTJ+ SYFAIL .. . 

■•LDA- (i'3 
AND- LPHSK415 
STA- (I)'.: 

LOA- {ZERO),G 
AND =NS4QOF 

ADD =XRCSCHD-^$2Q0 


•SKIP , iF'. NOT iPAPr 1 TIMER REQ 

SET B.ltriS of" COM-RLETION IF RC = 21 
.SYSTEM . .DIRECTORY, PART 1'. 

AND ABSOLUTIZE 

CHECK FOR PART.O DIRECTORY CALL 
D BIT SET, NOT PART C 


BIT 15 SET = DIRECTORY CALL 
■DON'T. ABSOLUTIZE DIRECTORY CALL 

ABSOLUTIZE CONPLETION ADDRESS 
ABSOLUTIZE COMPLETION ADDRESS. 


PICK. UP USERS ORIGINAL 'U' FIELD 

NO ERROR 'U' .LT.'.'l 
ERROR 'U ' .GE . h- -!• HANG 

CLEAR BIT 15 IN USERS Q-REG 


S-AVE PL AND D BIT 


IIN 
LDQ- 
INQ. ■ 
SON 

RTJ+ 

-STA- 

LDA- 

STA-: 

STQr 

■LDAt. 

STA- 

LOQr 

LDA-. 

APS 

AND- 

TRA- 

,STQ- 

LDA^ 

LQQ- 

STA- 

TRQ 


0 

TOMPT 

0 

TRlB-^-1 

SYF'AIL 

(ZERO) , Q 
PTrQ" 
TOMPT 
VTPE, I 
VTMRtI 
PC, a 
\/PTR,I 
(ZERO) ,Q 

LPMSK+2 

Q 

VTMPjI 
THREAD, Q 
yTP.E,i 
PT,0 
A 


THREAD IS EHRTY, GO TO 
SCHEDULER STACK OVERFLOW ..-HANG 


REMO, VE, 'SLOT FROM EMPTY LIST 
SAVE. ADDRESS OF EMPTY SLOT 


USE ONLY LOWER 2 BITS 


.-THREAD TO' THREAD tD) 


^ * M S C S -r . . M 0 b u 0 L 4 1 
^«^MS,0S4. C.MO6OGQ42 
^-^HSOS CHOcuG 0^*3 
» ^HSOS-i-. wMu6uu,J4-r 
^^■MSOS -r.CM060 Gu4p 
.MQ6UOO46 
-^MSOS DMU.6C-0 047 
'^^MSOS 4....Mu&QyO:t8 
-^■^MSOS t..-Mu60u 0“9 
^-MSOS 4.DH0600Q'5G 
-^MSOS 4.jMG6uGu5l 
^^MSOS GHD6GG 05 2 
^^MSOS -r.cMJ6ja0p3 
"'^■^MSOS ;t.GMG6-uGu54 
M060.0 055 
M06Q 3 u5o 
H j 0 p u p 5'7 
M .j 6 3 Q 3 5 8 
M0600059 

Mu 63 0 06 0 
HOfaO'Oubl 

M06-3Q G52 . 
Hu 600063 
MG 60, 0 66 4 
H 0500055 
^MubOO 066 

HO&00067 

Mu bO-O u6,8 
H j 6 O' 0 u 6 9 : 
. M060aD7G' 

M0&UO371' 
H0600u72 

Mpby3a73 
. H'j6uGu7'n. 
Mub,G u 07 5 
M 0 b 0 ,0 0 7 5 
M0cG0a77 
Mj6Q0076 
MG60UG79 
HOouu 08 O 
MO&00081 
M 0 6 u G j 8 2 
, Hu bii G G 33 

H 060008*, 

' MG&30U85 
MO 6 u 0 0 86 
HObOO 087 
MObOO 088 


O 

O 

o 

c 

n 

ri 

O 

O 

o 

o 

o 

o 

o 

o 

o 



TMINT 


PAGE 3 


date: ul/27/99 


O 

o 


0090 P0 03E E107 

0091 P003F 6A4F 

0092 P004-0. E105 
00 9 3- P0 041 . C2 02 
QG94 P0042 Ei06 

0095 P0043.6203 

0096 

0097 P0044 1489 


I 


Alt- 


LOQ- VTMP.I 
STA^' THP£AD,Q 
LDQ- VPT9,I 
LDA 4 k 2 ,(J- 

LDQ- VTPE,I 
STA- PTIME.Q 


JHP- (AREQXT) 


GET -USERS' TIME’ 

FRO Hr USER S C At- L IN G S EGU EN C E- 

PUT TIME IMTO SLOT. 

11 CARDS DELETED 
EXIT 


o 

o 

o 

i' '• 

o 

o 

o 

o 

o 

o 

o 

o 


C) 


M0600089 n 

M0.6'0p90 ^ 

M u □ 0 0 ti 9 1 
-MO 60 Q 092 

MQ6QQQ93 O 

HO Du 0 09^ . ^ 

M Q 6 0 0 Q 9 5 
MOdCu u9d 

o 


o 


o 


C) 


o 


o 


o 


o 


o 


o 


o 


o 


c 


o 


THINT 


PAGE 


date: Oi/27/99 


. , , 

C099 

P0Q45.' 

00 E8 , 

TIMEUP 

RAO.- 


010,0-.^ 

- P 0 0.4 6- 

■C400 

X 

LDA... 



P0Q.47 

7FFF 

X 



QlD:ii: 

P0048 

‘683C 


STA'f 


0102, 

'P0C49 

ocoo 


ENQ‘.- 


010,3 





010,4 , 

,-Pfi0-4A': 

48 39 

NX! TIM, 

STQ¥ 


• 010:5^ 

,Pa048! 

iCA3E 


LDA*> 


■ 0106- 

PQQ4C 

0133 


SAM-. 


0107 

P004D 

0103 


SAZ '. 


0108 

PQ0.4E 

D9FE 


INA-, 


Q10.9 

POOEF- 

6A3A 

V . 

STA^ 

P) 

0110 

P0050' 

14EA 

EXIT 

JMP- 


,.. 0112 ' 

■ R0051 

CA34 

■- RESET ‘ 

LOA^ 

D ' 

■.,0113,' 

P0052 

6A37 

' 

•STA4 


0114- 

PO 053 

FQ 00 


ADQ 


O' 

O' 

O:; 

C"' 

o 

o 

o 

o 

o 


P0Q54. 
.’0115. 
OllD’.iPO 05 5-; 
Gil ?.:irP 0 056* 
0118-.-.P0 057- 
0119: 'PB 05 8 
012 0 'P0 05 9-' 

0121 PD05A 

0122 P0058 


0 0 8C P 

40 FP 
£102 
OOGO' . 
0153 
E82A 

0001 
18EE 


012 4, 
012 5' 
0126- 
012 7. 
Q12-8- 
012.9 
013,0". 
•0131 
0132 
0,133 

0134 ■ 

0135 

0136 

0137 ’ 
0138;- 

0139 

0140 

0141 

0142 
0143' 
014*"^ 

0145 

0146 

0147 


P005G 
PC05D' 
P0 05E 
P005P 
P0060' 


PG0'fe2'' 
POa'6,3,- 
PO 06 4 
P006-& 


POO 67: 
£0 0 68’ 
PQ069 
P006A 
POO 68 

P006G 

P006D 

P006E 

P0Q6F 

P0070 


CHKTHR 

LOOP 


STQ-., 

LDQ- 

INQ 

SQN 

LDQ4 

INQ 

JMP^’ 


CLOCK 

NSCHED 

NUM3CH 

0 '• 


TIHGTR,a 
EXIT.-^-l 
RES E-T-’^-l 
-1 ■- 

TIMCTR,Q 

(ADISP) 


RSTGTR,Q 
TIMGTR, Q 
=XTHREAD-2 


I 

PT,I 

0 

TDREQ-^-1 

TIMIDX 

1 

NXTTIM 


INCREMENT CORE CLOCK 


’f^MSOS 


C203 

TDREQ_ 

-LOA- PTIME,Q 

0103 

SAZ , CHKSGH-^-1 

09FE 


INA , -1 

6203 


STA- PTIME,a 

18F4 


JMP^- CHKTHR 

C823 

- CHKSCH- 

. LQA* - NUMSCH 

0119 


SAN SCHE.DU-^-1 

C820 

- LOPl 

LOA^ TIMIOX 

0111 


SAN PUICNT-’-i 

18EF 


JMP^ CHKTHR 

C202 

PUTCNT 

LDA- PT,Q 

6102 


STA-, PT,I 

C826 


LDA* THREAD 

6202 


STA- PT,Q 

4824 


STQ*. THREAD 

18EA 


JMP* LOOP 

C201 

SCHEOU 

LDA- RC,Q 

6807 , 

. 

STA* CAl.L + 1 

C6 22 


LOA- CZERO),Q. 

6804 


STA* CALL 

OFFO 

- 

LLS 16 


SET NUMBER OF SCHEDULER CALLS ALLOWED/PERIOD 


CHECK -NEXT TIME COUNTER 


ALL DONE, EXIT 
•TIME COUNTER XOUNTED 


DOWN, RESET 


DECREMENT TIME COUNTER AND EXIT 


RESET TIME CO-UNTER AND CHECK ITS THREAD 


CHECK THREAD FOR TIME DELAY REQUESTS 

TIME DELAY REQUEST •'.■ENCOUN TEREO 

END OF THREAD, CHECK NEXT TIME COUNTER 


TIME .:DELAY REQUEST 

TIM-E DELAY HAS EXPIRED 

DECREMENT TIME ,;DELA Y ‘rEQU EST AND 
CONTINUE TO, CHECK THE THREAD. 

HAS, NO. SCHEDULER CALLS. BEEN cXCcEDcD 
FOR ■'■THIS PERIOD,. 

YES, CHECR, IF,.' ON- COUNTS: THREAD 

YES, • CONTINUE TO CHECK THE THREAD 

NO, PUT THE REQUEST ON THE COUNTS . THREAD SO-,. 


COUNTI'NUE TO CHECK THE THREAD 

'move CALL- FROM TIMER THREAD 
PUT Q IN -A TO SAVE THROUGH MONITOR 


**M'0 6Q 

0 098 

MG b J 

u 0 9 9 

M,0 60 

OiBO 

..Mib.ij 

Ului 

MO 60 

0102 

MO 6ii 

010 3 

' Mu60 

010 4 

.M060 

Ul05 

..M0.58 

,u 1 0- 0 

, MO 60 

010 7 

M060 

01D8 

Hu 6 Q 

010 9 

MO 60 

0 111 


uil2 

M06u 

0115 

MO 60 

0114 

- HQ 60 

0115 

Msi'6Q 

0 11‘6 

M 0 D j 

u 11? 

HG60 

0118 

MQ60 

0119 

Moe-G 

012 0 

M 0 6 U 

u 121 

M 0 60 

0123 

Mo D ii 

ul2v 

'.HC60 

0125 

MO 60 

012 6 

Ma,6C 

012? 

H06G 

0128 

Mu 60 

Q12 9 

H060 

0 130 

MO 60 

0131 

MOd u 

0132 

HQ60 

0135 

MO 60 

0134 

M060 

013 5 

E . M 0 D 0 

0136 

HO 60 

013 7 

MU6G 

G138 

\ MO 60 

0139 

.MOdO 

0 140 

M 0 60 

0 i-ti 

',;M0 6u 

0142 

MO 6 0 

u 14o 

■ MG60 

Gif'* 

Mu 6 3 

U li+ 5 

MQdQ 

0 b 


C'^ 

o 

o 

o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 






date; 01/27/99 


0151 

0152 
015 3' 
015V 
0155 
015 6 

015 7: 
0158. 

0159 

0160 
0161 
0162 
0163 

016 4 

0165 

0166 


RCO^Zi;- 
R00:72- 
P0073" 
POO 7 4 
P0 075-' 
P 0 0.76. 
PO Q.7'7v:. 
PQG78/ 
■PQ079' 
P007A 
PQ07B 
P007G 


£0 E8 
54F4' 
00 0 0 
OOQO 
OFFO' 
012.1 
18EB 
C80C 
09F£ 
68QA 
C202 
6102 


■P007'D 0500 
P0 07E CO 84 
P007F 6202 
P0080 40B4 

P0081 0400 
P0082 1803 


CALL 


GOGO 


LDQ- CLOCK 
PTJ- (AHONI) 
ADC 0,0 


LLS 16. 
SAPa GOGO 
jMP»' LOPl 
LDA^‘ NUMSCH 
INA -1 
STA».. NUMSCH 
LDA-- PT,Q 
STA- PT,I 


INA 

STA».. 

LDA-- 

STA- 


IIN. 0 
LOA- TOMPT 
STA- PT,Q 
STQ- TOMPT 


EIN . 
JMP^ 


0 

LOOP 


PASS- THE CORE CLOCK IN Q 

SCH&ULE THE REQUESTED COMPLETION ADDRESS 

RESTORE POINTER TO LIST 

BACK;.T0 RETHREADINC' SECTION IF REJECT 
OECRgMENT NUMSCH 

TIMER DELAY HAS EXPIRED. 


RETURN SLOT TO EMPTY' THREAD 


CONTINUE TO CHECK THE THREAD 


MUd00147 
HObOOlLe 
M 0 6 0 u 1 4 9 

MOd'] 0 150 
HG 60 0151 
M0600152 
M060 015 3 
MO 60 0 15 4 
MO 60 015 5 
MObuOiSo 
MO 60 015 7 . 
MO 60 u 
M06Q0139 
Mj c 0 0 16 0 
M060G161 
MObOOlbE 
MO 6 D 0 16 3 
HubO 0 15 4 
MObOOlbS 


0168 P0083 0000 
0159 P0084 0000 


TIMIDX NUH 
NUMSCH NUM 


TIME ' COUNTER INDEX 

MO SCHEOUER CALLS PER TIME PERIOD 


Mu 63 fl 16 7 
Hu 60 0168 


0171 

■ * 

TIMER UNITS MAY BE 0 

.017 2 


. OR 1-. 

017-3 

¥• 

OR 2.. 

0174, 

. * ' 1 . 

OR 3.: 

017 5 

* 



0176. 
0177 
0173 
• 0179 
018.0-. 
0181 
0182 
0183 
■0184 

0185 

0186 
0187 
0188' 

0189 

0190 

0192 

0193 


P0.G85 0000 
P0086' 7FFF' X 
P0087 0009 
P0088 003B 

P0089 0000 
PO'.aSA OQOO • ■ 
POQ'SB<''OGOO 
POO'SC'OOCO ■ 
P00'8D.' FFFF' ■■ 

P0 08E FFFF^. ' 
.P008F FFFF'.- ' 
P0090 FFFF 
P0091 FFFF 

' 008E P 


RSTCTR ADC 
ADC 
. ADC 

ADC 

* 

TIMCTR- ADC 


THREAD 


1-1 ■ 
TIMEC 
iO-i 
60-1 


« .A. w w vy ’ 

SECONDS 


NUMBER OF .COUNTS' . PER 
NUMBER OF .1 SECONDS 
NUMBER OF SECONDS PER 


.1. SECOND 
PER SECOND 
MINUTE 


TIME COUNTER- FOR. COUNTS... 

TIME COUNTER FOR .1 SECONDS 
TIME COUNTER FOR SECONDS 
TIME COUNTER FOR MINUTES 
END OF TIME COUNTER TABLE 

THREAD FOR COUNT DELAYS 
THREAD FOR .1 SECONDS DELAYS 
THREAD FOR SECOND DELAYS 
THREAD FOR MINUTE DELAYS 


TMRTHD( THREAD) 


H06U0190 


PGM= 0092 


146) COM = OOO'fl. { 


C) 


TMINT 
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DATES 01/27/99 


EQUIVALENCES 


DEF,LIN£ . NAME ; VALUE 


REFERENCED AT LINE NUMBER 


{ J 

OQOO 

I 

OOFF 

( 0 0.0 255) 

■■ O-a.eo,’ GD.6 5, 

0116 


ooia 

CLOCK 

0OE8 

(flf,0'2.32),- 

•:v..0'699',' 0:1.48 



0 019 ■> 

' PC •- 

' u-Q Ol 

(0 0,0„001) 

-^-.0'0'.43 .j 0.0 51, 

0 0,55 , 


0 019 

,rPT;,.., 

.0002,.-. 

.-.'M (,D>aaao2).,' 

-ry0,075:," -O'088, 

0 11:7 , 

o ■ 

0 019 

• PTIME . 

, 0 O '-O 3 

' (00^.003) 

■■'.fl;095,'’ 0-12.4, 

0127 


0 020 

- RCSdHO \ 

0009, ■, 

'CO.G’0.Q'O9) 

■'■,.0 068., ;■•". 


,■ 

0 021.,, 

VR 

.000 3\ 

■ (000003) 

... ■0.0.36,,'.. Q:8i37 . 


'■ ■ , 

0021'.^ T, 

• VPTRL.,. 

■ O Q.Q 5 : 

tOa-MOB) 

'-’;-f'0 0 58:,.:"-B"8:8.0r' 

..0‘O92 

O ‘ 

0 0 21 , 

-VTPE 

00 i}'£ ■ 

(0006 06) 

."ri'QQ77, 00.87, 

0094 


D 0 21 

f V'TMP 

O.UOif.!. 

, (000007) 

-0.0,57, 0'078, 

0 0 85, 


0 0 22 . , 

, AO ISP ■. 

OOEA 

(000234) 

■0110 



0 022 ' 

ONEBIT 

0023; 

C0.OQ.035) 

0044, 0'049 



0022 ■ 

LPHSK 

S0O2- 

(00,0002) 

■ 0 0 40 , O'064, 

' 0 083 


0 0 23 , 

AHONI . 

OOFA 

( 0,0 0‘2a4) 

.0149 



0 024' 

TOMPT . 

00 B A • 

(000130) 

',0070 , 0.0, 7, 6, 

.' 0161, 


, QQ2'5 

..'ZERO 

0 0 2.2 

(00'Q034) 

'.."'0,0 38 , ' Ct'k'df 

■0359, 

l’ 

0 02 5 . 

ACABS • ' 

OOBE ■ 

(0 Q0'19G) 

■ u 0 56. 



, 0025- ■ 

. AREQXT'. 

00B9.. 

, (000185) 

- 0097 



0 026 

T8SIZE 

0003 

( 0 00003) 

0 035 



QQ27 

PITIHE 

ODOF 

(OOQQ15) 

0041 



1 'l 

s„. 
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date: 

01/27/99 





O 

S Y M B 0 

L- S 









c 

O ' 











■ r-N 


DEF.LINE 

■ NAME 

ADDRESS 

referenced AT. 

.LINE NUMBER 







. QQ07 ' - 

. Till NT 

U OOG 

OC 07 . 







o 


. CQIQ 

TIMEUP-‘ 

0045 • 

..-0 0 10 








' Oilli 

T8 

00 0 0 

■ 0011 









,..0012 

-1.15 ■■■- 

0 0 0 0 ■. 

. -0 012 








C/ ’ 

' ^^.'0 013 

.TMRTHD . 

00 8E 

. . 0013 








0 0 38 

. TRIX 

00 0.6 

. ... 0034 







■ ( 


. 0048 

TRIG . • 

OQOF 

■ 00 42 








■ '1 

' 0 0' 5 5 . • 

. NOTDi'R.. 

0016 

■ . . 0Q5Q, 

0 052-'- 







o 

0 0 56 

TRIA •: 

0017 

> ■ 0 0 46 t 

0 05 4 






O 

, 0063 

CLRB15 .. 

0020 

0 0 61 







0 07 4 

TRIB 

0Q2E 

0 0 72 








0104 

NXTTIM ■: 

004A 

. • ■ 01-22 









DUG'. ' 

EXIT 

0050- ■ 

0106' 









0112 

RESET- 

0051 ■ 

0.10 7 







: O 


0116 

. CHKTHR 

005 5 

0128, 

0134 







Oil 7 

LOOP - 

0056 

0141, 

0166 








0124 

TDREQ ' 

D05C 

0119 









0 130 

■ CHKSCH . 

0061 

0125 









0 132 

• LOPl 

0063 

0153 








013 6 - 

■ PUTCNT ■ 

0066 

0133 








O' 

■ ■■0143 

SCHEOU . 

Q06C 

0131 







■ o 

■ 0 15G • ■ 

CALL .. 

0073 

- . 0 1 44. , 

0146 . 







0154 

GOGO . 

0 0 78 

, 0152 








Q 168 

TIHIBX ■ 

>0 0.8 3 

Q 1 04, 

0120 , 

0132 






O' , ■ 

0169 

NUMSGH • 

00 8 4 . . 

■0101, 

015 0 , 

0154, 0156 . 






• ■.017 6 

RSTCTR 

■•0085' 

^'••S'il2- 






■ T) 


0181 

TIMCTR 

00 8 9 

. ■ 0105, 

0109,' 

0113' 







018 7 

THREAD 

008E 

0 0 86, 

0091 , 

flil4, 0138, 

0140, 0192 




o 

o 











: O 

o 











: O 

o 











O 

o 











n 

o 











; o 

r\ 

V./ 











O 


- - ■ - - - 

• 





— 

- . . . - 

_ . . 


, _ . 




o 


u 

n 

L..' 

O 

o 

o 

o 

p’) 

o 

o 

o 

o 

o 

o 

o 

o 
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date: Cl/27/99 


ALPHABETICAL SORT OF SYMBOLS 


ADA BS 

EXIT ' GilQ GOGO -0154 I OOOO LOOP 

NXTTIM 0104 ONEBIT -0022 . PITIME 0G2F- PC 

RSTCTR 0176 SCHEDU -0143 SYFAIL 3016' T15 

TIMEC 0015 TIMEUP 0010 TIM lOX 0166 TMINI 

TRIX 0038 VPTR 0021 VR 0021 VTMP 


TIMEC 

TRIX 


Q.025 ADTSP --0022 1 AHOMI v* 0 0 23-'^ AREQXT- - 00 25; .tCALL 


■GllQ GOGO 


OOOO . LOOP 


0038 VPTR 


0021 VTMP 


0117' ■ LOPl ' 0132 
0 019 'PT /0 019 

■0012 ,T8 '.^0011 

0807 TMRTHB 0013 
Qu21 VTPE Q021 


O 

o 

o 

o 

o 


o 

o 

o 


o 

o 


CHKSCH G 13C 
LPMSK 0022 
PTIME 0019, 
T;8SI2£ 0 02.6 

TOMPT G024 
ZERO GG25 


CHKTHR 4116 
MOTDIP', . „QG 55 
PUTCMT . 0136 
TDREQ ,D12-t 
TRIA 0056 


CLOCK Oi-iB, 
NSCHED Q-'l- 
RGSCHD 0‘:2u 
THREAD 0187 
TRIB fluF- 


CLRblE LiObo 
NJMSCrt 1169 
RESET ull2 
TIMCTR 0181 
TRIG U-P8 


C 

O 

o 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 
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date; 01/27/99 


0 00 1 
0002 
0GG3 
00 0 A 


*NAH MINT OECK-.IU MQ7 ,. ,HSOS 5.0 

MASS STORAGE OPERATING SYSTEM /.VERSION .5 . 0 
SMALL SYSTEMS OIVI SION , . L A JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY -11 6 ¥ -f ¥. 

r. , M0 7'C0u.02 
M 0 7 J b Lj 0 3 
MO/O&OQ A 


00 0 6 
0007 
QQQ 8 


0 0 00 


MANUAL INTERRUPTS 
ENT MINT 
EQU MINT('»^) 


PROCESSOR 


M u 7 C u .0 C 6 
MQ7DuaQ7 
MO 70 DT 0 8 


0011 
0 012 


003A 
0-Q3 5 

0036 

0037 
00 38 


^ THIS IS THE MANUAL INTERRUPT .ROUTINE 
NO -ATTEMPT IS MADE TO INTERRUPT REQUESTS 


PROGRESS 


OD‘1,4 - 

-. ENT 

■ MI 

Q0i:5 ■ 

- :f eNT 

HIB ■ 

0016 

ENT 

. HIBX 

0 017 

■ ENT 

RELFLE 

0018 

ENT 

S200BS 

0019 

ENT 

JOBSTR 

0 0 2 0 

* , 

E 

0022 ■ - : 

•’ext 

MIINP 

0023 

EXT 

. TSCNAC 

0024 

* 


0025. - 

. , -EXT 

TSC.NMI 

002 6 

EXT 

SIM200 

0027 

EXT 

CCP 

0029 

EXT 

JOBINO- 

0030 

. EXT 

FILEl 

0 031 

'.EXT 

SWTCH 

0032 , ■ . 

; , EXT 

JOBENT 

0 0 3 3 

• EXT 

•8ATCLU 


T E R N A L S 

'MI ' input BUFFER 
TIME ‘SHARE ACTIVE 
COMMENT DEVICE 
TIME SHARE MANUAL 


'SYSDAT' ) 


(IN 'SYSD 
ON 

FLAG. 

INTERRUPT 


ROUTINE, 


CURRENT CONTROL POINT 


■‘>JBCNCL I ; ‘..w, . ' 

‘,‘HIPRO . 

•LVLSTR,SWAPON,LENO 

RESTOR 

JPCHGE 


0039 



EXT 

LOAOIN • 

0041 




S Y 

0042 

■0 0F4 


EQU 

MONIT (SF4) 

.‘0.11.43 

.. 0 0 02 


EQU 

LPMSK 12)- 

0044 

0 0 22 


EQU 

Z£R0($2 2‘) 

Q045 

.. 0QF7 . 


EQU 

L‘3CORE{$:f7) 

0046 

0QE9 


EQU 

CREXTB($E9) 

004 7 . . 

0 0 2A 


EQU 

CHARS K($-2A) 

0049 

QOEA 


EQU. 

.DISP (SEA) 

00 50 

0 0 24 


.• EQU 

•U(36) 

0051 

00 01 


EQU 

RP(1) 

0 052 

OOF6 


EQU 

HICORE( $F5) 


LOADER- IN CORE- 'FLAG- 

r E M E Q U I 

LOCATION CONTAINS 

location’ CONTAINS 
■LOW CORE STARTING 
LOCATION' CONTAINS 
CHARACTER » 


E Q U I 
CONTAINS 

CONTAINS 

STARTING 


V.'-A L E 
MONITOR 


N C E 
A DDRESS 


ZERO 

ADDRESS 

CORE EXTENDED 


TABLE 


BUFFER LENGTH; 


M0700yil 
MQ7D 0 012 

MJ t JuUl*T 
Mu 700 01 5 
M.uT.GO'ulo 
' . _ M0.7G0 017 

1 1 6 ^ P 3 r 7 ^ ^ ^ 

■ ' ' MQ7G0013 

llb'^43 7 

116 ■’^'+37 

iiu*y3T 

1 1 b ■’/ L 3 7 7 

I lb ^ 437 7**^* 
lib^ h-37 

M3 7Gy.G.2l 
.:MQ 700 02 2 
C.MuZCG’OES 
, , :.:H0.73G02 4 

11 '6 ■’^43 77^^'^^^ 

’-MO'7G0 02 5 
Ma.7'Q.0u2 6 
'MG70G 027 
H3 70 0 02 8 
HG7flb G29 
MJ70UU3G 

116^43 7 
116-437 

116-^‘437'7^^^"^,^.»^» 

116- 437' =«-v-!i- 

I I b — ,4 3t-7- 7 ^ ^ ^ ^ ^ 4 ^ 

116*437 ^ 

M,0 70G.03 2‘ 
■MSOS ‘4. OM07GOG33 
M3 700.Q3 4 
MG7.00Q35 


O 
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date: 01/27/99 


(0 

o 


o 




o 


I ! 


O'. 

O' 

n 

• . 

o 


00 5,4 POO 0,0 C8 70 , MI 
00,55 ,P 0,0 O-l'. 8370a ■ 

0Q5& ,PD002 OlDl- , 

0057 P0003 14EA'-- • 

0058 POOO-r 0860- HIGO 

0059 P0Q05 54F4 
OuoO POOG6 4CE3 
0061 P0007 0000 

P0008 QOOQ 
P00.G9 , 18FC 
POOOA 0 0 02 , 

PQOOB 00B6 P 
0052 POOOC OAFF • 

0063 POQOD 0C23 ^ 

0064 POOOE 6E0A • Mil 

0065 POQOF OOFE ■ ■■ 

0066 POOlO 0171 

0067 POOH 18FC ' 

0069 P0012 54F4 vMI2.’„' 

0070 P0013 48E7 
007,1 P0Q14 0021 P ' 

007 2 • -• ^ 

0073 P0015, 00 00 THR ■ 

P0016 18FO 
P0017 0025 
P0Q18 7FFF X 
007 4 0018 P 1 •• 

0075 PGQiq 5-tF4 

0076 POOIA 5203 

0G77 POOlO OOID P ■>. ' 

007 8 PGOIC 14EA ■ ■■■ 

0079 POOlO C8F7 ' 11I2AA 

00 8 0 POQIE 0101 

0081 POOIF 18F0 

0082 P0020 14EA , MI2AE 

0083 + 


LDA^^ MIB , . • ' 

ADD,^,’MIBX , BOTH LOCK , OUT- FLAGS MUST BE ZERO 

SAZ^,'- MIGO 

JHP.-o iOrSP) NOT ZERO, .JUST GO AWAY 

, RAO.T' MIB 

RT J- . (HONIT) ,, OUTPUT 'MI' 

NUM S4CE3 

ADC $0,$0,;$18FC,$2,MIOUT 


,M07u 0 037 
; MO 70 0 03,8, 
M070 0 a39 

1 i6'^4-3 7 

M'ii 7 0 0 0 4 1 

Mj7QGu 47 
M u 7 u 0 0 4 8 


'■■■ENA 

£NQ 


STA^ 


INQ ■: 

SQM 

JMP^ 


RTJ~ 

NUM 

AQCa- 

AOC 


-0 ■ „ 

L-,1- ' 

(MIBFAD ) ,Q 

-1 

Ml 2-^-1 
Mil 

(MONIT) INPUT STATEMENT 

$48E7 

MI2AX COMPLETION ADDRESS /.TO Bt ENTERED 

AT LEVEL 7 
$0,$18FD,L+1,HIINP 


. ‘ H u 7 'j u u ^ 9 
*?:,»MSOS >;gM0.7GuG5C 

M0700fl52 
HQ7u0u53 
Mii /■ 0 0 05 4 

, 116^437 
■ ! iib^'43'7 
11644,37 

'-^MSOS 4. aM07G0058 


EQU ,, MIBFADC ^-1) 
RTjr, (MONIT) 

NUM. $5203 
A DC; MI2.AA 
JMP- (DISP) 

L0A:» THR 
SAZ MI2AE 
JMP^^ MI2AA 
JMP- (DISP) 


'fMl' INPUT BUFFER ADDRESS 
SCHEDULE DOWN TO 
LEVEL 3. 


THIS LOOP RUNS AT LEVEL 3. 'ITS 
PURPOSE IS TO, INHABIT THE BACKGROUND 
PROGRAMS FROM EXECUTING 'UNTIL THE MI 
INPUT REQUEST IS COMPLETED 
(AT L.EVEL 7) 


11d^>+3 77^*^^^4'^^'''' 

1 i b 4 3 ^ 4 ^ 

llo^437 74^«'4^s4!Mf- 

116-^437 
1164 437 

11 c "^,4 37 74-r- ^ 

116’'437 7*^^*^**’r 
116^437 7>i-^v-^9-^¥-=f- 


Q 


C 


{ \ 


r\ 


{ » 


C 

o 

o 


o 



0085 
008 6 
008 7 

P0021 

0162 

MI2AX 

SQP 

MI 2 A 

THE INPUT REQUEST ;IS SATISFIED. 
SKIP IF NO INPUT ERROR. 

1 1 6^- 43 7 7» * 

ll6’-43 7 7»'4s-¥-fv«- 

116^437 


0088 

P0022 

1800 


JHP 

MI16 

IGNORE 

INPUT AND EXIT. 

± ±t>^hS7 >!■ 

O' 

0089 

P0023 

P0024 

:008A 

CQOe 

X MI2A 

LDA 

= XCCP 

CURRENT 

CONTROL POINT 

116-437 

o 

00 9 0 
0091 

P0025 

P0026 

P0027 

7FFF 

BOH 

0108 

X 

EOR-r- 

SAZ 

LPMSK- + 15 
MI21 ■ 

SKIP IF 

NOT TIMESHARE SYSTEM 

1 16^43 7 V 


0092 

POO 2.8 

C4G0 

X 

LDA + - 

■TSCNAC 

SKIP IF 

TIME SHARE IS NOT 


Q 

0093 

P0029 

P002A 

7FFF 

0105 

X 

SAZ 

MI21 

ACTIVE 

AT THE COMMENT DEVICE. 

1 16^437 


Q 


o 

o 

o 


o 


o 
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0094 

P.0-Q2B 

E8EC 


. LDQ’. 

HIBFAD 


0095 

P0-.Q2C 

54F4 


RTJ- 

(MONIT) 


0096 

P0020 

5205 


NUM . 

35205 


0097 

POflZ'E 

7FFF X 


ADC 

TSCNMI 

O 

0098 

P002F 

187E 


JMP’ 

Mil 5, 

0G99 

BO 03.0 

CCE7 

MI 2.1, . 

LDA’: 

, (MIBFAD 


010 0 

PQ 031 

GF48 . 


ARS „ 

8 


0101 

PG 032 

09D5 . 


. IN A 

-CHARSK 

o 

0102 

PO 033 
P0034 

0104 


SAZ 

MI3-’- 

010 3 

1800 


JMP 

SIHPRO 



PD 035 

OQ C5 




O' ' 

0105 

P0036 

5AFF 

Z 

NUM ; 

' S5AFF 


010 6 

P0G37 

7FFF X 

STH 

ADC 

SWTCH 

o, 

0108 

P0038 

C80G 

MI 3 

LDA 

S2D0BS 



PQ039. 

QQFO 





■ 01 0-9 

P003A' 

0101 


SAZ 

MI31 


01110 P003B186B 

01111 P003C' GC36 
Gil;2 P003D'D101 
ail3 PQ03E1835 

0114 P003F' CCF7 

0115 P0040 OIGC 

0116 P0041 OCOl 

0117 P0042 EED5 

0118 PO'043 CCD4 

0119 P0044 0FE8 

0120 P0G45 98F0 

0121 P0046 0101 

0122 P0047 1845 

0123 PGOh.8 6400 
P0049 7FFF 


■MI31 


X NLA 

X. ■ 


JMPT: MI12 
LDA- (JOBI) 

SAZ 1 
JMP- MI5 
LDA». (STH) 

SAZ .. NLO-»-l 
ENQ- 1 

LOa^^ {MI8FAD),Q 

LDA^ (MIBFAO) 

LLS 8 

SUB’- Z 

SAZ NLA-’-l 

JMP» MI6 

STA LOAOIN 


012,4 

0125 

0126 

012 7 
0128 
0129 

013 0 

0131 

0132 

0133 

0134 

0135 

0136 
013 7 

' 0138 

0139 

0140 


P004A OAOl 
P004B 6CEB 
PQ04C 18 20 -- 

0 0 4D'.B NLO 
P004Q CCCA- ■ 
P004E 90 00 
P004F 2A52 

00 4F P AST 


ENA 

STA’ 

JMP’. 

•EQU 

LDA’ 

SUB 


1 

(STH) 
MI5AA 
NLO {’ ) 
(MISFAD ) 
= A’R 


SET Q EQUAL TO INPUT BUFFER ADDRESS. 
SCHEOULc. THE 

TIME SHARE MANUAL INTERRUPT ROUTINE. 
CLEAR FLAGS AND EXIT. 


CHECK FOR 

GO TO TEST FOR SIH2G0 ENTRY 


00 4F P ASTSKR EQU ASTSKR(’-l) 
P0050 0112 ■ SAN 2 

P0051 E84A ■ LDQ’ MIP 

P0052 1844 JMP’ MI9B 

PO 053' 0C02 ENQ 2 

P0054 CEC3 MORE LD A’ ( MI BF AD ) . Q 
P0055 9A5B SUB’ BATCH, Q 

P005b 0113 SAN ERR 

P0ii57' 0143 : SQZ JOBSTR 

P0C58 OOFE INQ -1 

POO 59 18 FA JMP’ MORE 


IF SIM2jC IS RUNNING, DO NOT , 

ALLOW THE JOB PROCESSORG' TO EXECUTE. 
GO PRINT. .A JPQ5 ERROR MESSAGE. 
CHECK IF JOB PROCESSOR IN CORE 
IN CORE. 

CHECK JP LOCK-OUT SWITCH IF 
LIBEDIT OR RECOVERY PROGRAM 
IN OPERATION. 

CHECK IF ’Z 


CK FOR, fR, ’K ■ 

CLEAR LOADER IN CORE FLAG 


FLAG POSITIVE. 

GO CANCEL LIBEOT AS ANY OTHER JOB 


LET - AN ’R THRU 

FOR FOREGROUND UNITS 


1 16’45'7 

^ lc’if37 ’ 

ll&’nSr 
11 '^’ h-3 7 
116’437 

M G 7 j u u D b 

llfc’i+S/ 

MI/'GuOoS 

ii6’43r 


MO 7a G u71 
M07GUU72 


116’'43 77”””” 
llb’437 7’^.’’”” ■ 
MG 7G 0 0 75- ‘ 
H07Jfla7& , 
MOZa'QOr? ; 
M0700Q78 
116’-^37 7’””’” 
llb’43 7 7’””’” 
116’ 43 7 7”””” 

MO 70 0 081 
M07u0i382 
MQ7G0aS3 
M 0 7 G G u 8 4 
’4 -t.h-”’ ”M0700 085 

’4-f4”” M07GaU86 
M0 7uu G87 
11’" ’4377’””’” 

“ _ MG 70 0 0 89 

’’HSOS*^-.. CM07GGa91 

llb’437 7’””’” 
”HSOS 4. dM&.7;uliU92 
”MSOS 4.GM0700093 
”MSOS 4.0MD700094 
llb’437?”””” 

1 la ’43 7 7’”’”” 
llb’437 

”HSOS 4. GMG70GG98 
116’4377”””” 
llfa’437 7’-«^””” 
”MSOS 4.GM07 Gu1Q1 


L-' 

C 

o 

o 

O 

o 

o 

o 

C' 

o 

o 

o 

o 

o 


o 
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0141 P005A 184C 

0142 P0G5B E0E9 

0143 P005C C2CB 

0144 P005D OllD 

0145 P005E C20A 
0146. PG05F 0108 

0147 PQ060 54F4 

0148 P0061 6200 

0149 P0062 CO 68 P 

0150 P0063 GOOD 
P0064 GOOD 

0151 PG065 flOOA 

0152 P0066 0010 

0153 P0Q67 l4EA 

0154 P0068 54F4 

0155 P0069 1800 

0156 P006A 0000 


ERR JMP^ MI12 
JOBSTR LDQ- CREXTB 
LOA- 11, Q 
SAN SJ08 
LDA- 10, Q 
SAZ JOBA 
RTJ-^ (MONIT) 
ADC $6200 
ADC SJOB 
NUM 0,0 

NUN 10 
NUM 16 
JMP- (DISP) 
JOBA RTJ- (MONIT) 
NUM $1800 
RELSWP ADC 0 


TEST FOR AND SKIP IF 
SWAPPING NOT ALLOWED 
TEST FOR AND SKIP IF 
■PART 0 SWAPPED 
REQ FOR PARTITION 16 
BEFORE CALLING IN 
JOB PROCESSOR 


RELEASE PART 0 


SWAP NOT ALLOWED 


^^MSOS -r. 

116^437 


UN FRO TEC IN PART 


11 b'- 43 < 
^^MSOS 4. 
^^^MSOS 4. 
^•^MSOS -T . 


GM0700102 

M 0700104 
M 0730105 
M37uu1Gd 
. My 70 0 10 7 

0Mu70ulG9 
OMO 70 0 11 0 

uHj7aulll 


^^MSOS -t. uMG70ull2 
^-MSOS -T. uM0 70ull3 
■'^^MSOS . uMO 70 0 11 4 
^ "X 7 

MO 70 0 11 6 
M07uull7 


0158 

0159 
0150 
0161 


V- 

V- 

* 


THE JOB PROCESSOR IS NOW SCHEDULED BUT 
CANNOT RUN UNTIL THE SWAPPcD AREA IS 
AVAILABLE AND THE LEVEL 2 LOOP IN THE 
SPACE DRIVER IS TURNED OFF. 


MO 7j 0 119 
MD7lU 120 
HQ70G121 
M0700122 


0163 P006B E830 

0164 P006C 54F4 

0165 PQ060 2400 

0166 P006E 7FFF X 

0167 P006F 14EA 


SJOB LOQ^ HIP 

RTJ- (MONIT) 
NUM $2400 
ADC JOBENT 
JMP- (DISP) 


SCHEDULE JOB PROCESSOR 
■PART 1 DIRECTORY SCHEDULE 


--MSOS 4.UM070D124 
lib-437 

M0700126 
--MSOS T.;- Mu70ul27 
MO 70 0 128 


0169 

P0070 

0 0 0 0 


MIB 

NUM 

0 

017 D 

P0071 

0000 


MI8X 

NUM 

0 

0171 

P0 0 72 

7FFF 

X; 

J08I 

ADC 

J08IND 

G172 

P0073 

ecoi 


MIB 

FNQ 

1 

0173 

P0fl74 

EEA3 



LDQ^ 

(MIBFAD ) ,Q 

017 4 

PQ975 

CCA2 



LDA^ 

(MIBFAD) 

Q175 

P0076 

0FE8 



LLS 

8 

0176 

P0077 

98 BE 



SUB^ 

Z 

0177 

PO 078 

0117 



SAN 

MI5A 

0178 

P0Q79 

CO FD 


MI5AA 

LDA- 

$FD 

0179 

P007A 

6400 

X 


STA4 

BATCLU 


P00 7B 

7FFF 

X 




0180 

P007C 

54F4 



RTJ- 

(MONIT) 

0181 

POO 70 

5202 



NUM 

$ 52 0 2 

0182 

PO 07E 

7FFF 

X 


ADC 

JBCNCL 

0183 

PflQ7F 

182E 



JMP^ 

MI16 

0184 

POO 80 

CC97 


MI5A 

LOA^ 

(MIBFAD) 

0185 

POO 81 

BOOO 



EOR 



P0 082 

2A4B 





018 6 

PGC83 

0102 



SAZ 

MI5B 

013 7 

P0084 

09F7 



INA 

-8 

0188 

P00 85 

0116 



SAN 

MIB 


CHECK IF 


SET CONTROL LU TO COMMENT 

SCHEDULE JOB CANCEL 
AT LEVEL TWO 

RESET MIB 

CHECK FOR STATEMENT 


♦^MSOS 0M0700130 
^^MSOS -r.CM37j01Si 
^^MSOS GM0700132 

115^^37 

116-437 

M07j 013 5 
M070013 6 

„„ . Mu 7 GO 13 7 

OtVICE 

ll&-437 7-^^^^'*^'^^' 

lio-^-4377^^^^^^^^'' 
’^-MSUS 4.GMu7Qu139 
M07 wulbO 
M07GU141 

11d'*‘43I 

MJ70Gi43 

^^MSOS ~ . OMG 73 0 l4*t 
--MSOS -.CM0700145 
^^MSOS 4 .iMu7G014d 


V--'- 
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r*"i 

0189 

PO 086 

E815 MI5B 

LDQ^^ 

HIP 



0190 

PDD87 

D8E9 

RAO^- 

MIBX 



0191 

PQ088 

54F4 

RTJ- 

(MONI T) 



0192 

P0 089 

2403 

NUM 

$2403 


r') 

0193 

P0 08A 

7FFF X 

ADC 

JPCHGE 



0194 

P008B 

1822 

JMP» 

Mil 6 



G 1 9 u 

P0 0 8C 

CC80 MI6 

LDA- 

(MIBF AD ) 



0196 

P0 0 80 

BDOO 

FOR 

=X$2AFF 

CK FOR - CR 

o 


PD08E 

2AFF 




019 7 

PO 08F 

0111 

SAN 

MI9 



0198 

P0 09 0 

1810 

JMP^ 

Milo 

^ CR - JUST CONTINUE 


0199 

P0G91 

E8 0A MI9 

LDQ» 

MIP 

Q POINTS TO INPUT BUFFER 

r'\ 

020 0 

P0Q92 

CC85 

LDA^ 

(MIBF AD) 



0201 

P0093 

88BB 

EOR^ 

ASTSKR 

CHECK FUR RESTORE A DEVICE 


020 2 

PQ 094 

0101 . 

SAZ 

MI9B 

YES - SCHEDULE RESTOR 


020 3: 

PQ095 

1811 ' , 

JMP» 

MI12 

NO - J05 , ERROR 

o 

Q2 0'4- 

P0 09'6 

08 DA ; MI9B. 

RAO^ 

MIBX 

SET LOCK- OUT FLAG 

0205 

P0097 

'54F4 

RTJ- 

(MONIT) 



020.6 

PD098' 

2403 

NUM 

$24 03' 



0207 

P0099 

7FFF 'X . ■ . 

AOC 

RESTOR 



0208 

P0Q9A 

1813 

JMP^ 

MI16 

EXIT 

V.- 

0 20 9 

P0 09B- 

0 018- -X.: HIP 

ADC 

HIINP 



, 0211 

PD09C 

C8G6 MliO' 

LOA^ 

AMIPRO 

PROCESSOR OTHER THAN J.P. 


0212 

P0090 

8 0 32 . 

ADD- 

$32 

8 0/00 


0213. 

P009E 

09 00 . 

INA 

0 



0214 

P0G9F 

0106 . 

SAZ 

MI12-^-l 

SKIP IF NOT PRESENT 


0215 

PflOAO ■ 

E8FA . . 

LDQ« 

MIP 


o- 

••'■ 0216 

-PflOAl 

D8CF . 

RAO^. 

MIBX 

SET MIBX FLAG - RECOVER, MIPRO 

D217. 

PQ0A2' 

5 4 F 4 ' ‘ 

RTJ- 

(MONIT) 

SCHEDULE PROCESSOR 


0218‘ 

'P00A3 

2447 ■ 

NUM 

$2447 



0219 

P00A4 

7FFF X AMIPRO 

ADC 

MIPRO 

SYSTEM DIRECTORY ENTRY 

O', ' 

022G 

PQ0A5' 

1808 

JMP^ 

MIlo 



B2ZZ 

P00A6 

54F4 MI12 

RTJ- 

(MONIT) 

NO PROCESSOR 


0223 

P00A7' 

4C0Q 

NUM 

$4C8 0 

ERROR - JP05 

0 ', 

0224 

P0GA8 

OOOO 

AOC 

$D,$0,$18FC,$2 . 


P00A9 

0 000 






POOAA 

18FC . . 






P0OA8 

B0Q2 




O 

02.2 5 

PflOAC 

Q084 P '■ 

AOC . 

MI14 


- 0226 

POO AD 

OAOO ,-MI16^ 

ENA 

. 0 



0227 

POOAE 

68C1 

STA^ 

MI 8 

SET MI NOT BUSY 

o, 

0228 

POOAF 

14EA 

JMP- 

(DISP) 


' 023 0 







0231 


.?■— — - 


KEY 

WORD, ADDRESSES AND STORAGE 

o 

0232 






0234 

PSOBQ 

2A42 BATCH 

alf 

3 ,^BATCH 




POOBl 

4154 






P00B2 

4348 




o 

0235 





1 CARD DELETED 


o 


o 


I isos -r.QMuTGulifZ 
’^-HSOS -r. uMu7Q0if8 
lio^T-37 

MQ70G 15C 
M07U0151 
^'- '- M S 0 S T . - M u 7 u u 1 3 2 
1 1 6 ^ -r 3 7 7 ’■ ^ 

MU7ui]13‘t 

Mu70G15i? 
M G 7 j 0 1 5 o 
M07U0157 

MG700 IfaO 
HG7a0i6i 
M070 ul62 

MG7G0164 
Hfi70Gio 5 
MO 7 0 0 16 6 
^-MSOS 4.0M0700157 

H07D0169 
^^HSOS *T.0Ma70C17G 
H070C171 
M07J0172 
M0700173 
MuTOOir^r 

116^437 
i 16^437 

^^MSOS ■+. OM07QO177 
Hfi7u0178 

1 1 f-^43 7 ^ 

^^MSOS 4.aMa7G018i 
Ha7&Q182 


HQ700183 
M07S0 184 
Mu 7'J D IB 5 
M070018fa 

116'^-+377^^’^^^^^'' 

116^437 ^V'V'V- 

116^4377’^^*- 
^^MSOS OMG700188 


O 

c 

C) 

o 

o 

o 

v,..'* 

o 

o 

o 

o 

o 

o 

o 

o 

o 


116^437 V 


MINT 


PAGE 


5 


DATE: Li/27/99 


023 6 

P0DB3 

7FFF 

X 

Fi 

ADC 

FILEI 


Mu7u u 190 

0237 

P00B4 

4A50 


HI 14 

ALF 

2,JP05 


^ . tMQ70G191 


P00B5 

30 35 







0238 

POOBd 

4D49 


MIOUT 

ALF 

1,MI 


M0700192 

0239 

P00E7 

ODFF 



NUM 

SODFF 


Hu Tub 193 

0 24 C 

P00B8 

7FFF 

X 

ALVLST 

ADC 

L VLSTR 

ADR OF bTART OF kP-L ALLOCAiADLE 

M b 7 b u i 9 *T 

02^1 

P0 0B9 

7FFF 

X 


ADC 

LEND 

ADR OF END OF ALLOGATAELE AREA 

I'l u (' L u i i L 

0242 

PQ OBA 

7FFF 

X 


AOC 

SWAPOM 

ADR OF UMPROTEi.,T rD IHOICATOF 

H b ? L b 1 9 o 

0 2^3 

PQ GEB 

GC 00 


LVLST V 

ADC 

,1 


i'l . 7 j - i -) b 
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DAT'_; 0 1/2 

7/9 9 



0245 




THIS ROUTINE 

IS ENTERlQ WH^N FHc: JuH 

PROCESSOR 

HG7GU199 

0240 




IS SIGNED OF 

F OR CANCELLED. 




M 0 7 0 0 2 0 G 

0247 




THE JOB AREA 

IS MADE AVAILABLE TO 

THE 



iN j 1 j 0 2 j ju 

0248 




PROTECTED PROGRAMS. THIS IS DONE 

BY 



M j 7 j G 2 G 2 
MG7Gu 20 4 

0249 



•V- 

FORCING A CORE-SWAP WHICH WILL NOT 

EE 



025 0 



if 

TERMINATED UNTIL THE J03 PROCESSOR 

IS 



Mu70u2u4 

025 1 



if 

REQUESTED AGAIN 




H u 7 j u 2 0 5 

0252 



if 

GORE SWAP IS 

NOT FORCED IN PART C 

IF 


^f;MSOS 

GMj7LG2tj6 

0253 



if 

NOSWAP FLAG 

IS SET 



— r ! 4 0 S ^ . 

_! 1^ V ( J u 4 0 / 

0^55 

PC DEC 

OBCO 

RFLFLE 

NOP 0 

RELEASE ALL FILES ROUT 

INF 



Mu7j02„9 

0 2 5 6 

P 0 0 Bf) 

08 R2 


RAO- MTB 

SET niB - LOCK OUT r 

UP 

MA^1UAL 

HIT f. ERUPT 

M j 7. u 210 

0 2 5 7 

POQOE 

0400 


EIN 0 





Mu 7 0 u 2l 1 

0258 

PQ OBF 

0CG3 


ENQ 3 





M ^ 7 0 V 2 1 2 

0259 

PuGCO 

CEF2 

RELFLO 

LDA^^ (F1),Q 

RELFASE LAST FILE FIRS 

T 



li j ?' j u 4 1 3 

026 0 

PQ OCl 

Q 1 0 6 


SAZ RELFLl-^-1 

IF ZERO, SKIP R=:LrA3 

E 



M07ju21h 

0261 

P00C2 

6803 


STA^ RELFL 





Mj 70 0 21 5 

0262 

P00C3 

5 4F4 


RTJ- (MONIT) 

RELEASE FILE 



lie ( 

/ if ■¥■ -Ir if ■¥■ ir 

0253 

POOC4 

1800 


NUN $1800 





M 3 7 j 0 2 1 7 

0 2 6 4 

P0QC5 

0 Q 00 

RELFL 

NUM $0000 





Md70u218 

0265 

FOuCS 

OAOO 


ENA 0 





M07u u 219 

0 26 6 

P00C7 

6EEB 


STA^ (F1),Q 

ZERO FILE LOCATION 




H 0 7 0 0 2 2 0 

026 7 

PO 0C8 

ODFE 

RELFLl 

INQ -1 





M u 7 u 0 22 1 

0 2 6 8 

PG 0C9 

0171 


SQM RELFL2-^-1 





M07jo22 2 

0269 

POQCA 

18F5 


JMP’f RELFLO 





MG700223 

0 27 0 

Pu OCB 

0 A 0 0 

RELFL2 

ENA 0 

ZERO JP IN-CORE SWITCH 

« 


iib-43 i 

_M0 70 0 22^ 

0271 

POOCC 

6CA5 


STA^ (J08I) 




^ if ~f if if if if if if 

0272 

POOCD 

EO E9 


LDO- CREXTB 




1 Id- 43 7 

Jififififififif if 

0273 

PO CCE 

C2 C8 


LDA- 11, Q 





MC7C0227 

0274 

POOCF 

OlQl 


SAZ RELFL3 

SKIP IF SWAP ALLOWED 




M0 70 C 22 8 

02 7 5 

PGQDG 

18 DC 


JMP^ Mllb 

NO SWAP ALLOWED 




M0 7„ u 22 9 

027 6 

POOOl 

C2Q A 

RELFL 3 

LDA- 10, Q 





M 0 / 0 u 2 3 0 

0277 

PG uD 2 

0101 


SAZ RELPL4 

SKIP IF UNPROTuCTElI 

IN 

PART -j 


M 0 L 25 1 

027 8 

PC CDF 

1814 


JHP- RELPRT 

IJNPROTEUT -D IN -AiT 

1 



i 1 0 ( „ . 2 4 4 

0 28 0 





FORGE A GO^F SWAP 




iH7..25, 

0 28^ 

FQfl[)4 

OCQl 

RFLFL4 

ENQ RP 

Sir RtQU-uT PRIORil Y 




M u 1 u L 2 u ' ; 

0283 

Pu U D 5 

GEE2 


LDA- (ALVLST),Q 

SAVE START OF ALLOCA 

TA.ILF FOR 

THIS RF 

M J 7 - u 2 3 F 

0284 

PD 0 Dd 

68F4 


STA-'f LVLSTV 





M Q 7 j u 2 3 8 

0285 

POOD 7 

C0F6 


LDA- HICORF 





H 0 7 u L 2 3 9 

028 6 

PO 0D8 

09FA 


INA -5 





Mu7j u 2-G 

028 7 

PG0D9 

6E0E 


STA^ < ALVLST ) ,Q 





__M‘j 70 . 2-(-i 

0288 

POODA 

5 4 F 4 


RTJ- (MONIT) 

SPACF REQUEST 



i i -43 7 

^'ifififif^ififif 

0289 

POODF^ 

5413 


ADC RP^^16 + $5403 




bl^nz'6 5 

MQ700243 

0290 

PO ODD 

0 0 El P 


ADC SWAPPD, u ,U , Q 

LENGTH 0 




M07l 0 244 


PO ODD 

QOGO 









PO ODE 

0 0 00 









PGODF 

0 0 0 0 







HJ7j 0 245 

0 291 

POOEG 

14EA 


JMP- (DISP) 








M IN T 


PAGE 

8 

[JAT-: ■. i/2,/9 9 


C29S 

PGOEl 

C8D9 

SWAPPD 

LDA^'- LVLSTV 


SWAP GOilPLETED 

MO, b 2 — / 

029-t 

POOE2 

48 00 


STQ RELSWP 


SAVE ADR FOR RELEASE 

- ^ M S 0 S - . - M j 7 b u 2 -r 8 


POO F3 

FF86 






G295 

P0uF4 

OCCl 


ENQ RP 



M u 7 u u 2 -f 9 

029 6 

F0QE5 

6ED2 


STA- (ALVLST 

) 

RESTORE LVLSTR + RP 

M J , L U L 

0297 

P00E6 

18C6 


JMP- MI16 


RELEASE HIB AND EXIT 

H u 7 j j 251 

0298 



❖ 




--MSOS t.,M07G0252 

0299 







M 3 n S -t • w M 0 7 C u 2 3 

030 0 

P0GE7 

CO F7 

RELP9T 

LDA- LOCORE 



1 1 3 7 7 - - ^ ^ 

030 1 

PO 0E8 

0 901 


INA 1 



--HSOS -.-('13 73 0 25 5 

0302 

PGGE9 

6804 


STA-“ RELUP 



-‘^MSOS T.OM070025b 

03 0 3 

PG OEA 

680E 


STA- RELUPA 



'‘^-MSOS -r. 0Hu7i.G257 

030 4 

PQQEQ 

5hF4 


RTJ- (MONIT) 



11o-t37 

03 0 5 

PO DEC 

58G0 


ADC $5800 


PARTITION CORE RELEASE 

MG7j b 2^9 

0 3 0 6 

P 0 0 E D 

0 0 0 0 

RELUP 

NUM 0 


OF BACKGROUND 

M 3 0 S - • b M 'j / o 2 6 u 

Q3C 7 

PO GEE 

5tF4 


RTJ- (HONIT) 



1 1 c - 3 7 

03 0 8 

PQOEF 

62F3 


ADC $d2F3 


REQ OF PART lo AT CP-'Z 

"--HS05 . L.H j7b u2o2 

0 3 0 9 

PC QF3 

GCF6 P 


ADC RELA 


WILL CAUSE PROTECT PITS 

■*' H b) 0 S - . b M b 7 G 3 2 D 3 

0 310 

PGOFl 

0 0 0 0 


NUM C,C 


TO PE ScT, THEN PARlITION 

— M b> b S - . U i’1 b - U 2 O 'T 


PO 0F2 

DO GO 






0311 

POOF^ 

00 OA 


NUM 10 


16 iS RELEASED FOR 

^-MSOS - Mu 7--2bP 

0 31 2 

P 0 0 F 4 

00 10 


NUM 16 


SYSTEM USE 

’■"D-ISOS .. flb.’buEoE 

G313 

POOFS 

14 FA 


JMP- (DISP) 



1 i C -r 3 i , - ”■ - - 

0 314 

PC 0F6 

5 4 F4 

RE LA 

RTJ- (HONIT) 



^ ^ ^ ^ ^ ■ V "TT "V* ^ 'I* 

0 313 

PG0F7 

58 0 0 


ADC $5800 



-'-MSOS -.'H37jb2o9 

U 3 1 o 

PG uF8 

GOOD 

RELUPA 

ADC 0 



- - M 3 0 S - . M j 7 J G 2 7 G 

031 { 

PG0F9 

18B3 


JMP’^ MI16 



M SOS » . M 0 7 0 u 2 7 1 

G31 8 








G31 9 



if- 





032 0 




200 USER TE 

RHINAL 

SIMULATOR ROUTINE 

1 1 0 - 3 7 f ^ >i- 

0321 



V- 




1 16'“-f3? 

032 2 



-¥• 




116^h37 

0323 

PDOFA 

CCAO 

SIM PR 0 

LOA^ (MIP) 


TEST IF RES IS INPUT 

116-45^ , ^ V- 

032u 

POOFB 

90 00 


SUB =ARE 



lirE^‘-,-3 7 


PO OFC 

5245 






032 5 

POOFO 

0101 


SAZ SPR 




0 3 2 5 

PO OFF 

18 13 


JMP^-^ SLCK 



1 1 1 3 7 7 ^ ^ - 

032 7 

POGFF 

GCQl 

SPR 

ENQ 1 




032 8 

POIGQ 

CE9A 


LDA- (MIP),0 


TEST f-0«'' -INAL S 

J. 1- ^ >S Z ( ■V' ^ ^ '/■ V* V 

0329 

POlOl 

OF 48 


ARS 3 



1 i E - b. 3 7 -i- 

0 33 0 

PO 1C2 

Q9AC 


INA -S53 



li-,--.37 

0 331 

PG IG 3 

0110 


SAN SLCK 



1 1 o ^ b 3 7 

0 33 2 

P01G4 

C825 


LDA^ S20QBS 



1 1 b H 3 ?' 7 V- V- T -¥■ 'f 

0333 

POlO 5 

0101 


SAZ SPRO 



llo— 4— 3 7 7^'— — — — 

0334 

P01D6 

18 9F 


JMP^ HI12 




0 33 5 

P0107 

6800 

SPRO 

STA HIBX 


ZERO MI PERMISSIVE FLAGS 

11c — 437 


PC108 

FF68 






033 6 

P01G9 

68 G 0 


STA MIB 



1 1 6 - -4 3 7 *7 ^ ^ - 


PQIOA 

FF65 






0337 

P0108 

D8 1E 


RAO^ S2003S 


SET 2uOUT BUSY FLAG 

llb'^^'37 7'^— 

033 6 

POIGC 

F88E 


LDQ-'^ HIP 


PICKUP START OF MESSAGE ADDRESS 

114^^437 7^-“----'^- 
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0 3 3 9 

PulOD 

54F4 


RTJ- (HONIT) 


SCHEDULE SIMEbO 

^ -V- ^ y ^ V- -4- v ^ ^ 



1 

' J 

0 ' ^ G 

POICE 

2-4 04 


HUM S24,G4 


GET SIM2O0 

1 1 6 4 3 / , =f- -I- -r ^ 4 >!■ 





0 3 1 

POICF 

7FFF X 


ADC SIM2QQ 



1 1 4 3 f , -^4- 4-4- ^ 





03^42 

POllO 

14EA 


JMP- (OISP) 


RETURN TO DISPATCHER 

lie ^'43 7 ( 





D3 4o 

POlll 

CC69 

SLCK 

EDA- (HIP) 


MOT RtS, SO TEST FOR SLASK (/) 

1 i C “4 O / , 



o 


0 04 ‘i 

PU 112 

0 F 48 


APS 8 



j_ ^ J 4- 




0 3 4 5 

PO 11 3 

0 9 DO 


INA -$2F 



1 1 c - 3 ( ( 





03 4 6 

PQ114 

0101 


SAZ G02 



lio'^‘+3, ;; 4- 4- V- ¥ V 4.- 





u3i47 

PD 115 

Ifi 86 


JMP^ MUG 


MOT A SI M2 0 0 COMMAND, SO RETUFN 

11o '''43 (■ ' •rv^4--f4-,--,- 



■ o 


0 3 48 

PO 11 6 

C813 

G02 

LDA“- S20 0BS 


TEST IF SIM2Gu IS IN CORE 

1 1 b--4o 7 7 •'-4-4t4^ 






POll 7 

0111 


SAN GO20 
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QDA6 

0 110, 

0141, 

0203, 

021-, 

0 0 3 “r , 

G 35 0 


o 

o 

o 


o 



M T M T 


PARF t;’ 


DATES ul/27/99 



O 

o 

o 

o 

o 

o 


jG22G»027p»u297»uil7 T', 

; o 

o 

o 

■ o 

: O 

' o 

’ D 

' o 

; O 
; O 

■ O 
O 

■ O 

o 


MINT 


PAGE 13 


date: 


O 



E X T E R 

N A L S 


o 

DEF . LINE 

NAME 

VALUE 

r'\ 
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G09B 
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TSCNAC 

0029 
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TSCNHI 

0 02E 
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0 027 

3CP 

0 0 2 5 


0 029 

J08IND 

0072 


0 0 3 0 

FILEl 

0 G B 3 


0 0 31 

SWTCH 

003 7 

o 
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JO BENT 

0 06 F 

0 033 

8ATCLU 

3G7E 


0 0 3 4 

J BCNCL 

G07E 


0 0 3 5 

M IPRO 

OQ A4 


0 0 36 

LVLSTR 

0 0 Bo 


G G36 

SWAPON 
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0 03 6 

LEND 

0QB9 


G G37 

RES TOR 

0 099 

o 

0 038 

JPCHGE 

0 08A 
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LOADIN 

0049 


REFERENCED AT LINE NUMBER 
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M g 8 g j ij 1 6 
M -j 8 G u 'j 1 7 
M- 8g G Glo 
M g b g g J 1 9 

I''! J B w u <j ^ L 
>1 j 3 w g g i 

M g 8 G - . 2 2 

u o j u g 2 6 
M j 8 ^ ij j2- 
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0 056 

PG 021 

0106 


SAZ 

o 
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EQU MHC0DE(2) M.M, CLASS CODE 

ON ENTRY A, Q, AND I CONTAIN THE FOLLOWING 
A, PARAMETER LIST LOCATION 
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0 0 5 3 
00 54 

00 5 5 
0056 

005 7 

0058 

0059 

0061 

0062 

0063 

006 4 
0065 
006 6 
00 67 
00 5 8 
0069 
00 70 

0071 

0072 
0 075 

007 4 
0075 
0 0 7 6 
007 7 
0 078 
00 79 
0080 
0081 
00 82 


POO OA 
POOOB 
PO OGC 
POOOD 
PQ OOE 
PODOF 
POOlO 
POOH 
PD012 


C107 
0400 
0112 
EQC2 
18 04 
5800 
0 0 7E 
54BC 
4107 


P0013 EE34 
P0014 C208 


P0015 
P0G16 
P0Q17 
PO 018 
P0019 
PO QIA 
POOIB 
POOIC 
POOlO 
POOIE 
POOIF 
P0 020 
P0021 
PQ022 
P0G23 
PQ024 
P0025 
P0 026 
P0027 


E108 
GFC5 
AQ05 
09FD 
0119 
01 78 
E105 
C622 
AO 31 
0112 
C205 
0132 
0103 
0103 
E107 
FOOD 
7FFP' 
OOFD 
0500 


GET LOGICAL UNIT NUMBER IN Q 


LDA- VTMP,I 
EIN 0 

SAN RUUSER-^-1 
LDQ- LIBLU 
JMP^ SAVLU 
RWUSER RTJ CKTHRD 


IF THIS IS SYS DIR 


CHECK THREAD LOG FOR i 


RTJ- (ALUABS) 

SAVLU STQ- VTMP,I SAVE LOGICAL UNIT NUMBcR. 

V Q CONTAINS THE ACTUAL LOGICAL UNIT NUMBER. 

V IF CALL WAS DIRECT. 


LDQ^ 

LOA- 


LOQ- 

ALS 

ANG- 

INA 

SAN 

SQM 

LOQ- 

LDA- 

AND- 

SAN 

LOA- 

SAM 

R2 RAO- 

RAO- 

, THDSTR LDQ- 
X ADQ 

X 

INQ 

IIN 


(ALOGIA ) ,Q 
8,Q 


VID.I 

LPMSK+3 
-MMCOCE 
THDSTR-^-1 
THDSTR--^-! 
VPTR,I 
(ZERO) ,Q 
0NE3IT+14 
R2-^-l 
PS,Q 

THDSTR-^-1 
VR, I 
VR,I 
VTMP,I 
=XL0G2 


IF CALL IS TO HASS 
MEHMORY AND S15 IS ZERO 
AND IF R£Q. IS NOT 
INDIRECT, THEN ADD 2 
TO THE RETURN 


MASK OFF CLASS CODE 

IS THIS A MASS STORAGc DEVICE 

SKIP IF NOT 


1-CARO DELETED 
GET NEXT ENTRY FROM THREAD 


P0028 4106 THONXT STQ- VTPE,I 


P0029 E202 
P002A ODDO 
P0 02B 0151 
P002C 1808 
P002D C622 


THDl 


, LDQ-, 
INQ 
SQN 
JMP^ 
LOA- 


PT,Q 

0 

THDl-^-1 
RCTHO 
(ZERO) ,Q 


PRECEDING ENTRY SAVED 
10-CARDS OELEfEO 

NEXT ENTRY ON THREAD 


THREAD END. GO THREAD 
IF ENTRYS PRIORITY IS 



(•IjOjUU-rJ 

M09jGu47 

o 


M 0900049 

; O 


Mj900u5Q 
M 0 9 0 0 J p 1 
M G 9 0 0 u 5 2 


Mj900053 

^ O 

^•4 5 0 

M 0 9 0 u 0 5 -» 
M0900G55 


MG9G0G5o 
M09jGj57 
M 0 9j G UP 8 
M G 9 G G G 5 9 

o o 


H G 9 O 0 0 6 1 
M 0900062 
MG900 063 


M 0 9 C u G 6 4 

o 


Hu 900065 
MQ9GG066 

^^MSOS 

GMQ9jG 067 



M09u 0 06 3 

o 


M0 9D 0 069 
M u 9 0 u 0 7 0 
M0 90a u7l 


Mu900072 

o 

»^HSOS 

4 . uMG900u73 

^‘^-MSOS 

-.CMQ9uu07-f 


^^MSOS 

4. CM09u 0 u75 


--MSOS 

4. CM 0 9000 7 6 

o 

-'^^MSOS 

4 . LM0900077 


^ * M S 0 S 

4, CM09Q 0 0 78 


^^MSOS 

4.CMQ900a79 



M 0900080 

o 


Mogoousi 
MO 90 u 0 82 


MG900Q83 

Q 


MG 900084 
MO 90 0 036 
HG90 G G36 



M090GG87 
MG 93 0 08 8 
MG 90 0 0 89 
HQ90 0 u90 

o 


M090 0 091 

o 


MU9u0u32 
H0900G93 
MO 90 0 094 


Mag0G095 

’ o 


o 

o 


RW 
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date: Gl/27/99 


0096 

P0 02E 

A8 5A 



AND» 

RPMASK 

REQUESTS PRIORITY 
THtN GO THREAD REQ. 


M0900 096 

0 09 7 

P002F 

9104 



SUB- 

VPL,I 


M0900 097 

0098 

P0030 

0133 



SAM 

RCTHO-’^-l 


Mj 9G G 0 9 8 

0099 

P0031 

E106 



LDQ- 

VTPE, I 



MD9G 0 G99 

010 0 

PQ032 

E2 02 



LDQ- 

PT,Q 



M 0 9 Q 0 1 0 G 

0101 

P0Q33 

18F4 




THDNXT 



MOgOuiul 

010 2 









M09uUlQ2 

010 3 






THREAD NEXT 

ENTRY 


M09jul03 

0104 









M09G01G4 

010 5 

P0034 

El 06 


RCTHD 

LOQ- 

VTPE, I 

POINTER TO PREVIOUS ENTRY 


MG90Q IG 5 

0106 

P0035 

C202 



LDA- 

PT,Q 



MG9G G Ij b 

010 7 

P0036 

E1Q5 



LDQ- 

VPTR, I 

POINTER TO NEW LIST 


MG9u u 10 7 

0108 

P0D37 

6202 



STA- 

PT,a 



MG9GG1G8 

0109 

PO 038 

0814 



TRQ 

A 



M090 0 IG 9 

0110 

P0039 

El 06 



LDQ- 

VTPE, I 



Mu9uU ilG 

0111 

P003A 

6202 



STA- 

PT,a 



MU90C111 

0112 

P003B 

0400 



EIN 




MQ900 112 

0113 






END 

OF THREADING 


MG90G113 

0114 






IF DEVICE BUSY, RELEASE VOLATILE 


MG9G G 11 4 

Oil 5 









MJ9Qull5 

0116 

P003C 

E107 



LOQ- 

VTMP,I 

ACTUAL LU IN Q 


M39GG 116 

0117 








MG9GG117 

0118 






IN GASF ALT. TO BE USED, THE 


Mj 93 3 11 8 

0119 






FOLLOWING 

CODE SUBSTITUTES IT. 


Mj9u u 119 

0120 






IF NO ALT. 

AVAILABLE, REQ. REJECTED. 


MG9G0120 

0121 








M09Q0121 

0122 

0123 

P0 0 3D 

540 0 

X 


RTJ 

ALTSUB 

1 CARO DELETED 

o2^'-117- 

MG9GG122 

M09uG123 


PO 03E 

7FFF 

X 






012m 

P003F 

0143 



SQZ 

ALTl-*-l 



M09G0124 

0129 

P0040 

1839 



JMP^ 

ALTS 



MG9J0125 

0127 









MG9G0127 

0128 

P0041 

4C2C 


OWNMSG 

ALF 

5,L, DOWN 



M09UG128 


P0042 

2020 








P0043 

2044 









P0044 

4F57 









P0045 

4E20 








0129 

P0046 

7FFF 

X 

ALOGl 

ADC 

LOGl 



Mu9G 0 129 

0130 

P0047 

7FFF 

X 

ALOGIA 

ADC 

LOGIA 


■=^■+05 

Mg 9G G 13 0 

0131 







1-CARD DELETED 


Mu 90 0131 

0132 







3 CAROS DELETED 

62-1174 

Md9Q0132 

0133 









, MG9G0133 

0134 

P0048 

0500 


ALTl 

IIN 




M09:ul34 

0135 

P0049 

El 07 



LOQ- 

VTMP, I 

REQUESTED LOGICAL UNIT 

62’^il74 

M09GG135 

0136 

PD04A 

OAFF 



ENA 

-0 

3 C 53 4 


MG9G013& 

013 7 

POOhB 

6E3E 



STA» 

ULOG2I , Q 

CLEAR THREAD IN LOG2, , ^ 30^53-+ 


MQ900137 

0138 

P0 0 4C 

CEF9 



LDA^ 

(ALOGl) ,Q 


MG9U0138 

0139 

P0040 

A02F 



AND- 

HIODO 

CHECK BIT 12 OF LOGl ENTRY ' 


MQ9GG139 

0140 

P0G4E 

01 01 



SAZ 

1 

CHECK MSG. FLAG BIT ; 


HG9001h0 

0141 

PDO%F 

1817 



JHP» 

GOl 



M09GQ141 

0142 

PQQt)u 

C107 



LOA- 

VTMP, I 


62-1174 

MG9GQ142 




RW 
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01it3 

P0051 

5400 

X 


RTJ CONVER 


i-r3 


P0 052 

7FFF 

X 





0144 

P0053 

E8 OB 



LDQ^ THREAD 

IF 'REQUEST CURR£NTL,Y BUSY' COh5PLETE 

fi0900 lH4 

0145 

PO 054 

0141 



SQZ TODWNM 

CURRENT REQUEST WITH ERROR AND OUTPUT M0900 i‘+5 

0146 

P0Q55 

1811 



JMP^ GOl 

MESSAGE NEXT TIME LU REQUESTED 

Mu 9001^6 

0147 

PO 0 56 

68EB 


TODWNJM 

STA^ DWNMSG41 

PUT LU IN MESSAGE 

M390C147 

0148 




¥■ 



00900148 

0149 

P0057 

COOO 



LOA =N$4C20 

SET UP CP PRIORITY 30^531 

***MS0S4. 0M0900149 


P0 058 

4C20 






015 0 

P0059 

BOEF 



EOR- $EF 

SET UP, .CURRENT REQUEST PRIORITY 

M0900150 

0151 

P005A 

6802 



STA^ OWN 


MQ9u 015 1 

0152 

P005B 

54F4 



RTJ- (AMONI) 

OUTPUT LU DOWN MESSAGE 

■ H0900152 

0153 

PO 05C 

0 00 0 


OWN 

NUM 0 

UPDATED WITH, REQ CODE AND CURRENT 

PRIORITY MQ9D0155 

0154- 

P005D 

0 0 0 0 



ADC 0 

3 L *531 

,'H0,9Qul54 

0155 

P0 05E 

00 DO 


THREAD 

NUM 0 


■ 02 * 117 -*:' M09u0155 

0156 

PQ05F 

18FC 



NUM $18FC 


.M09001p6 

015 7 

PO 060 

0 0 05 



NUM 5 


. •: MO 90 015 7 

0158 

PO 061 

0 0 41 

P 


ADC OWNMSG 


* * *MS OS 44, M,0,9 0 015 8 

0159 







M0900159 

0160 

P0062 

E107 


COMP 

LOQ- VTHP.I 


62*1174 M0900150 

0161 

P0063 

CEE2 



LDA» (ALOGIJ ,Q 


Mu900lbl 

0162 

P0064 

B02F 



EOR- HIOOO 

SET MESSAGE FLAG BIT 

M09Q u 162 

0163 

P0065 

6EE0 



STA^ (AL0G1),Q 


M0900163 

0164 




V- 



MU9001o4 

0165 

P0066 

E105 ' 


GOl 

LOQ- VPTR,I 


c2*il7-* MJ90 01 d5 

0166 

P0067 

C203 



LOA- 3,Q 


00900186 

0167 

PQ 068 

AOOF 



AND- LPMSK+13 


, Mu 90 0 16 7 

0168 

P0069 

BO IF 



EOR- NZERO+13 


M0900168 

0169 

P006A 

6203 



STA- 3,Q 

SET ERROR' CODE IN REQUEST 

00900169 

0170 

P006B 

C201 



LDA-, 1,Q 

. 

*MSOS V^.O M090U17Q 

0171 

P0Q6C 

0112 



SAN ALT2 

SKIP IF NONZERO COMP. ADDRESS 

*M30S V-4.0 Mu9uC171 

0172 

P006D 

6202 



STA- 2,Q 

CLEAR . REQUEST THREAD 

*MSOS M0900172 

0173, 

P0 06E 

18 OA 



JMP^ OUT 

COMPLETE REQUEST 

*HS0S.V4,i: 00900173 

0174 

POO 6F 

C622 


ALT2 : 

LOA- (ZERO),Q 


**MSOS" 4.00090 017 4 

0175 

P0 070 

BO 32 



EOR- 0NEBIT415 


**H30S 4.000900175 

017 6 

P0071 

6622 



STA- {ZERO),Q 


**MSOS 4 . 000900176 

017 7 

P0072 

0 500 



TIN 0 

, 

00 90 0 17 7 

0178 

P0G73 

4804 



STQ^ ESCHO 


M03QQ173 

0179 

PO 074 

E2 03 



LOQ- 3»Q 

ERROR WORD 

00900179 

018 0 

P0075 

54F4 



RTJ- ( $F 4 ) 


00900180 

0181 

POO 76 

2000 



NUM $2000 

INDIRECT REQUEST( PART 1 TYPE) 

**MSOS 4.JM090U181 

0182 

P0077 

0 0 0 0 


ESCHO 

NUM 0 


00900182 

0183 

P0078 

14B9 


OUT 

JMP- (AREQXT) 


00900133 

0185 

P0 079 

EECO 


ALT3 

LDQ^ (AL0G1A),Q 

PHYSTB ADDRESS 

00 90 018 5 

0186 

P007A 

0500 



TIN 0 


0090 018 6 

018 7 

P007B 

C205 



LOA- ELU,Q 

GET LU ASSIGNED 

' O09QG187 

0188 

PO 07C 

OllA 



SAN RELESV-^-1 

IF LU .NE. ZERO, EXIT VIA RELESV 

00900188 

0189 




V- 



M090Q189 

0190 





PUT LU NUMBER IN EQUIPMENT TABLE 

00900190 

0191 




¥■ 



00900191 

0192 

P0070 

C107 



LOA- VTHP,I 

REQUESTED LU 

009 0 019 2 
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RW 


0193 P007E 0400 

0194 P0Q7F 6205 

0195 
019 6 
019 7 

0198 

0199 P0080 0500 

0200 P0081 4803 
0 201 

0202 P0082 54F4 

0203 P0Q83 20Q0 
02134 P0084 QOGO 

0205 P0Q85 0500 

0206 P0086 0173 

0207 PQ087 1489 
Q208 P0088 OOFO 
020,9 P0Q89 0025 
0210 

0211 

0212 

0213 P008A Foil 

0214 P008B OAOO 

0215 P008C 6205 

0216 P0C8D 1810 

0217 P0 08E 00 00 

0218 P008F 0500 

0219 P0D90 C4FF 

0220 PD091 AOll 

0221 P0092 64FF 

0222 P0093 C2Q2 

0223 PQ094 0114 

0224 P0095 0804 

0225 P0096 6202 

0226 P0097 0400 

0227 P0Q98 1CF5 

0228 P0099 54BC 

0229 PC09A EEAC 

0230 PG09B C2G8 

0231 P009C E108 

0232 P009D 0FC5 

0233 P009E AO 05 

0234 PG09F 09FD 

0235 POOAC 0119 

0236 POOAl 0178 

0237 P00A2 E1C5 

0238 P00A3 C622 

0239 P00A4 A031 

0240 P00A5 0112 

0241 P0GA6 C205 

0242 P00A7 0132 

0243 P00A8 D103 

0244 P00A9 0103 

0245 POOAA C4FF 



EIN 

0 


STA- 

ELU,Q , 

if. 

SCHEDULE DRIVER 


IIN 0 

if. 

STQ^ 

RSCHD 


RTJ- 

(AMONI) 


NUM 

$200 0 

RSC HD 

ADC 

0 


IIN 

0 


SQM 

GSKIA 

RELE3V 

JHP-, 

CAREQXT ) 

RPMASK, 

NUM 

$F0 

ALOG2 

if. 

ADC 

LOG2 

if. 


CHECK THREAD 

GSKia 

AOQ- 

LPMSK+15 


ENA 

0 


STA- 

ELU ,Q 


JMP^^ 

THO 

CKTHRD 

COG 

0 


IIN 

0 


LDA- 

(15 


ANQ-. 

LPMSK+15 

* 

STA- 

(I) 


LDA- 

■ PTV Q 


SAN 

THDUSE-^-1 


SET 

A 


STA^ 

EIN 

PT,Q 


JMP^' 

(CKTHRD ) 

THOUSE 

RTJ- 

(ALUABS) 


LOQ^ 

(AL0G1A),Q 


LDA- 

8,Q 


LDQ- 

yiD,i 


ALS 

5 


ANO- 

LPMSK+3 


INA 

-MMCODE 


SAN 

THO 


SQM 

THD 


LDQ- 

VPTR.I 


LDA- 

(ZERO) ,Q 


AND- 

ONEBIT+14 


SAN 

THDA-*-l 


LOA- 

PS, Q 


SAM 

THO-+-1 

THDA 

RAO- 

VR,I 


RAO- 

VR,I 

THO 

LDA- 

(I) 


INDIRECT SCHDLE REQUEST 


REQUEST PRIORITY MASK 

3 G i o 4 

FOR NON-ZERO ENTRY. 

CLEAR LU WORO OF PHYSTAB 

LOG. OF VOLATILE IN I 
PARAMETER LOC.-IN^ Q 

CLEAR BIT 15 OF Q FOR RETURN 
PARA MET ERS 

MARK THREAD IN USE LJ 

RETURN IF THREAD LQC.= 0 
CHECK IF RETURN MUST BE INCREMENTED 


CHECK FOR D BIT SET 


SET CALLER Q - 


If. if. j/. Sf. If. 


if if :f if !f ^ If if If 

’^■^-MSOSA . 
^43b ■ ' 

; 


-^MSOS H.O 
^4 36 
^436 

'^^MSOS 4.0 


^^MSOS 4.'j 
^^MSOS^ 4. 


-^HSOS-,'4 , 
77^1922 i 
■^^MSOS',4. 
4-^MSOSC^. 
’^^MSOS" 4. 
^-MSOS 
^•^MSOS L. 


MO 9,0 0 13 3 
MO 90 0 19 4 
M 0900195 
H39C10196 
M j 90 0 197 
»M09G0198 
M0900199 
M,0 9G 0 2QD 
^MO 9u 0 20 1 
M090 0 20 2 
OHO 9 0 0 20 3 
MQ90 0 20 4 
M J 90 U 20 5 
M090 0 206 
M09C0207 
M09.0 0 208 
MO 9 0 u 2G9 
M090 li 210 
M 0 9 0 0 21 1 
M09v0212 
, M090 0 213 
MG90 u 214 
M090 u 215 
, H090 y 216 
Mu9J 0 217 
MQ900218 
M090Q219 
Mu 9a 0 22 y 
Ma90 0 221 
' MQ900222 
M09D0223 
MQ900224 
MU90 0 22 5 
M09C0226 
M0900227 
M0900228 
M0900229 
M09uu 230 
:MQ9Q0231 
: M0900232 
MO 90 0 23 3 
Mb9u 0 234 
' MQ90 0235 
MJ9y0 236 
0M09G0237 
; Mu 90 0 23 8 
u.Ma90 0239 
DMu9au^240 
UMQ900241 
uM09Ou242 
OM0900243 
MQ9UG244 


^^HSOS 4.1 M090fl245 
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rv 0246 POOAB 8032 EOR- ONEBIH-15 AND EXIT 

0247 POOAC 64FF STA- (IJ - 

0248 POOAD 14B9 JMP- CAREQXT) 

0249 0000 P EQU T2 (T1 ) , TA (T 1) , T& ( Ti) , TO (T1 ) 

0 0 00 p 

00 00 p , 

0000 P ' 

0250 END 

o . ^ 

PGM= OOAE { 174) COM = 0000 { 0) DAT = 0000 ( G) 

O 


O 


O 


O 


O 




O 


o 


o 


o 






^'^-MSOS ^.0 M090 0 2 4D 
•■^'^HSOS 4,0 Mu90 0 247 
^^HSOS ^.0 H0900248 
M09Q0249 

o 

' M0900250 

: O 

■ c 
o 

’ o 

O 

O 

O 

O 

O 

■ O 
O 
O 


o 
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EQUIVALENCES 


DEF. LINE 

NAME 

VALUE 


REFERENCED AT 

LINE 

NUMBER 



QOGO 

I 

OOFF 

{0,00255) 

0219, 

0 221, 

0 2 45, 

0247 ' 

. 

, 

0 016 

HIQOO 

002F 

(00 0.04 7) 

\0139, 

0.162 





0 017 

VR 

00 0 3 

(000003) 

■.■0 040, 

0 C4 1 , 

■0079, 

0 0 8 0 , 

0 2 43, 

0244 

0 017 

VPL 

00 0 4 

( OOQ,‘Oa4) 

,'0 045 , 

0097 





0 017 

VPTR 

OOD 5 

(000005) 

■ 0,0 73, 

0107, 

0165, 

0237 ‘ 



0018 

VTPE 

0006 •' 

(000006) 

• 0089, 

0 099, 

0105, 

0 110 

, , 


0018 

VTMP 

0 0 07 

( G 00007) 

0049, 

0 056, 

0 0 81 , 

0116, 

0135 , 

0142,; 016ui 0192 

0019 

VID 

0008 

(000008) 

0 0 57 , 

Q 231 





0020 - 

LI0LU 

Q0C2 ' 

(000194) 

0 052 






0021 

ALUABS- 

U OBC 

(000188) 

0 055 , 

0228 




t' ' 1 

0 021 

AREQXT 

00B9 

(0 00185) 

■0183, 

0207, 

0 248' 




0 022 

PT 

0002 

(000002) 

,0091 , 

OIQC, 

OlGo, 

0108, 

0111, 

0222, 0225 

0 022 

PS 

000 5 

( 000005) 

00 77 , 

0 241 





0 023 

AMONI 

00F4 

(000244) 

0152, 

G2D2 





0 024 

ELU 

0005 

(000005) 

0187, 

Q 194, 

0215 




0 024 

EREQST 

000 8 

( oaO'Dos) 



. 




0 025 

NZERO 

0012 

( 000018) 

0168 






0 0 2 6; 

ZERO , 

0022 

( 000034) 

.0 0 43 , 

0 0 7 4, 

.0095, 

017,4, 

■0176, 

0 23 8 

0027 

LPMSK 

0 00 2, 

( 000002) 

0 0 69, 

0167, 

0213, 

0 220, 

0 233 


0 027 

ONEBIT 

0023 

(000035) 

0075 , 

0175, 

0239, 

0 2 46 



0 028 

MMCODE 

Q002 

(000002) 

0070, 

0 234 
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„■ 


o 

SYMBOLS 


o 



DEF.LIME 

NAME 

ADDRESS 


0G07 

RW 

QOQO 

\ I 

0 0 IT 

TO 

0000. 


0011 

T1 

000 0 


QGll 

T2 

0000 ' 

O '' ' 

Qiill 

T4 

0 0 0 0 

0 011 

T6 

000 0 


0012 

SAVLU 

0012. 


0012 

CKTHRO 

G08E' 

o 

0012 

RPMASK 

0088 

0 043 

R1 

000 6 


0 054 

RWUSER 

OOOF 


0 079 

R2 

0021 


0 081 

THOSTR 

0 023 

1 

0 089 

THDNXT 

0028 


0095 

THOl 

0 020 


010 5 

R.CTHD 

.0 0,3 4 . 

o,_ 

0128... . 

OWNMSG 

0041 . 

012 9 ; 

ALQGl 

004d 


0130' 

ALOGIA 

0047 


0134 

ALTl 

0048 

o 

0147 

TOOWNM 

0056 

0153 

OWN 

005C 


0155 

THREAD 

005E 


0160 ' ■ 

COMP 

0062 

o; ' 

0165 

GOl 

0066 

0174 

V ALT 2 

0Q6F 


0182 

ESC HD 

0077 


0183 

OUT 

0078 


0185 

ALT3 

u G 79 


0204 

RSCHD 

008 4 


0 20 7 

RELESV 

0087 


0209 

ALOG2 

0089 

r'\ ' 

'w' 

0 213 

GSKIA 

008A 

0228 

T HD USE 

0099 


0243 

THDA 

00A8 


0245 

THO 

00 AA 


REFERENCED AT LINE NUMBER 


0007 

Dull 


0 011, 
0 011 
0011 
0 011 

0249, 

0249 

0 012, 

0 053 


00 12, 

0 0 5 H , 

0 227 

0 012, 
9 037 
0 0 51 
0 076 

0 0 4 4, 

0 096 

0 071, 
0101 
0 093 

0 0 7 2, 

0 07 8 

0 0 94., 

0 098 


0 147 , 

0158 


0138, 

0161, 

0163 

0 0 61, 

0185, 

0229 


0124 
0145 
0151 
0144 

0141, 

0171 

0178 

0173 

0125 
0200 
0188 
0137 
0206 
0223 
0 240 
0216, 


0 146 


0235, 0236, 0242 


0249 


PAGE 
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RW 

EXTERNALS 


DEF.LINE 

NAHF 

VALUE 

REFERENCED AT LINE NUMBER 

0013 

LOG2 

0089 

0082, 0209 

0 013 

LOGl 

0G4fa 

■ 0129 

0013 

LOGIA 

0047 

.0130 , 

0014 ■ 

ALTSU8 

003E ■' 

"0123 

0015 

CONVER 

0052 

0143 



RW 


PAGE 

10 


DATE: ul/27/99 








^ ^ A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

V- ?. ^ 









ALOGl 

. 0129 

ALOGIA 

.0 13 0' 

ALOG2 

0209 

ALTl . 

013*+ ■ 

ALT2 

017 4' 

• ALT3 

0185 

ALTSUB 

0014 

ALUABS 

u u21 

AHONI 

. AREaXT. 

. QQ21 

ckthrd 

.0012' 

COMP . 

0160 

CONVER 

0 015 

OWN 

' 'G15'3 ' 

DWNMSG 

.0128 ■ 

■£LU 

.0 0 24 

tREQST 

3 0 2 “T , 

ESC HD 

■ GOl 

■ 016 5 

GSKIA 

.vQ 213. 

HID 00 : 

0016 

I 

0002 

LI3LU 

iJ C 2 O' ■ 

LOGl 

.0013 

LQGIA- 

0 013 

LOG2 

0 013 

L PM SK 

MMCODE 

0028 

■ NZERO 

.0025 

ONEBIT 

0 027. 

OUT 

018 3 

PS 

0 02 2 ' 

. PT . 

0 u 2 2 

■ R1 

00+3 

R2 

0 Li? 9 

RCTHD 

RELESV 

. 0 20 7 

, RPMASK 

0 012 

RSCHD. 

0204 . 

RW 

000 7 ' 

RWUSER 

. 0 05 4 

SAVLU 

Tj.012 

TO 

0011 ' 

T1 

u ui 1 

T 2 

T4 

0011 

T6 

OQll 

THD 

0 2 45 

THDl 

0095 

THDA 

0243 

THONXT 

CG39 

THD3TR' 

■ 0 u 8 1 

THDUSE 

J 22 6 

THREAD 

TOOWNM 

014 7 

VID 

0019 

VPL 

0017 

VPTR 

0017 

VR 

0017 

y TM P 

0018 

VTPE 

0018 

ZERO 

Ol-2 6 



u 1 2 
L is 

- u 2 

jIG-j 

full 

•J 


ifv 


o 

o 

c 

o 

o 

n 

o 

O.: 

C) 

O 

o 

o, 

Q 



NMONI 
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000-1 


NAN 

NMONI OECl^-IO MIO MSOS 5 . 0 

SUMMARY-122--'-''^^'^”-’- 

000 2 

-4 

. - MASS 

STORAGE OPERATING SYSTEM -VERSION ’5.0 

MiGOGJpR 

00 03 

V 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

MiuOiJGjS 

000 4 

V- 

COPYRIGHT CONTROL DATA CORPORATION 1975 

MID j G j04 

000 6 


MONITOR ENTRY FOR, REQUESTS 

MlOflOuGb 

0007 


SPEC 

ID REFER TO IMS 

M 1 u a 0 3 C 7 

00 0 8 

4 

PROGRAMMING SYSTEMS, A/D SYSTEMS DIVISION, COC 

MiuJUuDS 

0009 


ENT 

NMONI 

MlGauijD9 

OOIQ 

0 0 00 P 

EQU 

NMONI { 

MlGuOulO 

0012 


PART 

NO. E0061QAC030S 

Miu.0012 

COl 4 


ENT 

RCTV,HONI, REQXT 

MiujOjlL 

0015 


ENT 

ASC 

■ ' MlQppOlB 

0016 

00 BB 

EQU 

AVOLA (SBB) , AVOLR (SBA) 

MiOOGGla 


0 0 BA - 


* 


0017 

0 022 

FQU 

ZERO ($22) ,ONEBIT ($23) ,LPHSK(2) 

MiuO 0 017 


0 0 23 





00 02 




0018 

00 03 

EQU 

VR(3) , VPTR(5) ,VTDS(6) ,VTMP(7) ,VID (8) 

'- -^MSOS uMlGGO 018 


0 0 05 
00 06 
0QO7 
00G8 


0019 . 

00 04- 


- EQU 

VPL (4) 

0020 

DOOA 


' EQU 

V(10 ) 

0021 

0 0 09 


EQU 

VCCP(9) 

0-02 2 



EXT 

CGP 

0023 



EXT 

CPSET 

002 4 



EXT 

T.Q,T1,T2 

0025 



. EXT 

T-4,T6 

0026 



EXT - 

^T8,.T9,T10 

002 7 



EXT 

T12,Tl4,T15 

0028 



EXT 

T16,T17 ,T18 

0029 

0 0 01 


- EQU 

PC(l) 

0C30 

00 09 


EQU 

-RCSCHOC 9) 

0031 


¥ 



0032 



ENTRY 

POINT FROM 


NUMBER OF- WORDS OF VOLATILE. 
REQUESTOR'S CONTROL POINT NUMBER. 
LOCATION CONTAINING CURRENT CNTRL 
ROUTINE TO SET A CONTROL POINT. 


Tig 


SCHEDULE -REQUEST CODE 


0033 

003^ 

0G3'5 
0036 
Q03? ' 

0038 
0G39 , 

0040 POODO^ 

0041 PflOOl 
0G42 P0G02 
0G43 P0003- 
0 04 4 POO 0 4 
0045 






ALL PROGRAMS- IS AT MON I 
UNPROTECTED MONITOR REQUESTS' WILL BE^TRAPPED 
AT MONI-+2. THIS PROGRAM RUNS WITH INTERRUPTS 
INHIBITED FOR LESS THAN 25 MICRO SECONDS. 

ALL LOCATIONS ARE PROTECTED UNLESS OTHERWISE 
INDICATED. 


QO 00 
0 500 
54BB 
OOOA 
E8FB 


MONI- 


IIN 

RTJ- 

ADG 

LOQ^ 


0 

0 

TAVOLA) 

V 

MONI 


UNPROTECTED 

ALLOCATE- VOLATILE FOR THIS 
NO. OF WUS TO ALLOCATE 
REENTRANT PAST “HERE 


^^MSOS 

12 2 ’^h823’^ ^ 

POINi22^'4’8 2 

HlGOuOEl 
M10jG022 
M10uQQ23 
Miu0 0u2s- 
M 10 0 0 025 
MlcjUuEb 
MIOjOuE? 

' , Mlu: 0 u28 
MIOl 0029 
H10GG'j 3D 
Mi030031 
MlCiL032 
' MiOaO'033 
- MlOJudS^t 
• .M10'0au35 

-; M1C-JU056 
HIOOO'037 
Mlu.a038 

REQEST ■ MlCaOQ39 

■, MlOaOu^rU 
MlpuQO-rl 
M ID 0 u u 4 2 


V..'- 


o 

o 

o 

o 

n 

O 

o 

o 

o 

o 

o 

o 


o 


o 


o 
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0G4b 




SAVE RETRN AODR 

0047 





0048 

POQ-05- 

4103 


STQ- VR,I 

0049 

POO, 06 

'4105 


STQ- VPTR,I 

005 0 

P0G07 

OAOl' . ' 


ENA 1 

0051 

P0 0.0 8 

■68F7 . 


' STA4 MONI .. 

0 0.5 2 

' P0 0.Q9' 

C2 01 


LOA- PC,Q 

0053 

poooa:. 

6106 


STA- VTDS^I 

00 5 4 

poooa 

0400 


EIN 0 

0055 

P0Q.flC\ 

040 0 


..LOA+ CCP 


POO 0 0 

7FFF X 



005 6 

P0 0:fl£.6109- : . 


i'.STA- VCCP., I . 

005 7 

POOCF 

08 42 ', 


,:.,CLR Q 

0058 

POQiO 

5C3B 


'. RTJ4 (ACPSET) 

0059 

POOH 

E103 . . 


LOQ- VR,I 

OU 5 0 

P0012 

C622 ' 


LDA- (ZERO)tQ 

00 5 1 





0062 

P0013 

6104 


STA- VPL.I 

0063 

P0014 

0131 


SAM REPAl 

0064 

P0015 

1810 


JMP» REPA 

0G65 

P0016 

AOll ,, 

REPAl , 

AND- ■ LPHSK+15 

0066 

PflOlT 

0802 


. SET , Q , 

0G67 

P0018 

4108 


■ STQ-. VI0,I 

005 8 

POO 19 

6105 


STA- VPTR, I 

U 0 6 9 

POOIA 

D103 


RAQ- VR. I 

007 0 

POOIB’ 

0822 

ASC‘ , 

TRA Q 

0071 

POOIC 

C2 01 


LOA-,l,Q 

0072 

■POOID 

■6106 


STA- VTOStl 

0 073, 





0074 

PO'QIE 

C622 


LDA- (ZER0),Q 

0075 

PQOIF 

6104 


STA- VPLtl 

0076 

P0020 

0127 


SAP REPl 

0077 





0078 





0079 

P0021 

BO 32 


EOR- 0NEBIT415 

0080 

P0022 

6622 


STA- CZ£RO),Q 

0081 

P0 023 

OA 09 


ENA RCSCHD 

00 82 

P0Q24 

1806 


• JMP’^ MSECA 

0083 

PO 02.5 

0 AGO 

REPA 

ENA 0 

0084 

P0Q26 

6108 


STA- VID,I 

0085 

P0027 

Cl 04 ■: 


LDA- VPL,I 

0086 





0087 




EXTRACT REQEST 

0088 




REQEST CODE=RC 

GO 90 

PQ 028 

OF 49 

REPl. 

, ARS 9 

0091 

P0Q29 

A007 


AND- LPMSK+5 

0092 

P0Q2A 

OFFG 

■ MSECA 

LLS 16 

0093 

P002B 

4107 


STQ- VTMP,I 

0094 

P002C 

EA02 ■ 


. LOQ4 RCTV,Q 

0095 



if. ‘ 


0096 

P0020 

1622 ' 


JMP- {ZERO),Q 

0097 






SAVE POINTER. TO VOLATILE 


^^MSOS 


SAVE REQUESTOR'S CONTROL POINT NUMBER 
IN VOLAiTIL'E. ! 


MIUJuG~fO 

MlOOu OtA 
M 1 G u 0 u 3 
MIOG 0 O-fo 
M IG J U 0 ^ / 

MlOuG 04G 
MIGG G 349 
MlDGuOSO 
MlGGGu31 

,»,¥•» if ¥ 


PUT THE MACHINE INTO ABSOLUTE MODE 
SET Q = PARAMETER LIST ADDRESS. 
FIRST WORD AFTER RETRN 
JHP TO MONI. 

SAVE FIRST WORD OF GALL 
IS INDIRECT CALL 
DIRECT CALL 

MASK 15 LSB. ADDRESS OF CALL 


POATE PTR TO PAR. LIST 
PDATE 'RETRN ADDRESS 
IF THIS IS A , 

SAVE 2ND WORD OF PARAMETER LIST 
FOR RELEASE REQ'. PROCESSOR 
SECONDARY GALL , 

NEW FIRST WORD OF CALL 
NOT SECONDARY SCHEO CALL 
IS SECONDARY FAKE SCHED.CALL 
1 CARD DELETED 

RESET PL(G)15 TO 0. 


CLEAR INDIRECT INDICATOR 
WHEN FIRST WORD AFTER RTRN TO 
GET REQUEST CODE WORD 0 

CODE FROM PARAMETER LIST (0). 

IN BITS 14 THR 9. 6BITS. 


PICK P REQ. CODE ADDRESS 
ROTINE. 


'1 

. ■' I22^4'823»^^=«^^*f'^ 

12 2"^ 48 2 3 ^ ^ ^ 

M 1 L 3 '3 G 5 2 
HIOOOO'53 
^^MSOS 4. 1^^-M10GG054 
-^HSOS 4.1^-^^MIGDOOpS 
^^MSOS 4.1^^'MIGuu 05o' 
-^HSOS 1-^MiOQu 0 57 
’^^MSOS 4.0M1G3 0U5 8 
'^^•MSOS - . lMIuGu 359 
MlGa G jGG 
M1G3 uubl 
MIGjGuoZ 
V4.G MlOGGubo 
Vu.,0' M1 uuuuD’ 4 
V4 . 0 , M1 03 0 G 6 5 
M ICG G Go 6 
^.l"-’-MlDG0'337 
■, MIG ^ u ub8. 
4.1^^M100G 059, 
HIOOOOTO' 
HlOQO 07:i 
‘ Mi0aGG7.2 
MlOOli G73 
M103 0 u7h 
. OH lpGO 075 
iuMiGuUu75 
Mioaa 077 
Mi000078 
' M1GG0Q79 
MiOu G 08Q 


^MSOS 

T^MSOS 

^HSOS 

^’^MSOS 

-^^HSOS 


■ ^^MSOS 
HON I IS 4 


4»MSOS 4 


H10DQ0S2 
i,M10GGi383 
M10ij0Q84 
MIGO 0 085 
MIG 3 u 085 
M1G00387 
MIOOQ 388 
MlGa0089 


NMONI 
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A CONTAINS THE' POINT'EP TO THE PARAMETER LIST 
IF A IS NEGATIVE, CALL IS INDIRECT. , 

I CONTAINS THE ADDRESS OF VOLATILE 


PO-02E 
P002F 
P003Q 
P0031 
P0032 
.RC033 
P0034 
■P0 035 
P0036 
P0037 
PQ038 
PCG39 
P003A' 
P003B 
P003C 
^ P0030 
'P0 03E 
P003F 
P0040 
PQ041 


7FFF 

7FFF 

,7FFF 

oaoo 

7FFF 
uOGO 
7FFF 
00 00 
7FFF. 
7FFF 
7FFF 
0000 
7FFF 
GOOD 
7FFF 
7FFF 
7FFF 
7FFF 
7FFF 
7FFF 


PC042 £109 
P0Q43 5C08 
P0044 0500 
P0045 £103 
P00-+b 4804 


POO 47 
P0048 
P0Q49 
PflC4A 
PG04B 


54BA 
0400 
ICQl 
000 0 
7FFF 


RCTV 


REDXT 


RJMP' 

ACPSET 


ADC 

ADC 

ADC ^ 

ADC 

ADC . 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC 

ADC.; 

LDQ- 

RTJ^ 

IIN 

LDQ- 

STQ^ 

THIS 

RTJ- 

EIN 

JMP^ 

ADC 

ADC 

END 


TO 

T1 

T2 

0 

T4 

0 

To 

0 

T8 

T9 

TIG 

0 

T12 

0 

T14 

T15 

Tlo 

T17 

T18 

T19 

COMMON EX 
VCCP, I 
(ACPSET) 

D 

VR,I 

RJMP 

TABLE IS 
(AVOLR) 

0 

(RJMP) 

0 

CPSET 


SYSTEM DIRECTORY FORM READ 
READ 
WRITE 

STATS 

READ FORMAT 

EXIT i' 

WRITE FORMAT 
LOADER ' , ■ . 

, TIMER , 
SCHEDLER’ ' 

CORE ALLOCATOR 

CORE REQUEST 

RELEASE REQEST 
GET FILE 


INDIRECT REQUEST WITH 16 BIT ADDRESS^ 


IT CONTROL POINT ‘nO. 

RESET REQUESTOR'S CONTROL POINT. 

GET P FROM VOLATILE. 

INDEXED VIA A NUMBER LOCATED IN 


ADDR OF ROUTINE THAT SETS CNTKL POINT 


Miouoogo 
M1GG.0G91 
M 10 3 3 09 2 
M10QQ093 
' M1U30G94 

■ ' M1G3Q095 

. ' MlOO 0 096 
‘ M 1000 097 
' MlOO 0 098 
' , MIOD'0.099 
' ' MIOOOIDC 
■ MlOOOiOl 
M1G0G1G2 
^ MlGuQiu3 
■ MlL,GQiU4 
M1000 1C5 
MiuuulGb 
MiOu 0107 
M 10 0 0 1C 8 
' H1000109 

■^MSOS ’ 4 , O'MlkuGllu 
^MSOS ‘4. uMlOOOill 
^MSDS 4.0MlG33il2 
M.10 0Q113 
M 10 3 011 4 

1 22^4 82 3 

MIuQuIId 
Miau0117 
■■■ M1QQ0116 
■> ‘ M10Q0119 
' Ml0a012G 
: M1U0 0121 

M10Q0122 

MiOG0123 


004C 


0000 


OOt; 0 


NMONI 
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EQUIVALENCES 


DEF. LINE 

NAME 

VALUE 


REFERENCED AT 

LINE 

NUMBER 

0 00 0 

I 

OOFF 

(000255) 





0016 

AVOLA 

COBB 

( 0 00187 ) 

0 0 42 




0 016 

AVOLR ■ 

QOBA 

( OOG186) 

0 129 




0017 

ZERO 

0022 

(000034) 

' 0060, 

0D7 4, 

0080 , 

0096;. 

0017 

ONEBIT , 

0023 

(000035) 

,0 079 

‘ 



0017 

LPMSK 

00 02 . 

(0 00002) 

0 065, 

0091. 

0 0,69, 

0126 ' 

0018 

VR 

0 00 3 

(000003) 

OOi+8, 

0 G 5 9 , 

0 018 

VPTR 

000 5 

( QQQ005) 

0 0 49 , 

0 068 



0 018 

VTDS 

0006 

(000006) 

0 053, 

0 072 



0018 

VTMP 

00 07 

(0 00007) 

.0 0-93 




0018 

VI 0 

000 8 , 

(OOU008) 

0 0 67 , 

0 084 



0019 

VPL 

0 0 0 4 

( 000004) 

0 0 62, 

0 0 75, 

0085 


00 20 

V 

OuOA 

(000010) 

0 0 43 




0021 

VCCP 

0GO9 

( 0000,09) 

0 0, 5 o , 

0123 



0029 

PC 

0 00 1 

(000001) 

0052 




0 0 30 

RCSCHD 

0 0 0 9 

(000009) 

00 81 





NMONI 
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SYMBOLS 


DEF.LINE 

NAME . , 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 0 09 

NMONI 

CO 00 

0G09 



0 01 A 

RCTV 

002E 

0014, 

,0 09 4 


OOlA 

HCNI 

0 0 0 0 

0 014, 

0044, 

0 051 

0 01 A ■ . 

REQXT 

0042 

0014 



0 Q15' 

ASC 

0 0 IB 

■0 015 



00 65 

REPAl 

0016 

0 063 



0 083 

REPA 

0 0 2 5 : 

0 064 



0090 

REPl ' 

0028 

0 0 76 



0 092 

' MSECA :■ 

002A 

^ 0 0 82 



0132 

RJMP 

Q04A 

0127, 

0131 


0 133 

ACPSET 

0G4B 

0 058 , 

012 4 



NHONI 


PAGE 
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DATEJ Ql/27/99 


Q 



E X T E R 

N A L S 


c 

DEF.LINE 

NAME 

VALUE 

o 

0022 

CCP 

OOQD 

0 023 

CPSET 

0Q4B 


0 024 , 

TO 

002E 


0024 

T1 

0 02F 

o 

0 024 

T2 

0 030 

0025, 

T4 

0032 


0 025 

T6 

0034 


0 026 

T8 

0036 , 

o' 

0 026. 

T9 

0037 ' 

• 0 02 6' 

TIO ' • 

00 38 


0027 

T12 

003A 

002 7 

T14 

SQ3C 

0 0 27 

T15 

C03D 

0028 

T16 

003E 

0 028 

T17 . 

Q03F 

0 0 28 

T18 

0 04 0 

0 028 

T19 

' 0 0 41 


O 

o 


o 


o 


REFERENCED AT LINE NUMBER 

0 055 
0133 
• 0102 
•0103 
OlOL 
0106 
0108 
3110 
0111 
Cl 12 
01.14 
0116 

3117 

3118 

. . 0119 . 

0120 
0 121 


O 

C 

o 

o 

o 

o 

•’0 

o 

o 

o 

o 

o 

o 

o 
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o 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H 

B 0 L S 



o o 

ACPSET 

HSECA 

REOXT 

T17 

VCCP 

013 3 
0 09 2 
0Q14 
0028 
0021 

ASC 

NMOMI 

RJMP-. 

T18 

VID 

0 015' 
. 0 0 09 
■ 0132 
0 028 
0018 

AVOLA 
ON EBIT 
TO 
T19 
VPL 

0 016 
0017 
0024 
00 28 
0019 

A VOLR 
. PC 
T1 
T2 

VPTR 

0 016- 
uu2.9 ■' . 
0 b 2 4- ’ 
002 4 
0018 

CCP 

RCSCHD 
TIO • 

T4 

VR 

0022 
0 03 0 
Jj ii 2 o 
■"GD2 5 
0 018 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


CPSET 0023 

RCTV ' 0014 

T12 e'G27' 

To 0025 

VTDS 0018 


I ' 0000 

REPl G09u 

Tl-r 0j27 

T8 ' Q 0 2 o 

VTMP 0018 


LPM.SK 0117 

RcF'A Ut^83 

T15 ■ u_27 

T9 ’ j;:2o 

ZERO 0ul7 


90M1 uLl- 

R :: P A 1 “ 9 

T i 6 u - 2 8 

V ^ u 2 ^ 


o 

o 

T") 

o 

o 

o 

o 

o 

o 

n 

o 

o 

o 

o 

o 


LIN1V4 


date: 01/27/99 


NAH LIN1V4 DhCK-ID Hl.l;, MSOS 5.0 

MASS STORAGE OPERATING SYSTEM: ■VERSIONilJ .0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


* ■ LIN1V4 PROCESSES ONLY LI N£ 'f 1 , 1 NTERRU PTS . 

^ IF INTERRUPT IS LINE 1,ALL DEVICt LISTED. IN 

’ LN1TV4 WILL BE CHECKED FOR-INTERRUPT : STATUS . 

^ THE DRIVER CONTINUATOR F OR- IN T ERRU PT DEVICE 

^ , WILL BE ENTER. IF NO DEVICE IN LN1TV4 HAS - 

^ INTERRUPTED, A GHOST INTERRUPT MESSAGE IS 

» SCHEDULED, AND CONTROL IS RETURNED TO THE. 

^ DISPATCHER* 

^ IF THE INTERRUPT IS NOT FROM' LINE- 1 A JUMP IS 

^ MADE TO . DEBUG CELL ' NO TLNl.M’SLS) ,LIN E NUMBER 

^ WILL BE IN ‘Q'.IF STOP SWITCH IS NOT SET, 

THE INTERRUPT WILL BE PROCESSED AS AN INVAL. INTc 

^ ■ INVALID INTERRUPTS WILL BE PROCESSED AS 

^ GHOST INTERRUPTS. 

if- -if-iS- V ^ .if- ^ if- a- if- ^ irV- if- if- if- if- 


LIN1V4 

INVINT 


LINE -1 INTERRUPT PROCESSOR 
INVALID INTERRUPT PROCESSOR 


OQEA 
0 023 
0002 


LN1TV4 
DISP($EA) 
0NEBITI$23) 
LPMSK (2) 


TABLE OF LINE 1 DEVICES 


PflOOO eOFF LIN1V4 LDQ- I 

PfiOOl 0F22 QRS 2 

P0002 ODBF INQ , -$4C 

P00Q3 0814 TRQ ■ A 

P0004 09FE INA -1 

P0005 QiOl SAZ LNl- 

P00G6 1814 JMP^ NOTL 

P0007 60FF . LNl STA- I 

P0008 E02F GHKDEV LDQ^ (DE\ 

P0009 017A ' SQH END! 

POQOA -0814 TRQ A 

POOOB BQll EOR- LPM; 

POOOC 0104 SAZ CHKh 

POOOD E2C7 LDQ- 7,Q 


1 

2 

-$40 

A 

-1 

LNl-^-1 

NOTLNl 

I 

(DEVTAB ) ,I 

ENDT-^-1 

A 

LPMSK+15 
CHKNXT- ^-1 


ENTRY I CONTAINS TRAP LOC. 

,Q CONTAINS INTERRUPT LINE 
NUMBER. 

CHECK FOR LINE 1 
SKIP IF LINE 1 INTERRUPT 
LINE NUMBER IN 'Q' 

PHYTAB ADDRESS 
. SKIP IF FND ■ OF TABLE 

7FFF MASK 

SKIP IF DEVICE NOT PRESENT 
HARDWARE ADDRESS 


' SUMMARY-lloMilG u 3 j I 

c 



Mlluujot; 
HllO G 0G3 
M 110 0 G 0 t 


• o 



M11GG.jU6 




MllG G G G8 
M 11 j u u 0 9 
MilJ G Giu 
MilG Gull 
MiiuCiuia 

L.- 


T'l 


• 

MUG 0 ul 3 
Milj 0 014 




M1100015 
MllG 0 016 

C'l 



MilG G 317 
Mli-j0 3i8 
M11U0019 

V.' 

RRUPT. 


MllOO 020 

O 



M110QG22 
M 110 032 3 




Mli:.Gu25 


' ^MSOS 

V4'. C 

M1130027 

o 

^MSOS 

\/i* . Q 

HUGO 028 

o 

’ ^MSOS^ 

'V4. 0 

M11G0030 

MllOGOSl ^ 

H110e032 ' 

M1100033 


- o 

^MSOS 

V4 .0 

MllDa035 


. ^MSOS 

V4. 0 

M11U0036 

- o 

*MSOS 

V4. 0 

HllO Du 37 

^MSOS 

V4. 0 

M110yG38 

H11GGG39 


^MSQS 

V4 . u 


^MSOS 

V4. 0 

M11G004G 

o 

^MSOS 

V4. D 

MllQu34l 

^MSOS 

V 4 . c 

MllG G U42 


^MSOS 

V *♦ . L 

Mll-Gu G43 


, ^MSOS 

V4. b 

MllGG U-rH 

. .. : O 

^HSOS 

V4. G. 

MllG 0 u45 

^HSOS 

V ‘f . u 

HllOO 04b 


^MSOS 

V4. G 

M 1 1 G 0 0 1 7 


^MSOS 

V4. 0 

MllU u 048 

• o 


O 

O' 


LINIV'* 
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DATE! Gl/27/99 


POGCE 
PQOOF 
POOIG 
PQOli 
PQ012 
POOi'3 
PO 014 
PQ015 
P0016 
P0017 
P0018 
P0019 


POOIA 

POOIB 

POOIC 

POOID 


0203 
A025 
0115 
OBOO 
DO FF 
18F4 
OCOl 
1805 
ED21 
C202 
50FF 
15 22 
DO lA 

54F4 

5204 

OOIE 

IAEA 


INP 

AND- 

EAN 

CHKNXT NOP 
RAO- 
JMP^ 

ENOT ENQ 
■ JHP^; 

GO TIT, LDQ^ 
LDA- 
' . STA- 
, , . JMP- 

P , EQU 

•¥• ■ ' 

' SCDPRT RTJ- 
NUM 

P ADC 

JMP- 


CHKNXT-^-^ 

ONEBIT+2 

GOTIT-^-1 

0 

I 

CHKOEV 

1 

SCDPRT 
(OEVTAB) ,I 
2,0 
I 

($22) ,I 

NOTLNl 

($F4) 

$5204 

PRINT 

(DISP) 


SKIP IF. INTERRUPT . STATUS 

INCREMENT INDEX . 

CHECK NEXT DEVICE 
GHOST FROM LINE 1 

GET PHYTAB ADDRESS 
CONTINUATOR ADDRESS, , 

JUMP TO CONTINUATOR- ' 

LINE 1 INI. RESP. WAS USED ^ ^ . 

FOR INT. LINES 2-15, LINE NO. IS IN.. 


00 81 

0082 

0083 


POOIE 

POCIF 

P0020 

P0 021 

P0022 

P0023 

POO 24, 

POO 2-5' 

P0026 

PC027 

P0028 

P0029 

POQ2A 

P002B 

PQ02C 

P002D 

P0.02E. 

P002F 

PQ030 


.0814 
•DD30 
09F5 
,0131 
0007 
■FO 3 0 
,,.48 D£ 
C808 
AGOF 
8030 
68 05 
54F4 
4CG0 
0 0.0 0 ., 
OQOO 
18FC 
00 02 
00 31 
14EA 


0085 P0031 4749 

0086 P0032 0000 

0088 
0 0-8 9, 

009 0 P0033- EOFF 
0091 P0034 GF22 
0092, P0035 0D8F 
0093 ' P0Q36 18E3 

0094 P0037 '7FFF 

0095 


PRINT TRQ . 

INQ ' 
INA 
. SAM 
INQ 

PRINTS ADQ- 
STQ4 
LDA» 
AND- 
AOD- 
STA^ 
RTJ- 
NUM 


A 

$30 

PRINTS- ^-1 
7 

$30 
■ LN 

. ^PRINTI 
$F 
$3 0 

, PRINTl 
($F4) 

$4C0g,G,Q 


PRINT ERROR MESSAGE -GI LINE NO. 


RECORD A3C,IT-.’ CODE F.O'i^^'SPAC E'.' 
AND LINE NUMBER AT ' LN 


PRINTl NUM $18FC,$00Q2 


ADC 

JHP' 


GI 

(DISP ) 


GI ' ALF . i,GI 

LN NUM $0000 


INVALID INTERRUPT ROUTINE 


INVINT LOQ- I 
QRS 2 
INQ -$4Q 
JMP» SCDPRT 
X DEVTAB ADC LN1TV4 
END 


GET LINE- NUMBER 

USE BALANCE OF LINE 1 GI PATH 
TABLE OF LINE 1 DEVICES 


PGM= 0038 { 


:OM = OQOO ( 


' OAT = 0000 ( 




^-MSOS 

V 4. 0 

M 110 uG 49 

C 

•'‘MS OS 

V 4 . D 

MiiuOQpu 


'‘MSOS 

V 4 . G 

M no u G 5 1 


»MSOS 

V 4 . 0 

Mllj 0052 


•'‘MSOS 

V 4 . (j 

Mil j 0 G 3 3 

■ o 

'‘MSOS 

V 4 . p 

MllOQ 054 
MilG 0 05 5 
Mll'O G 0 ? 3 


‘^MSOS 

V 4. 0 

Mil 0 uu 57 

s 

: 

'^MSOS 

v^. c 

Milu 0 058 

'^MSOS 

V 4 « u 

MilOa 059 


'^MSOS 

V 4. 0 

M no 0 0 6 0 


4 ‘MSOS 

V 4. 0 

MliOQ 061 

■ r'\ 

Q*' 


HiiaOQbZ 


^MSGS 

V 4 ..G’, 

MllO 0 063 


•'‘MSOS 

V 4 . 0 ' 

MilOOQ 64 


'‘MSOS 

V 4 . O' 

MllOa 065 

O 

'‘MSOS 

V 4. 0 

MliO G G 66 

'^MSOS 

V 4 .,G- 

Mill] u 068 

n 


Mti 80069 

MllOOOZO 



'• 


MliJuG?! 
Milu 0072 

■ C) 


'• 

MliO- 0 . 073 ,, ", 

M no 0 0 74 

Mil i u 0 F 5 ■ ’ ■ ' 

•v,.' 



MllO 0 07 b ■ ' " '• '• 

o 


. , 

MilQ 0 G 77 
MllDOOFS 
M 1100 G 79 ' 


■'‘MSOS 

V-+', 0 

MllOO u 8 G 

; o 



MliOOaSi 

■ o 



Mnoa -08 2 
HliaOQ 83 




MllQ' 0 a ,85 ' ' 

■ n 



Mil 00 086 




M 1100 Q 88 ' ' 

Mllj 0089 

; O 

'‘MSOS' 

V 4 . 0 ; 

Milu 0^90 

'‘MSOS' 

' V 4 . L 

'Hil0uu91 


'‘MSOS- 

'.V4,0 

•MiiaGogz 


'‘MSOS 

V4 . G 

MilG0093 

O 

‘‘MSOS 

V 4 . 0 

' MllflG 094 



Milu 0 u 9 5 

O 


o 

o 
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date: Oi/27/99 


EQUIVALENCES 


DEF.LINE NAME 


VALUE 


0 0 0 0 
0 U31 
0 032 
0 033 


I 

OISP 


REFERENCED AT LINE NUMBER 


OGFF ;■ ( 00,0255) 0 035 , 0 C-^2, 00 53 , 0 059, 0 090 

GQEA 1000234) 0066, 0083 


ONEBIT 0023 (000035) 0050 

LPMSK 0002 (000002) 0046 


LIN1V4 


PAGE 4 


DATE: 


; Y M B 0 

L S 




DEF.LINE 

\|AME 

ADDRESS 

REFERENCED AT LINE NUMBER 

0 027 

LIN1V4 

0 00 0 

0 027 


0 028 

INVINT 

0033 

0 0 28 


0 042 

LNl 

00 07 

0 0 40 


0 043 

CHKDEV 

00 0 8 

0 054 


0 052 

CHKNXT 

0011 

0047, 

0 049 

0055 

ENDT 

0014 

0 044 


0 057 

GOTIT 

0016 

•0 0 51 


0 0 61 

NOT LNl 

QOIA 

0 0 41 


0 0 63 

SCDPRT 

OQIA 

0 0 56, 

0 093' 

0 068 

PRINT 

OQIE ' , 

0 065 


0073^ 

, PRINT3 

0023 

00 71 


■ ■ 0 0 81 

PRINTl 

Q02D 

0075, 

0 078 

• , 0 085 • 

GI 

0 0 31 

0 082 


0086 

LN 

0032 

0 074 


0 094 

DEVTA8 

003 7 

0043 , 

0057 


Gl/27/99 


LIN1V4 
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DATE: Cl/27/99 


EXTERNALS 

DEF.LINE NAME VALUE . REFERENCED AT LINE NUMBER 


0030 


LNITV^- 003 7 


0 Q9A 


OATES 01/27/99 
S Y H 8 0 L S 

DISP ' "0031 "eNDT ' ' 005 5 

LN1TV4 0030 LPMSK d033 

o 

.'"‘s 

C\ 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LIN1V4 


♦*» ALPHABETICAL SORT OF 


CHKDEV 0043 CHKNXT 0052 OEVTABOOgA 
O LIN1V4 0027 LN 0086 LNl 0042 

PRINTS 0073 SCDPRT 0063 


■ ' , ■ , , . , , , ' o 

GI .uOSS’.GOTIT 00 57 I 0,00 INVINT 0u28 

NOTLNl ‘ OUol ONEBIT 0032 PRINT 0068 PRINTl iu&i . Q 

C) 

o 

o 

n 

■ O 

Q 

; O 
O 

: O 

■ O 

: O 

o 

O 


NIPROC 


PAGE 
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date: Ql/27/99 


NAM NIPROC DECK-ID M12 MSOS, 5.0 

INTERNAL INTERRUPT PROCESSOR 
MASS STORAGE OPERATING SYSTEM VERSION . 0 : 
SMALL -SYSTEMS DIVISION, LA ■ JOL L A , CA LI FORM lA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-iia-'--^^^^’^-, 
Ml20 0ao2'. 
HI2 ^uju 3 
Miecsaotr'' 
M123uCD5 


POQGO 
POOQl 
POOQ 2 
POOL 3 
PQflOA 
P00Q5 
P00Q6 
P0007 
PQ008 
P0DQ9 
POO OA 

poooe 

POOOC 

POOQO 

POOOE 

POOuF 

POOlO 


0 02B 
fl 02B 
0 0 32 
00 02 


OOOO^P 

0000 ’ 
01E2 ^ 
DICE 
18 40 
6821 
C4Q0 X 
7FFF X 
0116 
C40Q X 
7FFF X 
0113 
-0 50 0 
.'5 4-0 0 X 
7FFF X 
C817 
1C 01 
0000 
0011 P 


I PROG 


PPROC. 


ENT IPR0C,IP1 
ENT ASAV 
ENT QSAV 
ENT MSAV 
ENT PWFOV 
ENT HA 
ENT PRO 
ENT PWFAIL 
ENT PTYERR 
EXT POWERU 
EXT JOBIND,SWTCH 
EXT PARITY 
EXT SYFAIL 
EQU INT($2B) 

EQU .. ATEH($2B) ,SIG 


A-REGISTER SAVED FROM ENTRY 
Q-REGISTER SAVED FROM ENTRY 
H-REGISTER SAVED FROM ENTRY 
OVERFLOW SAVED FROM ENTRY 
GENERALIZED HEX TO ASCII CONV. 

POWER FAILURE INTERRUPT PROCES! 
MEMORY PARITY ERROR- PROCESSOR 
USER SUPPLIED POWER RESTORE HAl 


SITE FAIL LOCATED INSYSDAT ($18FF) 
K{$32) . 


EQU LPMASK(23 

THIS PROCESSOR MUST. BE IN RESIDENT IN ORDER TO 
PROCESS MEMMORY PARITY .'THE ■ PROCESSOR , WHICH 
RESPONDS TO PROTECT VIOLATIONS MAY BE IN RES- 
DENT OR ON MASS STORAGE. AS PART. OF THE JOB 
PROCESSOR. IF THE. LATTER IS THE CASE, THEN 
IPROCl WILL BE REPORTED AS AN UNUSED MODULE AT 
THE END OF SYSTEM INITIALIZATION. 

ENT NIPROC 
EQU , NIPROC {^) 

ADC. ' 0 .INTERNAL INTERRUPT PROCESSOR 

SPF PRO-t^-I ' PROTECT VIOL 

SPE , CONVRT-^-1 PARITY 

JMP^ PWFAIL ■ - POWER 

STA^^ASAV 

LOA JOBIND .. TEST FOR JOB-PROCESSOR' OR LIBEDT 


^■'^MSOS -..-I^MIEG 
^ M SO S '■ ‘-t . 1 ^ ^ M 12 j. 
-^MSOS.,H.t--M12ij 
^^M'SOS.' t.i^^Ml20 
-^MSOS 4.1-^M120 
^-MSOS - .i^'-’^Mi2j 
. ...:,'M120 
li&'^4-37 2^^'^f r 
116^'4372^-^«^’‘ 
^^MSOS L.l»^-^H12u 
H 12 j 
M12a 

■) " : M12D 

M12Q 
M122 

M12u 
• M12Q 
' M12C 
•' M120 
M120 
. M123 
M12ij 
' M120 
M12u 
M12d 
Hl2u 
M12u 
M12G 
M12J 
M120 

M 12 j 

M12 0 
M12j 


SAN PPROC-^-1 
LOA SWTCH 

SAN PPROC-^-^1 
IIN 0 
RTJ+- SYFAIL 

LDA^ ASAV 
JMP» (IPl) 

ADC 0 

EQU PTYERR(»> 


CORE. 


JOB PROCESSOR NOT, IN CORE - HANG 
RESTORE A 

GO TO PROTECT PROCESSOR 


^5 85 


D0B7; 
u j l< 8 ‘ ' 
0309 
0 Qlu, 
0 011' 
u 0 1 2 
D 013 , 

v > ^ ^ V - 

u Ol-T 

0 0 15 
0 016- 
0017' 
y 018 
0 019 

0.020 
0u2i 
0 022 , 
0 023 
0024 
0 0 2 5 
0 026 
0 027 
0 0,2 8 
0029 
0 u3 0 
u u3 1 
0 032 
0 0 3 3 
0 034 
G 03 5 
0 03 5 
0 037 


M120 0 03a 
M120 0 G 39 

M12b0u-*G 
M 12u a y tl 
M120 b 0^2 


Ml2 0 0 u-f3 
M12 u 004<- 
'. "■ M 120 U u -» 5 

118-437 


o 


NIPROC 


PAGE 
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DATEJ Gl/27/99 


o 

C' 


0049 POOH 0500 
QQ5Q 

0051 

0052 

0053 


CONVRT IIN , 0 


THE FOLLOWI'4G' CODE SHOULD BE IMPLEMENTED TO 

TYPE OUT THE CORRECT P.E. ADDRESS WHEN , ^ 

1. THE P.E. WAS GENERATED WHEN P-REG WAS NOT EQ Y-ReG 

2. THE P.E. WAS GENERATED BY DSATRANSFER 



005 5 

P0012 

CQF5 


LDA- 

$F5 

o 

0056 

PDQ13 

0901 


INA - 

1 

0057 

P0014 

680F 


STA + 

MAXCOR 


00 58 

P0G15 

0 8 44 


CLR 

A 


0059 

P0016- 

680E 


STA+ 

TCPAR 

O- , 

G06Q 

P0G17 

CCOD 

PAR M3 R 

LDA + 

(TCPAR) 

0051 

P0018 

01 CO 


SPE 

FNDPE-+-1 


0062 

P0019 

D8QB 


RAO+ 

TCPAR 


0063 

POOIA 

C80A 


L0A+ 

TCPAR 


006 + 

POOIB 

B8 08 


EOR + 

MAXCOR 


0G65 

POOIC 

0101 


SAZ 

NOFND-+-1 


00 66 

POOlO 

18F9 


JMP+ 

PARMOR 


0067 

POQIE 

EOOO 

NOFND 

LOQ 

=N$4453 

o 


POQIF 

44 53 



, = N$413F 

00 6 8 

P002Q 

COQO 


LDA 



P0021 

413F 



NOPE 


0069 

P0022 

1807 


JMP+ 

0071 

P0 023 

.0 0 00 

MAXCOR 

NUM 

0 


GQ72 

P0Q24 

0 000 

TCPAR 

NUM 

0 

C ') 

0073 

P0Q25 

0 0 00 

ASAV 

NUM 

0 


00 75 

P0 026' 

C8FO 

-FNOPE 

LDA+ 

TCPAR 

' 

00 76 

P0027: 

-642B 


STA- 

(INT) 


0077 

-0078 

P0028 

■584C 

* 

RT J+ 

HA 


0Q79 

P0029 

QIAO 

NOPE 

SOV 

Q 

G 

0080 

PQ02A 

4824 


STQ+ 

MESSAG+5 

0081 

P0G2B 

6824 


STA + 

ME3SAG + 6 


0082 

P0Q2C 

EO 00 


LDQ 

= N$9i 



POQ20 

0091 


LDA- 

ATEH 


0083 

PO 02E 

CO 2B 



0084 

P002F. 

Q3FE ■ 


OUT 

-1 


■ 008 5 

PC030 

OAGO... 

, 

ENA 

a 


0086 

P0031 

60FF 


STA- 

. I 


008 7 

PG032' 

C917 

MORE 

LOA+ 

. MESSAG.I 

' , 

0088 

P0033 

EOOO 


LDQ 

= N$90 



P0 03-4 

•0090 





' 0089 

PQQ35 

0FC8 


ALS 

8 

o, : 

0090^ 

poose 

03FE 


. OUT 

-1 

0091 

P0 03 7 

0FC8 


ALS 

3 


0092 

. P0038 

03FE 


OUT 

-1 


' 0093 

'P0039 

DOFF 


RAO- 

I 


0G9 4 

P003A 

GOFF 


LDA- 

I 


HAXCOR+1 IS NECESSARY FOR 
THE SEARCH THROUGH MAXCOR 

SCAN ALL CORE FOR PARITY ERROR 

MAKE P.E. PRINTOUT EQ P+1 

DONE WITH SCAN 
YES 

NO ■ ’ 

OUTPUT PARITY OSA? IF NO 

PARITY ERROR IS FOUND DURING 

THE CORE SCAN 

HIGHEST CORE ADDRESS + 1 
ADDRESS COUNTER 

ADDRESS OF _ P.E.; CELL + 1 
2 CARDS DELETED 

CONVERT PARITY ADDRESS TO ASCII 
CLEAR OVERFLOW 

SAVED ASCII IN PARITY MESSAGE 

SET WRITE -MODE 
INITIALIZE COUNT 

SEND UPPER CHARACTER 

SEND LOWER HALF 
INCREMENT COUNT 


o 

C' 


+ 585 ■ :. Mi2'3 fl 046 

68+15l9Ml200fl4r 
. 58 +1?,1 9MlEu 0 048 
"68^1$19M1200049 
a8+1519M123uu50 


70, +1519 ■ M123C052 
r0+'l3l9. '. M 123 0 353 
73+1519 M123UU5-. 

68+1519 ,M120uGp5 

68+1519 M1230u56 

68 + 1519 M12G 0 05?’ 
72+1519 ,M123QQ58 
72 + 1519 M120U35 9 

68 + 1519- Ml2C33oO 
70' + i5l9' H123UU61 

68+1519 '■'■M12Q0 S62 
68 + 1519'- ' H123 0 0&3 
H 123 0 Go 4 

' M 12 3 3 u b 5 

M120a0o& 


70+1519 Hi20uJ68 
68+1519 M120U069 
68+1519 M123G37G 


68+1519 Mi233072 

68+1519 M1203J73 

Mi2G3Q74 
++MSOS A.i++Mi203G75 
M12i007o 
++MSOS -.1++M12G 0 0/7 
++MSOS -r.l + + M12QG G73 
M12 0 G 0 7 9 

M12JU08G 
M 12 G 3 j 3 1 
H120 0 082 
M12GG 083 
M12G 3 03^ 
M12G 0 08 5 

■ ^ M123U086 

M12Q3087 
M12G 0 088 
H12GQQ89 
Hl2uGu9u 
M120'QG91 


O 

O 

O 

C:' 

7''! 

o 

G 

O 

O 

{ 

“w 

O 

o 

o 

o 

o 
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DATE: Oi/27/99 


PC G3B 

P0Q3C 

P0 03D 

P0.Q3E. 

P003F. 

POGAG 

POOAl- 

P0 04'2 

P0043 

P0044 , 

POOh5 

P0046 

P0047 

P0D43 . 


Q9F8 
.0101 
ldF4 
C8 07 
05D0 
80 32 
‘G9 00 
0103 
E02B 
ICOl 
■7FFF 
Q500 
5400 
0 Q OD 


PG049 

■P004A 

P0048 

P004C 

P0040 

POO^E 

Pu04F 

P 0 0 5 0 ’ 
P0051 
• P0 052 
P0053 
PD 054 
P0055 
PO 05 6 
P0057 
P0058 
P0G59’ 
P005A • 
P0 0 5,e 
P0Q5C 
P005D, 
PQ05E : 
P005F 
P0060. 
P0061 
P0Q62 
P0G63 
P0064 
P0065 
P0066 
P0067 
P0068 
P0069 
PO 06A 
PG06B 
P006C 
P0 06D 


INA 
S A Z 
JMP- 
GOON ' LOA^^ 
IIN 

. EOR- 
.4 INA 
/ SAZ 
LOQ- 
/ JMP^ 
X PAREX.T ADC 
. NOEXI'T IIN 
X RTJ+ 

X 


ODOA 
50 41 
5249 
5459 
2C20 
'3030 
3030 

05C0 
68D3 
481D 
OAOO 
OlBl 
0 AOl 
6818 
0 8QC 
6818 
C422 
6818 
COQl 
6817 
CQOO 
1400 
6422 
CQOO 
0064 
'6 0 01 
18FF 
G80E 
6422 
C80D 
6QQ1 
C806 
Bail 
0101 
1C03 
5 40 0 
0048 


-7 

GOON-»-l 

MORE 

PAREXT 

0 

SIGN 

0 

NOEXlT-^^-1 
I NT 

(PAREXT) 
PARITY 
0 ■ 

SYFAIL 


GO DO SOME MORE 


SKIP IF: .uservpgm not here 
GET CONTENTS OF $1GG 
GO TO -PROGRAM NAMED PARITY 


PARITY ERROR-.r- HANG;. 
1 CARO deleted' 


MESSAG NUM SODOA 

ALF 6, PARITY, ODOO 


PWFAIL IIN 
■STA^' 
STQ^ 
ENA . 

, SNO 
ENA 

PWOV STA^. 
TRM 
S'TA^ 

lda- 

STA^ 

LDA- 

STA^ 

LDA 


0 

•ASAV 

.QSAV 

,0 

PHOV-^-1 

1 

PWFO\/ 

A 

MSAV 

($ 22 ) 

LZERO 

1 

LONE 

=N$1400 


(A) 

(Q) 


CHECK IF OVERFLOW EXISTS 
YES, SET INDICATOR 

SAVE ,IND. 0 = ND OVcRF LOW , l=OV ERFLOW 


M12jUu92 
' - M12: C 093 

■ ' ■ . M12G 0 094 

M120 0 095 
H12J 0 096 
M12u 0 097 
M 12QG 098 
■ M120U.099 

M12juiOC 
, ' M120G101 
'* H12u 0102 
' ■ M120 0 10 3 

4 " . ' M12'0 01Q4 

.... 

d 8^1'519 .;’M120:GiO-5- 
M12Q0'10’6 
M 120 0107 
H120ul08 


, M123 010,9 
M1200 lie 
MlZOOlll 
M12uull2 
GMlZOli 113 
:.^M120 0 114 


( 1 ) 

JMP+ 


INSTRUCTION 


STA- ($22) 

LDA =XPRFAIL 

STA- 1 
NUM' $18FF 
PRFAIL LOA» LZERO 
STA- ($22) 
■LOA^ LONE 
STA- 1 
LDA^ UPOWER 
EOR- LPMASKi-iS 
SAZ HANG 


HANG UNTIL POWER RETURNS 


CHECK IF .USER .ROUTINE LOADED' *‘-MSOS 

. ' .^^MSOS 

'.'•SKIP ' IF 'NO. ROUTINE " " -'^^MSOS 

■EXIT TO USER POWER RESTORE ROUTINE^^HSOS 
POWER UP - HANG 


X HANG 
X 


SAZ HANG 
JHP^^ (UPOWER) 
RTJ+ SYFAIL 


--MSOS GMIZOO 113 
-^MSOS :.M12j u 114 
»^HSOS ■ QM120U115 

^^MSOS 0M12GU116 
M1200117 
M120oli6 
M124c 119 
M12JG120 
M1200121 
M120U 122 
Mi20G123 

H12L0124 
M 120 012 5 


M 120 012 6 
M1ZD0127 
M12<J0l28 
Mi20G129 
M120G13G 
H120U131 
4.1^--SM12QG 132 
I. ^‘-.M 12 GO 13 3 
'‘-.l<^'->H12G013i. 
P.l<f^M120'013 5 
' ' M 120 013 6 


O 

O 

O 

O 

O 

o 

o 

o 

c 

o 

o 

o 

r‘4 

o 

o 


date: 01/27/99 
ADDRESS OF USER PROGRAM 





NIPROC 


PAGE 


G14C. P0 06E 7FFF X UPOWER AOC POWERU 

0141 P006F’ OOCO- QSAV ADC 0 

0142-' P007D 0 0 0 0 MSAV . AOC 0 

0143 P0071 0000 PWFOy ADC 0 

0144 PQ072 OuOQ LZERO ADC 0 

0145 P0073 0000 LONE ADC 0 


r-\ 

o 

■O 

o 

o 


^^MSOS 1 M12 j 0 13 7 
. H120 0 138 
M1200139 
^-MSUS A.OH1200140 
v- M12Uul4l 
■ M1200142 


(' '"i 

c 

o 

o 

r''i 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NIPROC 


PAGE 


5 


date: ul/27/99 


0147 

0148 

0149 

0150 

0151 


It. 1/. ^ SI- 31. ^ If 3f. 3f. 3f :f. 31. vif » V-¥. «■ X-3f:^3f.3l.3f-3f.3t.3f.3f.^-f.3f.^3/.3/.3}. Sf ^ 3f 3;. 3f. 3f 3f 3f 3f 3f 3f. 3f * * ^ >l- ^ Q ^ , 

» .,H£,X TO ASCII' ,.C .0 'N V E Ru S I 0 .N'- 

3t,.3(.^f(. ;~^^3f3f3/.:S.3i.3f.3f3f.3l.3f:3f.3l.3l.^3l.3l.3t.3l..^3(.3(.3(.3t.3l.3t.3/.3f.Jf.3f.3f:^ 3f 3f. 3(. 3it. ^ 3f ^ 3f 3f 3}. 3f. 3f 3/. -3f. 3). 3j. ^ 


015 3v 'POO 74 -.OOOO 
0154- P0075;Q50Q 
0155 'P0076- 0822 
0156 P0077 ’'5811 
015, ;7. P00.78 ,68 0E 
015 8 PC 079 '5 8 OF 

0159 P0Q7A .0FC8 

0160 P007B 880B 

0161 P007C '68.0A 

0162 P0070.580B 

0163 P007E6809 

0164 P007F 5809 

0165 P0080' OFC8 

0166 POOSl 8806 

0167 P0082. E8 04 

0168 P0Q83, OFFO 

0169 P0084^ 0400 

0170 P0Q85'1CEE 
D171 P0086 0000 

0172 P0087 0000 

0173 P0088, OOOO 

0174 P0 089 0 844 

0175 P008A 0F64 
017o P008B 0FC4 

0177 P008C 09F5 

0178 P0080 0122 
Oi79.P008E 093A 
0130 P008F 1CF8 
0181’ POO 90 0 9 41 
0182 P0091 1CF6 
0163 


HA : ■: 

NUM 

0 . 


IIN 

0. 


TRA 

,’Q 


RTJ^ 

■’CHAR ■ 


STA’^ 

/GOl 


RTJ» 

■ CHAR 


ALS 

8 


ADD^^ 

COl 


STA^ 

COl 


RTJ» 

CHAR 


STA-*^ 

COE 


RTJ^ 

CHAR 


ALS 

8 


ADO^ 

C02 


LDQ^ 

COl 


LLS 

16 


EIN 

0 


JMP^^ 

(HA) 

COl ' 

NUM 

0 

CQ2 

NUM 

0 

CHAR 

NUM 

0 


CLR 

A 


LRS 

4 


ALS 

4 


INA 

-10 


SAP 

ATHRUF 


INA 

$3A 


JMP» 

(CHAR) 

ATHRUF 

INA 

$41 


JMP^ 

END 

{ CHAR) 


HEX-ASG'II CONVERSION 

ENTRY WITH, HEX VALUE IN A-REG,. 

MAKE LOWER BYTES 

MAKE UPPER BYTES 

RETURN (Q)=UFPER (A)=LOWER 
CHARACTER CONVERSION 



,»^MSOS 

^^MSOS 

»^HSOS ■ 

^^MSOS 

^^MSOS 

»^HSOS 

^^MSOS 

«^.^NSOS 

^^HSOS, 

^-MSOS 

^^HSOS 

=^^NSOS 

^-MSOS 

^^I'TSOS 

»^MSOS 

^^NSOS 

^^MSOS 

^-HSOS 

^^MSOS 

’^-MSOS 

^«HSOS 

^^•^.MSOS 

^^MSOS 

^^MSOS 

^^MSOS 

^^MSOS 

^^HSOS 

^‘^HSOS 

»^MSOS 

^^HSOS 


PGH= 0092' { 1465 COM = 0000 ( 


0) DAT =0000 


C 5 


^.1,-T^-Ml2u0l44 
'4. l*^'.rMl2:' 3145 

4-,.l^rM12Q01-T.D 
4.1^'4M123 0l47 
i..i^^M12Q0148 


4.1^^M120 0 150 
‘+.i^-'^‘M.12 0Q151’ 
4.1,^^M1200152 
.A.I^^^'MIEGOIBS 
.h.1>:^H12 0 015 4 
4.1^-M120t3155 
4.1^^M1200156 
l^“-Mi2Q3l5 7 
4'.1^^M120[i158 
,4.i^^M120 0159 

4.1- ^H120ulo0 
■T.i^-M120C161 
4.i’‘^M12u3162 
4. "'M12u 016 3 
-.l=^^"M120Gio4 
-.i-^^Mi2uul65 
4. 1*-M1200166 

4.1- --M1230167 
~.1’‘-H123 0 168 

4.1- «M1200i69 
4.1^^M12Q0,i7 0 
-,.i^^>M12 0 017l 
4.1^,^M12Q3 17 2 
4.I^¥M12Q0173 
4.1»^H1200174 
4. 1^^1-11200175 

4.1«^^M12u0175, 
4.1«-''^M12ii0i77’ 
A.i'^'^HlEOOirB' 
4,1»'^M120 017 9 
M120G 180 



s>.' 


NIPROC 


PAGE 


o 


date: j 1/27/99 


o 



E g u I V 

A L E N 

C E S 




o 

OEF.LINE 

NAHE 

VALUE 


REFERENCED AT 

LINE. NUHBER 

o 

0 QQO 

I 

GOFF 

(000255) 

0086, 0093, 

0 094 

fl 020 

INT 

G02B 

(000093) 

0076, 0103 



0 021 

ATEH 

• 002B 

( OUOC-+3) 

. .• 0 0 8 3 



0 021 

SIGN 

0032 

(000050) 

QIQO 



0 Q22 

LPHASK 

0002 

(000002) 

0136 



o 

C) 

o 
o 
o 
o 
o 
•0 
o 
o 
o 
('* ") 


i ' 

V..- 

o 

o 

o 

o 

o 

c 

o 

Sw- 

o 

o 

o 

o 

o 

o 

''' 


NIPROC 

S Y M B 0 L S 


OFF. LINE 

NAME 

ADDRESS 

, 00 07 . 

IPROC 

00 0 0 , 

0007 

I p,l 

"0 010 

• 00 08 

ASA V 

■ 0025 

0 0 09 

QSAV 

„ 006F 

0 010 

MSAV 

0 070 , ,. 

0011 

PWFOV 

0 0 7 1 

0 012, ' 

HA 

0074 : , 

0 013:;. 

PRO, ' ' 

000 4 

0014 

PWFAIL 

, 0050 

0015 

PTYERR 

0011 

0 031 

NIPROC 

00 0 0 

0 045 ‘ 

PPROC . 

OOQE 

0 0 49 

CONVRT 

0011 

0 060 

PARMOR 

0017 

0067 

NOFND 

OOIE 

0 071 

HAXCOR 

0023 

0072 

TCPAR . 

0024 

0 075 

FNDPE 

0026 

0 079 

NOPE 

0 029 

0 0 87 

MORE 

0032 

0098 

GOON 

0Q3E 

0105 

PAREXT 

0045 

010 6 

NOEXIT . 

. 0046 

0 110 

HESSAG.,: 

0049 

0119 ■ . 

PWOV 

' G056 ' 

0131 

PRFAIL 

0054 

0139 

HANG 

006C 

0 141} ■ 

UPOWER 

0 0 6 E 

0144 

LZERO ' 

0072 

01^^ 5 \ 

. LONE 

0073 

0171 

COl 

0086 ' 

0172 

CO 2 

0087 

0173 

CHAR 

0088 

0181 

ATHRUF 

0090 


PAGE 7 DATE! 


REFERENCED AT LINE NUMBER 
'00 07 ., 


. 0 0 07 , 

0046 

.■Q 0 08 , 

.0038, 0 0-4 5, 0114' 

QQD9, 

0115 

0 010, 

0121 

0 011, 

0119 

0 012,, 

0 078,. 0170 

0013, 

0,035 

0 014, 
0015 
0 0 31 

0 037 

0 0 4 0, 

0 042 

0 036 
0 0 66 
0 0 65 


0 057 , 

0 06 4 

0059 , 

0 060, ;0u62, 0063, 

0 0 61 


0 0 69 
0 097 
0 096 


0098 , 

0104 

,0102 


0080 , 

0 ,G 8 1 , ,0087 

0117 

0128 

0137 


0135, 

013-8 

0123, 

0131 

0125, 

0133 

0157, 

0 160 , 0161, ,0-167 

0163, 

0166 

0156, 

0178 

0158, 0162, 0164, 


01/27/99 


Q0 73, 


ul8Q, ' Q182 


NIPROC 


PAGE 


3 


date: Ql/27/99 


: X T E R 

N A L S 




OEF.LINE 

name 

VALUE 

REFERENCED AT 

LINE NUMBER 

0D16 

POWERU 

Q06E 

0 140 


0 017 ’ 

J08IND 

00 0 6 

,0 039 


0 017 

SWTCH 

, 0009 

.,0 041 


0018 

PARITY 

0045 

0105 


0 019 

3YFAIL 

0Q6D 

0Cl44i 0107* 

0139 



NIPROC PAGE 9 DATE: Gl/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

^ ^ 


ASA V 

0008 

ATEH 

8 0,21.' 

ATHRUF , 

0181 

COl : 

0171 

CG2' 

017 2 

HA 

0012 

HANG 

, 0139 

I 

OQCQ 

I NT 

0C23 ■ 

iPi 

0007 

LZERO 

■ 0144 

MAXCOR 

,0 0 71, 

MESSAG 

QUO. 

MORE 

.0067 

MSAV 

ocie 

PAREXT 

010 5 

PARITY 

0018 

PARMOR 

0 0 60 

POWERU 

0016 ' 

PPROC 

-j 045 

PWFQV 

Qflli 

PWOV 

3119 

QSAV 

0 0 09 

SIGN 

0321 

SWTCH 

0017 


o 

o 

o 

,f) 

o 

C' 

o 

o 

o 

o 

o 

Q 

c 


C) 


char:,,- , 

017 3 

.'iCONVRT-' 

' 0049 ' 

FHDPE 

0 37 5. 

GOON 

^i:96 


IPROC 

0007 

JOBIND 

0017 

LONE 

^ I'rP 

L PM ASK 

.,-22 

\ 

NIPROC 

0 G 31 

NOEXIT 

0106 

, NOFND 

u C' 6 7 

NOPE 

0-79 

\ 

prfail 

0131 

PRO 

0013 

PTYERR ■ 

0 015 

PWFAIL 

(i i l~t 


SYFAIL 

0019 

TCPAR 

0072 

U POWER 

y 1 ^ 







r'"\ 

V-' 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 



COMMON 


PAGE 


i 


DATE! ti/27/99 


NAH COMMON DECK-ID M13 MSOS 5.0 ' 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-ll.GMioGOOOi 
, MiSOu'OGE 
M 15 u u j u 3 
' M130QOO4 


COMMON INTERRUPT HANDLER 


P 0 0 G 0 
POOOl 
P0002 
P00 0 3 
PO 004 
P0Qu5 
POGOo 
P0007 
P0008 
P00Q9 
POOGA 
POOQB 

poa.oc' 

POOBD 

POOOE 

POOOF 

PflOlQ 

POOH 

P0012 

P0G13 



ENT 

ALLIN 


EXT 

, PRO ' 

0 0 B8 . 

EQU 

COUNT (BBS) 

OOEF 

EQU 

PRLVL ($ EF) 

0QB7 

EQU 

AMASKT($B7 ) 

0 0 22 

EQU 

ZERO ($22) 

0 0 02 

EQU 

LPMSK (2 ) 


0 0 01 
G0G2 
00 03 
0 0 0 4 
0 0 05 
0 0 00 
OlFC 
48GB 
E8FC 
ODFD 
E622 
442B 
EO 00 
0102 
44F8 
E8 03 , 
14C0 
7FFF' 
0000 
A4B8 
EG88 
6201 
COEF 
AQll 
OlBl 


ENTRY IN NIPROC 


M 130 0 3 0 5 

H 15 j 0 j u 8 
M1300.a09 
' M13u001Q 

: . M1300 011 

■■■•; M13QQ012 

M 13 0 :Q, 01 3 
v-^MSOS ■:4..aM138G G14 


AFTER CONTROL IS TRANSFERRED FROM THE INTERRUPT 
TRAP LOCATION TO THE COMMON INTERRUPT HANDLER, 
THE RETURN LOCATION, A, Q AND I REGISTERS AND 
PRIORITY ARE SAVED IN A . PUSH-UP POP-OO-WN STACK 
BY PRIORITY LEVEL. THEN THE NEW PRIORITY AND 
MASK ARE SET AND CONTROL IS TRANSFERRED^TO THE 
ADDRESS ASSOCIATED HITH ^THE LINE ON WHICH, THE 
INTERRUPT APPEARED. 

EQU XA<1),XI(2),XR(3),XPL(h),XL{5) 


ALLIN 


P0014 B032 
P0G15 6204 


0 ' 0 
SNF ■ CPMFIX 
STQ» OREG 
LDO,^ ALLIN 
INC -2 
LOQ- (ZERO),Q 
STQ- ($2B) 

, LDQ =N$102 

STQ- ($F8) 

' LDQ» QREG 
_ JHP PRO 


QREG NUM 0 
CPMFIX STQ- (COUNT) 
LOQt COUNT 
STA- XA,Q 
LDA- PRLVL 
, . ' ‘ AND- LPMSK + 15 
SNO ALLA-^-1 

■ EOR- ZERO+lo 
ALLA STA- XPL,Q 


LINK TO. LEVEL ENTRY 
PROTECT FAULT . 

YES, SET UP LINKAGE TO IPROC 
SO IT CAN PROCESS THE FAULT 


SAVE' Q IN STACK ■ ' ‘ • 

STACK COUNTER-' AS INDEX 
SAVE A 

SAVE PRIORITY 

^ H S 0 S . 

CHECK- IF', OVERFLOW CONDITION EXISTED >^MSOS 
AT THE TIME THE INTERRUPT OCCURRED ’^^'•HSOS 
SAVE OVERFLOW AS BIT 15 WITH PRIORITY-MSOS 
SAVE OVERFLOW AND PRIORITY LEVEL Y^MSOS 


M13Cs 
,M135t 
M15,.( 
M133l 
Hi3Qi 
M13Ui 
M 13 u I 
M13 0 


COHtlON 


PAGE 2 


date: 01/27/99 


o ' 

DQ47 

P0016 

GOFF 

LOA-, I 

SAVE HEHORY 

Ml3u u u T 7 


0048 

P0017 

6202 

STA- XI,Q 

/ INDEX «;R£G.ISTER 

M1300 043 
M 13 u 0 0^,9 



0049 

P0018 

40FF 

STQ- I . 

STACK LOCATION OASE' 



. 005 0 

P0019 

0D05 

INQ xl: 

, UPDATE STACK 

Hl30g050 


C' ■ 

0051 

POOIA 

4088 

, STQ- COUNT 


Miojiiupl 

^ G 

00 52 

POOIB 

E8E4 . 

. , LOQ- ALLIN 

. LEVEL LINK 

M 15 j G 05 2 


0053 

PflOlG 

OOFD 

IMQ -2 

ADJUST TRAP LOCATION 

M 1 3 0 0 0 5 3 



00 5 4 

POOiO 

C622 

LDA- (ZERO),Q 

RETURN LOCATION' 

MISGOOSh 


o ■ 

005 5 

POOIE 

6103 

. STA- XR,I 


M 1300055 

^ o 

00 56 

POOIF 

40FF 

• STQ- I 

SAVE TRAP LOCATION IN I 

' , M13G U05o 


0057 

- P0020 

E202 

iLDQ- 2,Q 

SET NEW 

M 130 0 05 7 



0058 

P0021 

40EF ' 

: STQ- PRLVL 

PRIORITY LEVEL 

M13Qfl0,56 


o 

0059 

P0022' 

C6B7 

LDA- (AMASKT),Q 

SET NEW HASK I M’_ REGISTER 

M1300059 


0060 

P0 023, 

0400 

EIN 


M 13 0 0 0 6 0 



0061 

P0Q24' 

.0 8 21 ■ 

TRA M 


M130C061 



0062 

POO 25' ■ 

•El 03 ' 

LDQ- 3,1 

JUMP TO PROCESSOR 

M13QG062 


o 

0053 

P0fl26 

1622 

JMP- (ZERO),Q 

LOCATION IN Q 

' M1300U&3 


0064 



END 

M130 0 06 4 

C«-' 

o 

PGM = 

0027 

{ 39) 

COM = 0000 ( Q) 

DAT = OuUu { 0) 


o 


o 


o 

o 

0 

o 

Q 

r', 



o 

o 

c 


o 

o 

o 


o o 

( ! 


o 


COHMON 


PAGE 


3 


DATE; 01/27/99 


LJ 

£ Q U I V 

A L E N 

C E S 

o 

DEF.LINE 

NAME 

VALUE 


OOQC 

I 

OOFF ‘ ' 


0010 

COUNT 

00B8 " 


Dull 

PRLVL 

00 £F 


0 012- 

AMASKT 

. 00B7- 

c 

0 013 . 

ZERO 

0 0 22 ■' 

001 A 

LPHSK 

00 02 


0 02 5 

XA 

000 1 


0 025 

XI 

0002 / 


0 025 ■ 

XR 

0003 . ■ 


0 025 

XPL 

0004 

o 

0 025 

XL 

000 5 


referenced at line. number 


(000255) 

0-0 47 , 

0 0,49, 

0 05b 

{ 0 00184) 

0 0 38, 

0 0-39, 

0051 

(000239) 

0U!.>.1, 

0 058 


(000133) 

0 0 59 



(030034) 

u 0 31, 

0 a-,5. 

0 05 ‘T 

(000002) 

-.'■0 0 42 



( D 0 U'O U 1 ) 

..-0 0 40 



(000:002) 

/.'O 0 43 



( OOGOQ3) 

. - 0 0 55 



(000004) 

00 46 



(000005) 

00 50 




o 

o 

■'w"' 

o 

o 

O 

O 


O 


( ; 


o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




COMMON 


^AGE 


4 


date: ui/27/99 



REFERENCED AT LINE NUMBER 

, 0908» .0029, ,0052 
■0028, 0035 
0 0 27 
0 0 43 


O 

o 

O 

O 

o 

o 

o 


o 


C) 

c 

c.> 

o 

>»•»* 

i__ ,1 

o 

o 

o 

o 

o 

o 

o 

o 


o 


E X T E R 


.. DEF.LINE 
0 009 


COMMON 


PAGE 5 


DATE: 


HALS 


NAME , . VALUE 
PRO OOOC 


REFERENCED AT LINE NUMBER 
0 036 


01/27/99 


A L 

ALLA 

QREG 


COMMON 


PAGE 

6 


date: 01/27/99 


P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S' 



00L6 

0037 

ALLIN 

XA 

0 0 08 
0 025 

AMASKT 

XI 

00 12 ■ 
0 025 

COUNT 

XL 

QulO CPMFIX . 
0025 XPL 

. 0038 
0025 

I 

XR 


uuDG' LPMSl^' OOlH PR’LVL 

u025 ZERO 0015 


- 0 u 1. J. 


TRVEC 


PAGE 


1 


date; 01/27/99 


0 00 1 
00 0 2 
00 03 
000 4 


0 0-0 6 
D007 
000 8 


0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 4 

0025 

0026 

002 7 
0028 
0029 
Q 0 3 0 
0031 

003 2 

0033 

0034 

0035 

0036 
. 0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
0 0 4 5 

0046 

0047 

0048 

0049 

‘ 0051 
0052 


V- 

4 

4 


MAM TRVEC DECK-ID MI 4 MSOS 5 ji G 

Sass storage operating system ypsiON_5.o 

SMALL SYSTEMS DIVISION* La JOLLA, l/ALIFORNIA 
copyright control data corporation 19/0 


SUMMARY-1 lb--- 

MIaj bjC2 
MIAliOGOS 
Ml-rOuGOA 


vector 


POQOU 

PQOQl 



ENT 

TRVEC 

!00Q P 

EQU 

TRVECC^) 


ENT . 

unpiof 


_ ENT 

PARBVA 


ENT 

C0MPV4 


ENT 

INPTV4 


ENT 

SCHERR 


ENT 

JOBIND 


ENT 

N STACK 


ENT 

TRANV 


ENT 

UNPIO 


ENT 

lUP 


ENT 

SPASH 


ENT 

. LIBET 


ENT 

FILEl 


ENT 

FILE2 


ENT 

, FILE3, FILEA 


ENT 

recov 


ENT 

locf,lptrs 


ENT 

SWTCH 


ENT 

LOADIN 


ENT 

UNPTIM 


ENT 

VINPV4 


ENT 

BATCLU 


ENT 

PRORET 


ENT 

MIBUF 


ENT 

JPSWT 


' ENT 

JBPROE 


ENT 

trnvec 


' ENT 

RELSIA 


ENT 

ERRMSG 


ENT 

AUTF9 


ENT 

autfa 


ENT 

AUTFB 


ENT JKIN 


ENT 

JBCFGZ 


EXT 

PROTEC 

GO 0 5 

,,, -EQU 

NSTACK(5) 

0 0B9"'' 

EQU 

AREQXT{$B91 

0 Q 02 

' EQU 

LPMSK(S2) 

0 0 23 

EQU 

. ONE8IT($23) 

18FF 

' TRANV NUM 

S18FF 

0 0 00 

JBPROE NUM 

$0 


M140 Q-fl G 6 
M1400007 
M1400008 


SCHEDULER ERROR ENTRY 


batch control STATEMENT LU 
RETURN LOG TO UPLOAD' FOR PROTEC 


M140 
M140 
- M lA 0 
. M140 

-^MSOS -»»GM1aO 
MIA J 
■ ' MlA'j 

HlAl 

MIaO 
• MIa.^ 

'■ ■ M140 

’ H14Q 

Hl4u 

K ^ : M1-4G 

' '• - .M14D 

MIaQ 
' ■ , / MlAv 

•• ' M14G 

; . M140 

‘ ■ ■ ■ ' M143 

^"s-M'SOS 4.-.0M140 
llo-^Ab 

M143 


JOB ABORT :FLAG 

MAX NO. of' STACKED, REOUESTS 


^-MSOS 
-■'’■MSOS A, • 
»-MSOS 4. 


M14G 
M l“f J 
M14J 
H14G 
M IaO 
M14U 
M IaO 
. H140 
HI 4 O 
M140 
,Ml4U 

H140 

MIaO 

'OMIAu 

i;M140 

GM14G 


Oull 
0 012 
0013 
OOlA 
Q til 5 
QOlb 
Oul.7 
0 018 
u 0 1 9 '■ 
3 02 G ' 
G j21 
0022 
a 0 2 3 
DQZa 
0 02 5 
0 u 2 b 
iJ 027 
0 028 
0029. 
0 w* 3 C 
Q'031 . 

^ ^ V ¥ 

0 pz 

0 03 3 

0 uO-r 

0 33 5 
0 036 
0 037 
0Q38 
0039 
0 040 

0041 

0042 
0 0 A 3 
0 U Aa 
0 u A b 
Q Q’-^b 
0047 

< 0 

U U-fO 


LOG. IN JOBENT TO PROCESS JOB PROC. MODULES 


MIAO'.OOSO 
M IaC 0 051 


c 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


TRVEC 


PAGE 


DATE*. 01/27/99 


00 5 3 
00 5 4 
0 0 5 5 

0056 

0057 
00 58 
0059 

GOBI 

0052 

0064 


PQOQ'2 
.P0Q03 
P0 004 
PQ QQ5 
POOO 6. 
P0007 
P0 008 


00 00 
flCGO 
QOOO 
■DOOQ 
7F.FF 
OOOQ^ 
00 00 


ERRH3G 

MIBUF 

TRNVEC 

LIBET;4, 

RECOV' ; 

RELSl A 

PARBV4 


NUM O' 
NU^^:: G 
■ NUM ,:^$Q 
NUM. 

NUM 
NUM 
NUM 


$:00 0 0 
$7FFF 
0 
0 


ABS. AOOR. OF ERRH IN JOBENT ■. 

.ADaRESS,. OF HUMP bUFFER IN JOBENT .. ' 

ABS. AQDR. OF IRANI A DUFFER IN JOBENT ' 
ABS.AQBR. IN JOBENT THAT SCHEDULES' LI8EDT . 
LOG IN JOBENT TO SCHED. RECOVR 
LOG IN JOBENT TO RELEASE SPECIFIED FILE 
PARAMETER BUFFER IN JOBENT FOR FILES 


ANY ENTRIES TO TRVEC MUST BE MADE FOLLOWING THIS STATEMENT, " 

AS THE PRECEDING ENTRIES ARE PART OF A TABLE TRANSFER FROM. jOBtNT 


M L>~i u 05 2 
Mi^■Du 053 
M14 0u 05 4- 
MiwOQ-OFS 
. M IhO 0 056 
Mii^aQ057 
M 140 0 058 

M1400U60 
. M1400 Ool 




0066 P0009 0000 
0057 PQOOA 0000 
0068 


00 69 
0.0 7 0 
0071 


0072 

PO 

008 

0 000 

0073 

PQ 

OQC 

'>0 00 0 

0074 

PO 

OGD 

-’■0 0 00 

0075 

PO 

OOE 

18 F 9 

00 7 6 

PO 

OOF- 

GO 00 

0077 

'PO 

010 

0 3 00 

0 0 7 8 

PO 

Oil 

DijQQ 

00 79 

PO 

012 

OG-30 

DQ8Q 

PO 

013 

00 00 

0 081 

PC 

014 

QOOO 

0 0 8 2 

PO 

015 

QOOO 

00 63 

PO 

016 

OOCO 

0 0 8 4 




0 0 85 




00 86 

PQ 

Q17 

0 0 00-' 

0087 

P0Q18 

00 00 

0088 

PO 

019 

00 00 

0089 

PO 

fllA 

0 0 00 

0090 

PO 

OIB 

OQOO 

0 0 91' 

PO 

OIC 

0 0 00 

0092 

PO 

aiD 

0 000 

0093 




0094 




0095 

PO 

OlE 

00 00 

0096 




0097 




0099 

PO 

OIF 

0 0 00 


0100 
010 1 
0102 
010 3 
0104 
010 5 


J08IND 

NUM 

0 

UNPIO 

* 

* 

NUM 

$0 

>*■ 

* 

UNPTIM 

NUM 

0 

UNPIO F 

NUM ■ 

- 

BATCLU 

NUM 

0 „ 

lUP 

NUM ' 

. S18F9 

INPTV4 

NUM 

- 0 . 

AUTF9 

NUM 

' 0 

AUTFA 

NUM 

. 0 

AUTFB 

NUM 

O' 

SPASW 

NUM 

: .0. ' 

VINPV4 

NUM 

. 0 

PRORET 

NUH 

$0 

JPSWT 

NUM 

$0 

* 

FILEl 

NUM. 

$00 0 0 

FILE'2 

NUM 

$000 0 

FILE3 

NUM 

, ..'SO 00 0 

FILE4, 

NUM 

$0030 

LOCF 

NUM 

. .. $0000 

LPTRS 

NUM 

' '.$0 0 0 0 

5WTGH 

* 

NUM 

, $0000 

V- 

LOAOIN 

NUM 

$0000 


* 


* 


SET IF UNPROTECTED I/O IS GOING ON. DOES 
NOT ALLOW JOB TO BE KILLED UNTIL ALL OF , THE 
UNPROTECTED I/O REQUESTS ARE COMPLETED. 

AS EACH REQUEST, TERMINATES THE COUNT. IN UNPI 
T<s nFrPFHFNiTFn 

NUMBER OF . UNPROTECTED TIMERS REQ. WAIT 
FLAF. FOR BUFFERING ;I/0 REQUESTS _ 

BATCH CONTROL STATEMENT LU ,^8.AQCH, LU llo->^^3b 
INPUTUNIT.POINTER.-' 

BOSS''.INPUT;D£yiCE-SET BY SPACE 
STD' INPUT' AT .AUTOLOAD, SET BY RESTART 
STO PUNCH AT AUTOLOAD, SET BY RESTART 
STD LIST AT AUTOLOAD, SET BY RESTART 

INPUT, ASSIGNED, BY. ^^MSOS ,-. 
LOG. IN JO8PR0 TO RETURN TO FROM FROT5 
TEMP LOG. FOR MI I NP OUF FER ADDR. OR AN INDEX 
TO THE TRANTA.. TABLE.'IN JOBPR'O OR ,A N EG . , , 

VALUE SET BY JOBENI',':OR JBKILL^ ' 

LOCATION OF JOBENT FILE 
LOCATION OF J06PR0 FILE 
LQC. OF THIRD FILE , 

LOG. OF FOURTH FILE ' 

LGC. OF F IN- PROTECT- '..PROCESS OR 
LOG. OF PTRS IN PROtECT PR'OC. 

SWITCH TO LOCK-OUT JO 8PR0CESS0R 

WHILE LIBEDIT OR THE RECOVERY , . 

PROGRAM IS IN OPERATION. . ' ' 

PROTECT- PROCESSOR FLAG TO LET 
LOADER READ AND WRITE ON'-MASS 
STORAGE. 


M1.4a 

HILj 

mihq: 

M14u 

OM140 

M143 

M14Q 

mill 

M14L1 
H14Q 
Mii,j 
Ml4u 
HIhL 
M140 
u M 14 G 
M140 
M I4,a 
M 14 j 
"M140 
H14G 
Mi4a 
H 1h J 
M 1.4 0 
MIhu 
Ml4u 
M 14 u 

MIhQ 
Mm:- 
M14Q 
M14ti 
.. M140 


0 G65 
U J bo 
0067 
0 0 68 
0 069, 
007G 
0 071 
0 072 

U’a73 
0074 
0']7:> 
0076 
0 07 7 
0 07 8 
u 0 7 9 
0 0 8 0 : 
U y 3 i 
u J 8 2 
O'U 3 3 
Q a 8 4 
0 08 5 
0 08 6 
Cl 0 8 7 
0 088 
0 039 
u u9 C 
0 -y91 
u'092 
0 093 
0 094 
u0,9 5 


JKIN 


* 

■V- 

♦ 

¥ 


NUM 0 

THIS CORE RESIDENT PROGRAM IS -ENTERED 
TO CANCEL JOB PROCESSING., IT SCHEDULES 
THE MM RESIDENT,)- J8KILL ;M0DULE T.HEN ',SETS „ 
THE JBCNFG NOT ZERO WHICH TELLS THt PROTECT 
PROCESSOR TO QUIT HONORING REQUESTS FROM 
UNPROTECTED CORE. 


M'14;0 ,a09 7 
Mi.4a-,oa9'8 
MlLyOOSg- 
) H 140.0 lu D 
M140 Old 
H14 J 0 10 2 
M1400103 


TRVEC 


PAGE 


DATES 01/27/99 


010 7 

010 3 
0109 

011 0 
0111 
0112 ' 

0113 

0114 
0115- 
0116 
0117 
Oil 8 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
0134, 

0135 

0136 
013 7 

0138 

0139 
QIAO 


POQ20 

P0021 

PQ022 

PD023' 

PQG24 

PG0.25 

P0026\ 

P0027 

P0026 

PQ029 

P002A 

PO 02B 

P002C 

P0020 

P002E 

P002F 

P0 03/Q 

P0031 

PQ032 

P0033 

PO 034 

PQQ35 

PQQ36 


C816 
0 116 
0005 
01 53 
OCFA 
18 09 
= 00 00 
CBFE 

one 

E8DA 
C20C 
0109 
D8F9 
0802 
C8FD 
0807 
ulOA 
6803 
54F4 
5202 
00 00 
14EA 
GOOD 


PO 037.' 0000 
PQ038 0000 
P0G39 0500 
P003A ICFC 
P003B 54F4 
P003C.2402 
P003D 7FFF 
P0G3E 14EA 


JBCNCL 


JBCFGZ 

JK 

JKO 


JKl 


JBJK 

JBEXIT 

JBCNFG 

JPRETl 

JPRETN 


JKNIM 


ENT 
ENT 
LDA^ 
SAN 
INQ . 
SQN. 
ENQ 
JMP» 
ADC 
LOA’^. 
SAN 
LDQ’^ 
LOA- 
SAZ 
RAO- 
SET 
LDA^ 
RAO^ 
SAZ 
ST A-.' 
RTJ- 
NUH 
NUM 
JMP-. 
AOC 
ENT 
ADC 
Q 

IIN 

JHP^ 

RTJ- 

■NUH 

ADC 

JHP- 


JBCNCL 

JBCNFG 

JBCNFG 

JKO 

5 

JK 

-5 

JKl 

0 

JBCFGZ 

JBEXIT 

TRNVEC 

12»Q 

JBEXIT 

JBCFGZ 

Q 

JKIN 

JBCNFG 

JKNIN 

JBJK 

($F4) 

$5202 

0 

{$EA) 

0 

JPRETN, JPRETl 
0 
0 
0 

(JPRETl) 

($F4) ' ■ 

$2402 
PROTEC 
(SEA) 


JOB CANCEL FLAG 

IF JBKILL HAS BEEN SCHEDULED, DONT 


THti-REQUeST TO CANCEL WAS FROM 
T5-: DON'T ABORT, JOB 
JOB ABORT FLAG 

IF A JOB IS ABORTING, DONT REDO 


IF NO JOB IN PROGRESS,; DONT ABORT 
SET JOB ABORT FLAG 

SET JOB CANCEL FLAG NON ZERO 


SCHEDULE HM PROG AT LVL 
T WO 

EXIT TO DISP 
JOB CANCEL FLAG 

SET UP BY T7 AND JP'LOAO. 

JPRETN MUST Be IN ' PR ESET TA BL E FOR 
PROCESSOR TO PASS THIS ON TO LOADER 
GO TO T7 OR UPLOAD 


REDO 

■' .^^HSOSl 


.M14Go;1G'5 
M 140 0 10. 6 
; M1400107- 
.H14.J.010 6 

■; 'MlAflQllQ 
’^^MSOS ■■4.:CMi4d''a,±il'- 
M1.4D”U112. 
M 140 011 3 
' : HlROflilA 
.. M140.3115 
M 14 Q 0 11 6 
' M140G117 
M14QQ118 
M14UU119 
MIhOuIZG 
• ;/'MilQG121 

' H 140 G 122 
.G'M140'ai2 3 
'.'.M14G0124 
M 14 00 12 5 
GM14D0126 
M14fl0127 
H1400126 
M14Q0129 
Ml4G 013 0 
M140G131 
M14U0132 
H1400133 
M14-:013 4 
M1400135 
M 140 013 6 
H14G0137 
jHii-u 0138 


■-MSdS 


^^MSOS’ 


PROTECT 

REQUESTOR 


^-MSUS 


TRVEC 


PAGE 
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C'- 

(J 

o 

o 

o 

C) 


o 


•. ) 


• ) 


0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 


if. jf. 3f. ^ ^ ^ if. if. 3f ^ jf. ^ if. if. 

^ ■ s ; 

3 f 

if. 

. SCHERR 




SCHEDULER ERROR-RETURN TO USER 


P003F C4FF ■ , SCHERR ,LDA-' (D ' 

P0040 AOll. ,AND- LPMSK+1 

P.0041 B032 EOR- ONEBIT+ 

P00h2 64FF STA- (I) 

P0043 1489 JMP- (AREQXT 


0154 






A.GT.Q , 

015 5. 






0156 






A.EQ.Q 

0157 




if. 


A . LT . Q 

0158 







0159 

P0044 

OB 

00 

C0HPV4 

NOP 

0 

0160 

P0045 

05 

00 


IIN 

0 

0161 

P0046 

01 

32 


SAM 

AUPPER 

0162 

P0047 

01 

65 


SQP ' 

BTHSAM 

01,63 

P0048 

18 

08 

, 

JMP4 

QBIGR 

016 4 

P0049 

01 

73 

AUPPER 

SQM 

BTHSAM 

0165 

PO 04A 

08 

52 


TCQ 

Q 

0166 . 

PO 048 

08 

34 


AAQ 

A 

0167 

P0 0 4C 

18 

05 


JMP^ 

ABIGR 

0168 

P0 040 

0 8 

52 

BTH5AM 

TCQ 

Q 

0159 

PO 04E 

08 

34 


AAQ 

A 

0170 

P0 04F 

01 

21 


SAP 

ABIGR , 

0171 

P0050 

08 

04 

QBIGR.’ 

SET 

A 

0172 

PG051 

04 

00 

ABI6R. 

EIN 

0 

0173 

P0052 

1C 

FI 


JMP^ 

(C0MPV4) 

017 4 





ir» 

0175 





END 


PGM = 

Q053 

{ 


■83) COM = 0, 

iOO C ' 0 


SET -Q" ' ‘ . . '■ . 

5' , NEGATIVE ' ' 

15 : ON RETURN > 

TO USER . t 

) ^ . ■ ■ . ^ 

ADDRESS COMPATE ROUTINE ' 

DIFFERENCE RETURNED IN A .. ' ' ’ 

A EQUAL 0 
A SET TO FFFF 


AIN UPPER BANK 
BOTH. IN LOWER BANK 
A IN LOWER Q IN UPPER 
BOTH.; IN UPPER BANK 
A I.N; UPPER ;.'Gi IN LOWER 
GET DIFFERENCE IN A 


^HSOS^:4 .: 
’MSOS.. 4.. 
»HSOS'.'4., 
-MSO'S- 
^MSOS. "4. 


SUBTRACT Q FROM A 
Q IS BIGGER 




''MIlu i] IhO. 
H14U0141 
Ml 40 G 14 2 
^M14p0143 

'*'H1“tj u1*t h 
G H 140,0 1h 5 
,OM140Gl‘+b 
ifiM,l4G0147 
0M14QQ148 
aH14.Q0149 
140,015 0 
> Ml 401 151 
■.Mi40,G 152 

■ M 14 0,0,15 3 
M 140 015 4 

r H140015 5 
M140 015 6 
.M1400157 
' M 140 0,15 8 
M14 00159 

■ H140G16Q 
. Ml,40 015i 

M1400162 
Mi4001o3, 
M143 ulo4 
M140G165 
M140Clo6 
M140 0 IS 7 
Ml-rO Q168 
MILO 0159 
M1400170 
Ml40 0 171 
^M140C172 

■ M14Q0173 


OAT = 0000' ( 


0 ) 


O 


r'l 

S.,.- 


C' 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


t ; 


r'l 


O 

O 


O 

O 


4 ..-‘ 
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OATE'J D1/E7/99 


EQUIVALENCES 


DEF.LINE NAME VALUE 

aaOQ I flOFF 

0017 NSTACK 0005 
0 0 A7 . • AREQXT 00B9 

0048 LPHSK ' 0002 

0049 ONEBIT 0023 


REFERENCED AT LINE NUMBER 

(000255) 01‘t7, 0150 

(000005) .0017 

(000185) 0 151 

(QC00Q2) 0148 

(000035) 0149 


TRVEC 


PAGE 6 


DATE! 01/27/99 


SYMBOLS 


DEF.LINE 

NAME 

ADDRESS 

0 00 7 

TRVEC 

0 00 0 

OGll 

UNPIOF- 

OOQC , 

0Q12 

PARBV4 

00 0 8 

0013 

COMPV4 

0044 

0014 

I MPTy^t 

OOOF 

0015 

SCHERR 

0G3F 

0016 

JOBIND 

00 09 

0018 

TRANV • . 

0000 

0019 

UNPIO ■ 

QOO A 

0 020 , 

lUP 

OOQE 

u u21 

SPASW 

0013 

0 0 22 

LIOET 

00 0 5 

0 023 

FILEl , 

0017 

0 024 

FILE2 

0018 , 

0025 

FILE3 

0019 


0 025 


FILE4 


OOIA 
0 00 6 


REFERENCED AT LINE NUMBER 

0 0 07 
OQli 
0 012 

0013, 0173 
0014 
0 0 15 
0016 
0018 
. 0019 

',- 0020 
. 0021 
,0022 
.0023 
' 0 0 24 
0 0 25 
■ 0 025 
0 026 


0027 

LOCF 

OOIB .. 

. 0 027 


0 027 

LPTRS 

OOlC . 

0027 . . . 


0028 

SNTCH 

OOID 

0 0 28 


0 029 - 

LOADIN 

OOIE 

0029 ' 


0030 ■ 

UNPTIM 

OOOB 

0 0 30 ‘ 


0031 

VINPV4 

0014 

0 0 31 : . 


0032 

8ATCLU 

GOOD 

^ . G 0.32 ' . ■ . 


0 033 

PRORET 

0015 

■ 0 033 


0034 

MIBUF 

0003 

. 0,Q;34;.': .. 


0035 

JPSWT 

0016 

0,.ft35 ' . ' 


0036 

JBPROE 

OQOl 

.0 036 


0037 ' 

TRNVEC 

00 0 4 

0037, 0118 


0 038 

RELSIA 

00 07 

...0'038 ' . 


0 039 

ERRMSG 

00 02 

: Q 0 39 


0 0 4.0 

AUTF9 

QQIO 

OQ 40 


G 041 

AUTFA 

OQ 11 

00 41 


0 042 

AUTFB ;■ 

0012 

0 0 42’ • 


0 0 43 

JKIN 

OOIF 

0 043,. 0123 


0 044 

J8CFGZ 

0026 

0 0 44, .Dll‘6, 

, 0121 

0 10 1 

JBGNCL 

0020 

3 107 


C108 . 

JBCNFG 

00 3 6 

0108,' 0109, 

G12h 

0116 

JK 

0027 

3112 


a 117 

JKO 

0028 

0110 


0123 

JKl 

002E 

0114 




- , ■ f ' 


TRVEC 
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C) 

o 

o 

o 

o 


f ■' 


o 

o 

o 

o 

o 

o 

o 

o 


0 129 

JBJK 

0034 

0126 


0 13 C 

JBEXIT 

0 0 3 5 

• 0il7,. 

, 0 12 Q 

0 132 

JPRETN 

0 038 

0132 


0 132 

JPRETl 

0037 

9 1 32 ,, 

013 6 

013 7 

JKMIN 

0Q3B 

0125 


016A 

AUPPER ’ 

0049 

3161 


0168 

BTHSAM 

G04D 

, 0162, 

0 16 4- 

G171 

Q8IGR 

0050 

0163 


0172 

ABIGR 

0 05 1 

3167, 

0 170 


u 

o 

o 

n 

■W.-* 

o 

D 

O 

o 

c 

o 

o 

o 

o 

o 

^*s 


TRVEC 
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3 


DATES 01/27/99 


EXTERNA LS 


DEF.LINE name VALUE 
0 045 PROTEC 0030 


,, REFERENCED , AT LINE.NUMEtR 


o 


TRVEC PAGE 9 DATE: 01/27/99 


o 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 




ABIGR 

0 172 

AREQXT 

■.0.Q47 

. AUPPER 

0164 

' AUTF9--.; 

;0a'4Q. 

. AUTFAK'F 

■■0041 

o 

ERR MSG 

’ 0039 

FILEl 

^ -0023 

-FILE2 ■ 

0 024 . 

FILE3. ■■ 

0025- 

FILE4 

0 02 5 

JBCNCL 

010 7 

JBC'NFG 

•...Q10 8 

• JBEXIT 

0 1-50 A. 

JBJK 

.0129 

.JBPROE 

00 3 6 


JKNIN 

013 7 

JOBIND 

'0016 

JPRETl 

01.32' 

JPRETN-- 

0132 - 

JPSWT 

0 03 5 


LPTRS 

0027 

MIBUF 

.0034 

NSTACK 

O' 0-1 7 . 

ONEBIT 

0049 

■ PARBVa 

0012 

o 

RELSIA 

UNPTIM 

0038 

0030 

SCHERR 

VINPV4 

0015 
0 0 31 

'SPASW 

0 0 21 

SHTCH 

0028 

■ TRANV ' 

0016 


C") 

o 

o 

o 

o 

'' ') 

o 

o 

o 

o 

o 


AUTFS 0u42 
I 0 00 0 

JK. 0116 

LIBET 0Q22 
PRO RET 0 03 3 - 
TRNVEC 0037 


BaTCLU. 0032 
INPTV-^. 001^ 
JKO, ' ' , ' 0117 
LQAOIN 0029 
PROTEC OflRP 
TRVEC 0007 


BTHSAH 0166 
lUP ■ D j20 

JKi • --123 

tOCF " ■' B027 
Q8IGR'' 0171 
UNPIO j-19 


COMPVh 0013 
JBCFGZ 0--)-- 

' LPHSK ‘ u L AC 
RfCOV 

UNPIGF --ii 


O 
C 
: O 
; O 

o 

; O 

o 

; O 
: O 
: O 

o 

; O 
O 

o 

■ p) 



OFVOL 



PAGE 

1 DATE; 01/27/99 


0001 




NAH 

OFVOL 

DECK-ID Hl-5 MSOS'5.0' ' 

SUMMARY- liGH15u0ujl 

00 0 2 




HASS 

STORAGE OPERATING . SYSTEM VERSIO N. 5 . 0 

H 15 0 0 0 0 2 

00 03 




SMALL SYSTEMS 

DIVISION, LA JOLLA, CALIFORNIA 

MiOjOuGS 

00 0 4 




COPYRIGHT CONTROL DATA CORPORATION 1976 

M15jyd04 

000 6 




VOLATILE STORAGE OVERFLOW 

MiE.OOJOb 

000 7 




ENT 

OFVOL 


’ ' ' ' ■ ■' H150 0UQ 7 

000 8 

0 QQQ 

P 


EQU 

OFVOL(^) 


■ M15G G Gii 8 

0011 




THIS 

PROGRAM IS 

EMTERRED WHEN VOLATILE STORAGE 

MlSGGilll 

0012 




IS OVER SUBSCRIBED. 

M 15 u u ul 2 

0014 




ENT 

OVFVOL 


Mi5aaoi‘4 

0015 




EXT 

SYFAIL 

SITE FAIL LOCATED IN SYSDAT 

($18FF) M15wfl!il5 

0Q17 

POOuQ 0841 


OMFVOl. CLR 

M 


M15.jOG17 

0018 

POOOl EOOO 
PG002 0091 



LDQ 

= N$91 


MiSuGGld 

0019 

P0ii03 C02B 



LDA- 

$2B 


Mi500019 

00 2 0. 

P00G4 Q3FE 



OUT 

-1 


M1500G2G 

0021 

PQGG5 EG GO 
P0006 .0090 



LDQ 

= N590 


M15u u o21 

0022 

P00u7 GA4F 



ENA 

$^F 


M1500022 

0023 

PQQ08 ■•03FE 



OUT 

-1 


'■ M150GG23 

G02t 

P0Qu9- 0A56 



ENA 

$56 


HI^jOGZ^ 

002 5 

POGGA 03FE 



OUT 

-1 


'■ H 15 a 0 02 5 

0026 

POOijB 5400 

X 


RTJi- 

SYFAIL 

VOLATILE .'OVERFLOW - HANG 

Hl5Ga026 


POOOC 7FFF 

X 





' . 

002 7 




END 



M15uGG27 

pr,M = 

OOOD { 

13) 

COM = Qoao ( 

0 ) DAT = OOOQ { 0) 
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DATE: 01/27/99 


EQUIVALENCES 


def.line name 

ODQG I 


VALUE REFERENCED AT LINE NUMBER, 

OOFF COQ0255) 



OFVOL 


paGE 


3 


date; 01/27/99 


Y M B C 

L S 



DEF.LINE 

NAHE 

ADDRESS 

REFERENCED AT LINE NUMBER 

0 0 07 

OFVOL 

0000 

0 0 07 

Q 01 4 

OVF VOL 

0000 

0 014 




OFVOL 


PAGE h 

DATE: 01/27/99 

D ' 

E X T E R 

N A L S 




O 

def.line 

NAME 

VALUE V. 

REFERENCED AT 

LINE NUMBER , ^ 

O 

0015 

SYFAIL 

oooc 

0 026 



o 


C: 

o 

o 

o 

o 






o 


o 

o 


Q 

o 
o 
o 
o 
\ ; 


c 

o 

o 

o 

o 


o 


OFVOL PAGE 5 DATE! 01/27/99 

»»» ALPHABETICAL SORT OF SYMBOLS 
I 0000 OFVOL 0007 OVFVOL 0014 SYFAIL 0015 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 


L.' 

o 

c 

o 

o 

o 

o 
( \ 

o 

o 

o 

o 

o 

o 


o 



SJMHARY-llOMlouuOOl 
Mi60&u02 
MibJOuj3 
H 160 0 a 04 


M 1600 j 06 
M IbO u 3 Q 7 
M160 u u G 8 


M1600Q11 

M 16 C u Oi 3 
M16G 0 01*+ 

M16UQ015 
Ml&0a316 
H160 0 J17 
H1630013 
Hlbi G 019 
H 160 0 02 0 

MIduOOEI 
; Hibju 022 
Mlba0023 
Hl6aG024 
H 1 6 j 0 0 2 5 

M 16 G 0 0 2 6 
MioD0027 
M16G0Q28 
H16G0029 
,H16uuu3ij 
Mlo- U vjI 
MlbuOuiZ 
M16D0U3S 
M160 Q QSh 
M ioU 0 u3 9 
M160a03b 
■' M 160 0 0 3 7 
‘Hibfl 0 038 
' MloO 0 039 
' ' i Mlb j 0 0 4U 
' ■MlbOOuAl 
'■H'ibOQOi+2 
M16j li ij - t3 
.Hlbii 0 a^TH 
‘ MibG U 0 + :? 
• M 16 G 0 04-6 
Hib000^7 
Mib:j 0 048 
M 16 0 0 0 49 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 




;M16QQ050 
HiBOfl 351 
M 160 u u 5 2 
M160U 053 
M160 0C5 h 
M 16y OQ55 
M 16 j J 0 3 6 


r ■' 

V,,' 

o 

o 

o 

C:- 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE 


ui/27/99 


C‘ 

EQUIVALENCES 

o 

DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER 

;0030i 00385 .OuAS* OOA-!? 
0 022. » 0025» 0u3E>» uu-47 

0C46 
0 0 ^ A 


■D 


0 

0 0 00 

I 

OOFF • 

(000255) 

00 28, 

0 014 

VOLATL 

OOFC , 

{Q00240) 

0,019 5 


GG14 

ZERO 

0022 

( 000.034) 

: 0 048 


0 054 

VA 

000 1 

(000001) 

• 0027, 

1* 

00 55 

VI 

00 02 

(000002) 

0 029, 


u 

O 

O 

o 

o 

o 

u 

O 

O 



c.; 

O 

c 

o 

o 

o 


o 

o 


o 


c 


o 

o 

o 

o 

o 
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4- 

SYMBOLS 


DEF.LINE 

NAME* 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 0 0 7 

ALVOL 

_ 0000- 

0 0 0 7 



0011 

VO L A 

0000* : 

OQll , 

0023, 

0034, 0G37, 

0011 

VOLR 

0015 

coil, 

0 049 


0 026 

VOLAl 

OOOA 

0024 



U 4 0 


ALVOL 


PAGE 
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DATES 01/27/99 


EXTERNALS 

O ' 

DEF.LINE NAME VALUE 

r-, 0012 VOLENO ' 0 0 0 3 

0013 OVFVOL 00 0 9 



O 

o 

o 

o 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 

0 02 0 
0 025 


O 


C 

O 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 
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o 


ALPHABETICAL SORT OF SYMBOLS 


o 


ALVOL •0 00 7 I 
VOLR ■ DQll ZERO 


OQOO OVFVOL 
0014 


0013 ■ VA 


0054 VI 


0055 VOLA. 0011 '":V0LAi *' 0026 VOL4TL ''0014 VOLEND uL12 




o 

o 

o 

o 

o 

o 

o 

o 

o 

■o 

o 

o 

{ 

v-' 


o 

o 

o 

/-“N 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 


o 


ALCORE 


date: 01/27/99 


NAM ALCORE DECK-IO M17 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


0 0 00 


CORE ALLOCATOR' 
ENT AlCORE 
EQU ALCORE<») 


00 02 
0022 
0 0 02 
0011 


NINSI Z 
MAXNO 


REOALC, RTNCOR 
L VL3TR, LENO,CALTHO 
LPMSK ($2) , ZERO($22) 

HI NSIZ (2 ) 

MAXNO (LPMSK+15) 


THIS MODULE FINOS AN. AVAILABLE AREA IN 
THE SPACE ALLOCATED TO IT AND ASSIGNS 
PART OF IT PER A SPACE REOUEST. 

THE CORE ALLOCATOR IS ENTERRED FROM THE 
CORE ALLOCATOR DRIVER AND FROM THE 
RELEASE REQUEST PROCESSOR. 


ON ENTRY TO ALLOCATE GORE, 
BE AS FOLLOWS.- 


AND Q MUST 


A= REQUESTED LENGTH. 

Q=PRIORITY LEVEL OF , THE- REQU ESI . 

AN ENTRY TO RETURN CORE PREVIOUSLY’ 
ALLOCATED MUST HAVE THE ORIGIN OF THE 
BLOCK BEING RETURNED IN Q. 

ENTRIES TO -OBTAIN SPACEf ARE MADE , 

THROUGH REQALC. 

ENTRIES TO RETURN CORE ARE MADE 
THROUGH RTNCOR. ■ 

IF-AN ALLOCATION-CAN-NEVER ' BE-' MADE, THEN 
A RETURN TO CALLER IS MADE WITH Q,= 0 

IF -NO SPACE IS available NOW., THEN, A 
RETURN TO CALLER -IS HADE WITH Q=-l 

IF THE ALLOCATION IS SUCCESSFUL, THEN 
A RETURN TO CALL, ER IS MADE, WITH THE 
ORIGIN OF THE AREA IN Q. 


POfl'OQ 00 00 
POODl 482F 


REQALC 


p n f* n 

STQ^ REQLVL 


REQUEST LEVEL 


SUMMARY-lluHl7GuOGl 
,,M170 00,0 2 
M17CG0G3 
M17Q00Q4 


M 17 j 0 j Li 6 
M17D 0 GO 7 
M17j D008 


M170 0 01.1 
M170uQ12 
M170 0 013 

M17 0 u 01 4 
H 17 DO 015 
M17 0 0 016 
M 1 7 D 0 0 1 7 
M17Q 0618 ' 
M170 0 -319 
M170002e 
M17u0u2i 
M17Q0022 
M 17 y 0 C 2 3 
M170Q024 
M173 Q 025 
HI 7 O'U'.QZd 
M 17.00027 . 
H1706 02 8 ' 
M 17 y 0 029 ’ 
Ml7 0Ci03a'-' 
Mi7y0-O31-.- 
H17 06 032’; 

" Mi-7 3 Q.j 33 
M170U034 
,M17 j0u 35 
H17G0036 
Ml7 3 0,03 7 
H1700 038 
M 170 06 36 
M 1,7 3 0 0 ^ 0 
H17u Oy H-1 
H 1700342 
M170 u u ^-3 
H170 0 044 
Mi70Q 0-46 
M 17-3 0 fl4 fe 
H170U0,7 
M1700,043 
H17 0yO-r9 
M17 0 0 u5 0 
H17G0u5l 


o 

o 

c 

o 

o 

o 

( ) 

o 

o 

o 

o 

o 

o 


A LCORE 
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DATEJ 1.1/27/99 


P0QG2 

P0003, 

•POOO'H,V' 

pooa5> 

P00G6.: 

P0007 . 

P0008- 

P0009 

PO OOA 

pcaoB' 

POOQC'' 

POOOD 


0902 
682C 
C&OO , X 
7FFF. X 
6828 
8828 
9A0Q X 
7FFF X 
D9FD 
0132 

ocoo 

1CF2 


POOQE Cull 
POOQF 6822 
POQIO EODO X 
POOH 7FFF X 
P0012 4821 


P0013 

P0 014, 

P0015^ 

P0016 

P0017 

P0018 

P0019' 

POOIA- 

POOIB 

PCOIC 


E201 

flODO 

0151 

181E 

40FF 

C4FF 

9816 

0121 

1311 

0814 


POOID 9811 
POOIE 0131 
POGIF 1805 


P0020 

P0021 

P0022 ■ 

P0023 

PQ0.24 

P0025 

P0026 


84FF 
9 8 OE 
0121 
18 09 
CAFF 
98QC 
0131 


INA MINSIZ 
3TA- REQLTH 
LOA+ LVLSTRtQ 

STA> ISXR 
AOD» REQLTH 
SUB+ LEND 


JHP^ (REQALC) 


LENGTH= (A)+MINSIZ 


LEVEL START 

IF LSTR+ REQLTH .GE,. ' LEND 


IF LSTR + REQLTH .GT. LEND 
ERROR CODE., Q= 0 


LOOK THROUGH THE AVAILABLE AREA FOR THE 
SMALLEST USEABLE PIECE. 


LDA- MAXNO 
STA^ MINPCE 
LDQ =XCALTHD 


RCOREl STQ^ 


LDO- 

INQ 

SQN 

JMP’f- 

STQ- 

LDA- 

SUB’ 

SAP - 

JMP^ 

, TRQ 


SUB» 

SAM 

JHP^ 


L THD 


1,Q 

0 

1 

■CEOT 

I 

- (I) 
REQLTH 

1 

CNXT 
A . 

LSTR 

1 

CSIZCK 


2-^15~l 


THREAD = FFFF, GO TO CEOT 


ADD- 
SUB^, 
SAP ■ 
JMP.^ 
CSIZCK LOA-^ 
SUB^ 
SAM 


(I) 

REQLTH 

1 

CNXT 

(I) 

MINPCE 

1 


IF PIECE TOO SHALL 


GO GET -NEXT :PI£C£ 

IF THeVsTART'oF THE 
PIECE ABOVE LEVEL START 
GO CHECK SIZE 

OTHERWISE, PIECE STARS 
BELOW START FOR THIS 
LEVEL. , , 

IF START OF PIECE, SI, 
PLUS ITS LENGTH IS 
.GE. THE REQUEST "LEVEL 
PLUS LENGTH, GO CHECK SIZ 


CANT USE PIECE • ' 

IF THIS. PIECE LARGER THAN 
LAST PIECE, CHECK NEXT 


o 


Mi7Eu,u52 
M1700 05 3 
M i 7 i 0 0 5 4 

:■ M17S0055 

■ M1700Q56 

; M170 Gi35 7 

M 170 0058 
H1700059 
M 170 u U 6 0 
M170Quoi 
M1700 052 
M170'0,063. 
Mi? 0 u.O 6 4 
M173 0065 
M 1 7 0 0 0 b D 
Mi7D00o7 
M170uG58 

H17.. 0 0 69 
M1701] 07 0 
Mi75 0L>71 
Hi? O.u 07 2 
M 17 D C‘, 0 7 3 

' M 17 0 G u 7 4 
M 17 ^ u 0 7 ^ 
M17;,u 076 
M17G 0 u 7 7 
M 170 0078 
Hi75 0 0 79 
M173008G 
Mi7uG j81 
M1700 082 

■ M17U0083 
M 17 0 u 0 8 4 
M17D 0085 
M170'0 G86 
M170 u 08 7 
M 17 0 G 08 8 
Hl7i] 0 089 
M1700Q90 
M17u009i 
M170iJ092 
H17uu093 

’ M1700094 
M17D0 095 
M170au9& 
Hi7GG097 
M170Q 098 

, M1700339 
M i 7 0 0 1 0 0 
M170G101 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 
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O 

O 

o, 

o 

o 

r-. 

Q 

; \ 

(-■) 

O 

O 


0102 P0027 1805 

0103 P0028 C4FF 

0104 PDQ29 6808 

0105 Pa02A C309 

0106 P002B 6307 

0107 P002C EQFF 

0108 P0Q2D 18E4 

0109 P002E 0000 
ailO P002F 0000 

0111 P0030 0000 

0112 PDQ31 0000 

0113 PQ032 0000 

0114 P0Q33 0000 

0115 

0116 P0034 coil 

0117 P0Q35 98FB 

0118 PC 03 6 0101 

0119 P0037 0122 

0120 P0038 OGFE 

0121 P0039 1CC6 

0122 

0123 

0124 

0125 P0Q3A. E8F7 

0126 P003B.:C201 

0127 P003C 483A 

0128 P003D 683B 

0129 PGQ3E GC3A 

0130 P003F 683C 

0131 P0040 E838 

0132 P0041 C201 

0133 P0042 6838 

0134 

0135 P0043 C8EA 
0138 PC044 9834 

0137 P0045 0103 

0138 P0046 0132 

0139 

0140 P0047 09FG 

0141 P0048 0121 

0142 P0049 1810 

0143 PQ04A0903 

0144 Pfl04B 682C 
014 5 P0 04C E8 2C 

0146 P004D4829 

0147 P004E 40FF 

0148 P004F. E8DE 

0149 P005a 4328 
015C P0051 CiOl 

0151 P0052 6201 

0152 P0053 4101 

0153 P0054 CC22 

0154 PQ055 9822 


JMP.^lCNXT . 

LDA - :.n) 
STA^.liINPCE 
LDA» LTHD 
ST,A» LMINTO 
LDQ- I 
JMP» RCOREl 
NUH 

NUM 0 
NUH 
NUM 0 
NUM 0 
NUM 0 

LDA-‘HAXNO 
SUB^ HINPCE 
SAZ 1 

SAP . CA4Pl-^-l 
ENG -1 ' 

JMP^ (REQALG) 


UDQ^ LMINTO 
LOA~ 1,Q' 

STQ^ SI 
STA^ S2 
LOA^ {S2) 
SIA^- CN 
LDQ^ S2 
LDA- 1,Q 
STA» S3 

LDA^ LSTR . 
SUB^ S2 
SAZ AGA5-»-l 
SAM ACA5-^-l 


INA ■ 

SAP 

JMP^ 

INA 

STA^ 

LDQ^ 

STQ^ 

STQ- 

LOQ» 

STQ^ 

LOA- 

STA- 

STQ- 

LDA^ 

SUB^ 


•MINSIZ-1 

1 

CAS 

MIN3IZ^•1 

LSI-PRIME 

S2 

51 
I 

LSTR 

52 
1*1 
1»Q 
1»I 
{SD 

LSIPRIME 


SAVE LNGTH AND LOG. 


I MKtAU LUC. FOR- SMALLEST 
GET THE NEXT- PIECE. 
REPEAT SEARCH OF THREAD. 


END OF THREAD. ' ^ ’ 

IF NO PIECE FOUND, THEN 


ERROR CODE RETURNED IN Q 


A PIECE WAS FOUND 


51 POINTS. TO S2 

START OF SEGMENTS=S1=52 
CHOSEN PIECE LENGTH = ^ GN 

52 POINTS TO S3 


IF NO LOWER PIECE 


A ' LOWER, -PIECE . EXISTS . 

IF LOWER PIECE LESS THAN 
MINIMUM SIZE PLUS 1 


S1,I=S2 


POINTER TO S3 . 

PUT INTO S2 

POINTER TO S2' PUT IN SI 
LTH S2=LS1PRIME-0RIG LTH 



M17 0 01D2^ 

■ M 17 0 010 3 
M 170 010' 4 ■ 
M170010& 
MirOOlub' 
M170 0.10 7 
M 17 0 0 10-8 
M170Q109' 
M1700110 
• M 170 0 111' 
M173U112 
M170U113. 
Ml7u01l4 
H 17 j Oil 5 
M17Q u 116 
M 17 GO 11? 
M17G0118 
M1700119 
M 17 GO 12 0 
M17U0121 
M170G122 
M17QG123 
M17U0124 
M17G,Q-12 5 . 
M17G0126 
H 1700127 
Mi7jG128 
M1700129 
1-1170 0130,: 
M 1700 131 
M17GD132 . 
M17G0133 
M17GD13H. 
M170'0135 
M 170 0 13 L' 
M17CQ 137 
M 17 0 013 8 
M17uu 139 
M17C.U IaCi. 
Ml 70 0141 
M 17 DO 142 
M 170 0143 
M17G 0 l44 
M 17 0014 5 
M1700146 
Ml7uGl47 
M17 0 0 148 
M17Q0149 
M 17 0 u 15 £i 
M 17 0 0 151 
H 17 a 0 15 2 
M17Q0153 
M170C154 


Q 

o 

n 

O 

T') 

o 

o 

o 

o 

o 

o 

n 

o 
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P0Q56 6C22 
P0057 C320 
P0058- 6C1E 


P0059 CCIF 
P005A 9804 
P005B 0111 
P005C 1811 
P0Q5D 09FC 
P0 05E 0121 
P005F 18QE 
PQ06Q 0903 
P0061 6818 
P0062 E816 
P0Q63 40FF 
P0Q64 C8CA 
P0065 6C13 
P0066 F8C8 
P0Q67, C812 
P0068 6622 
P0069 ClOl 


STA^ (52) 

LOA^ LSIPRIME 
STA’^ (SI) 


THREAD NOVI IS ...Sl,S2»S3 
IF THERE IS NO UPPER PIECE, THEN GO TO GA6 


LOA» (S2) 

SUB^ REQLTH 
SAN 1 
JMP» CA6 
INA -MINSIZ-1 
SAP 1 
JHP»- GA6 
INA MINSIZ+1 
STA» LS3PRIME 
LOQ^ S2 
STQ- I 
LOA^ REQLTH 
STA^ (S2) 

AOQ^ REQLTH 
LDA^ LS3PRIME 
STA- (ZERO),Q 
LDA- 1,1 


PQ06A 

6201 


STA- 

1,Q 

P0 06B 

4101 


STQ- 

1,1 

P0 06C 

480E 


STQ» 

S3 





REMOVE SEGMENT 

P006D 

E8 09 

CA6 , 

. LOQ^ 

SI 

P006E 

G8 0C 

V- 

4 LOA^^ 

S3 

PQ06F 

6201 


' .STA- 

1 , Q 

P0070 

E8 08 


. LDQ^ 

S2 

P0071 

0814 


TRQ 

A 

P0072 

0902 


INA 

MINSIZ 



if. 

STORE LOCATION OF AF 

P0073 

6201 ' 


STA- 

1,Q 

P0074 

0822 


TRA 


P0075 

1C8A 


JMP^^ 

(REQA LC > 



if. 

Si. 


DATA STORAGE 

P0Q76 

0000 

SI 

NUM 


P0077 

00 01 


BSS 

LSlPRIME(l) 

P0078 

0 000 

S2 

NUM 


PQQ79 

0 0 01 


BSS 

LS3PRIME(1) ■ , 

P007A 

0 0 00 

S3 

NUM 


PO Q7B 

0 0 00 

CN 

Af. 

V- 

NUM 

0 


GO TO CA6 

IF UPPER PIECE, SMALLER 
THAN MIN SIZE, "GO TO CA6 


LEFTOVER CALLED S3PRIHE 
I POINTS TO S2 


LENTH . S3PRIME T0,S3PRIME 

POINTER TO NEW S3' INTO S2 
PTR TO OLD S3 TO S3PRIME 

S3PRIME IS new S3 


THREAD SI TO S3 


RETURN TO CALLER WITH 
Q=FIR.S7 USABLE ADDRESS 


LENGTH OF CORE ALLOCATOR REQUEST 


■ , M 170 0 155 
H1700156 
' Mi70ul57. 

' t M1700158 
L M 17 00 15 9 
'■ ' M 17 00. 16 0 
^ MI 7 OGI 0 I 
'■ M17Q0162 
'MiTuDloS 
• ■ .Ml70Qi6 4 
M 17.0 016 5 
' M1700i66 
' M1700167 
H17U0168 
M1700 169 

■ M1700170 
M 17.0 0171 

' M1700172 
M 17 00 17 3 
Ml7uQi74 
M 170 017 5 
M1700176 
M 17 0 0177 
M170017S 
' M 170 017 9 
H 170018 0 
M 17,0 £ 181 
M17j0182 
Mi7iOOl83 
MlTOOlS^r 
H 17 GO 18 5 
M17 0 0 18 6 
_ M170 0167 

■ . M170G188 

■ M1730189 
M170 0 19Q 
M1700191 
Ml7u0192 
M1700193 
M170Q194 
M 17 00 19 5 
H17Q0196 
M179C197 

' H1700198 
■" M 170 Q 199 
Hi7a02uQ 
M17GG2ai 
M170 0 202 
,, M17UU203 
‘ Ml7G 020‘+ 
M17Q 020 5 
M1?002Gd 
Mi70Q2G7 


o 

o 

C\ 

C' 

o 

C) 

C"' 

o 

o 

o 

o 

o 

o 

o 

o 
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C208 



At 


CORE ALLOCATOR- RETURN CORE LOGIC , 

0209 

P0Q7C 

0 0 00 

' RTNCOR 

■ c 

0 


0210 

P0070 

4830 


STQ* 

RS2 

RETURNED PIECE CALLED RS2 

0211 

P007E 

Efl 00 

X 

LOQ 

= XCA'LTHD' 

■ 


PO 07F 

00 11 

X 




0212 

P0080 

482C 

RCAl 

STQ^ 

RTHD 

REFERENCE TO' N EXT -EN TRY 

0213 

P0081 

C201 


LDA- 

1,3 

ADDRESS OF ENTRY 

0214 

P0082 

OBOO 


NOP 

0 


0215 

P0 083 

090 0 


INA 

0 


0216 

P0084 

0111 


SAN 

1 


0217 

PQG85 

1806 


JMP^ 

RCEOTl . 

,.END OF' THREAD 

0218 

P0086 

60FF 


STA- 

I 

1 ' ' , 

0219 

P0087 

9826 


SUB^ 

RS2 

IF ENTRY ABOVE -RS2, 

0 22 0 



■V- 



GO, TO RCEOTl 

0221 

P0 088 

0122 


SAP 

RCEOTl-»-l 


0222 

P 0 0-89 

EOFF 


LOQ- 

I 

GET NEXT PIECE 

0223 

P008A 

18F5 


JMP^ 

RCAl 


022^ 

PG08B 

40FF 

RCEOTl 

STQ- 

I 

REF TO ENTRY WHERE NEW. 

0225 





, , 

PIECE . WILL BE PUT IN I ' 

0226 

P0 08C 

ClOl 


LDA- 

1,1 

1'. CHECK, IF RETURNED PIECE ALREADY 

0227 

P008D 

0 8 72 


EAQ 

,Q 

RELEASED 

0228 

PG08E 

01 51 


SON 

RCA 

SKIP IF NOT 

0229 

■ P00 8F 

181C 


JMP^' 

ROAD 


0230 

P 0 09 0 

E810 

RCA 

LDQ^ 

RS2 

, THREAD -NE-W -PIECE 

0231 

P0091 

-ClOl 


LDA- 

1,1 

THREAD NEW:RIE-CE'-IN , ■ 

0232 

P0092 

62 01 


STA- 

1,3- 

LOG. OF NEXT- PIECE INTO ' 

0233 



V- 



NEW PIECE, 

0234 

P0Q93 

4101 


STQ- 

1,1 

LOC. OF NEW PIECE 

0235 






INTO REFERENCE , 

0256 







023 7 






IF LOWER. PIECE TOUCHES 

0238 



¥■ 



NEW PIECE 

0239 

POO 9,4 

COFF 


LDA- 

I 


0240 

P0095 

84FF 


ADD- 

(I) 


0241 

P0096 

9817 


SUB^ 

RS2 


0242 

P0097 

0117 


SAN 

RCAC-»-l 


0243, 

P0098 

CC15 


LDA* 

{RS2) 

COMBINE PIECES 

0244 

Pe099 

84FF 


AOD- 

(I) 


0245 

PQ09A 

64FF 


STA-' 

(IJ 


0246- 

PQ09B 

C201 


LOA- 

1,3 

REF TO NEXT PIECE GOES TO 

0247' 

P0D9G 

6101 


STA- 

1,1 

COMBINED . PIECE FRONT . 

0248 

poogcr.'DOFF 


LDA- 

I 

•GALL NEW PIECE RS2 

0249 

P0 09E 

680F 


STA-^ 

RS2 


0250 

P009F 

£8 QE 

RGAC 

LOQ^ 

RS2 

IF RS2 TOUCHES NEXT PIECE 

0251 

POQAO 

0814 


IRQ 

A 


0252 

POOAl 

8C0C 


AOD^ 

(RS2) 


0253 

P00A2 

9201 


SUB- 

1,3 


0254 

■ P00A3 

0117 


SAN 

RGAO-^-1 


0255 







0256 

P00A4 

C2Q1 


LDA- 

1,3 

GOHBINE PIECES 

0257 

P 0 0 A 5 

6 0 FF 


STA- 

I 


0258 

P00A6 

C4FF 


LDA- 

(I) 


0259 

P00A7 

8CQ6 


AOD^ 

(RS2) 




■,M17uC2G8 

O 


'■ M17002Q9 
Mi7G,u21G 


M17G0211 



M17C0212 . , 

■' M17QQ213 

: O 

- ■' 

Minu214 ' ' 



H173Q215 

■ O 


, M 17G 0 21 6 


M173G217 
- M17Q0218 



M1730219 



M17Qa220 

V.-' 


M17GQ221 
M173 0222 



M17G 0 22 3 

p-, 


Mir00224 



Mi7GG225 


46 ^'7 

N1730226 


r-6''' 75 G 

Mi7GG22 7 

O 

46 75 u' 

M17QQ228 

s-6 ^ 7 r u 

Mi73G229 


46^750 

M17G023U 



H 170 0 231 

f'“\ 


M 173 0 23 2 
M17D0233 
M173 0234 



, M17C0235 

{ ' 


■ N1700236 



M17] 0,23 7 : 
H17GQ238 



M17a0 23 3' 

- r) 


Ml70b,240 

M170G241 



- M173 02-42 



M17G0243 

o 


M17DG244 
M 17a 0 2^-5 
M17 j 02-fb 


M17>.0247 

r\ 


.9170 0248 
Mi70 0 249 
H 170 u 25 0 



- Hl7a025i 

; O 


M1700252 


M17G 0253 
M170 0254 



M1730256 
.91700256 
, H173 0257 

; O 

' '■ 

H1730258 



M17UG259 

o 


o 




fli nnRF 


PAGE 6 


DATE! 01/27/99 



o 

n 

O 

o 

o 

o 

o 

o 




H17ij U 260 
M 17 Q 0 261 
M17D0252 
M170G263 
H 17 0 0 26 4 
M 170 0 26 5 
Ml70Q2o6 

O 

O 

■ o 
o 
o 
o 

; O 

o 

o 

C' 

o 

o 

■ o 


C' 

o 

o 



o 

o 

r'' 

O 

O 

o 

o 

o 

o 


.. o 

GI'+Tt 017i» ;G218, 0222, 022n, u25;y? '02-r0, 02--, 02“tt--, J2-to , Q 

- O 

r'l 

■w.' 

O 

O 

■ o 

; O 


o 

o 

o 

C": 


ALCORE 


PAGE 
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DATE 


o , 

S Y M B 0 

L S 


o 

DEF.LINE 

NAME 

ADDRESS 

o ’ 

0 00 7 

ALCORE 

0 00 0 

0011 

REQALC 

000 0 


0 011 

RTNCOR 

. 007C 


0066 

CA2 

OOOE 

o 

00 69 

RCOREi 

0012 

QQ99 

CSIZCK 

0024 


0107 

CNXT 

C02C 


0109 

LSTR 

OOZE ' 

i 

0 110 

REQLTH 

002F 

0111 

REQLVL 

0030 


0112 

MINPCE 

0 031 


0113 . 

LMINTO 

0032 ■ 

o 

0114 

LTHD 

0033 

0116 

V CEOT 

0 0.3 4 


0125 - 

- CA4P1 

003A 


0142 

. ACA5 

0049 

r" 

0161 

■ CAS 

0059 


. 0184 

• CA6 

006D 


0 200 . 

SI 

0076 


0 201 

LSIPRI 

0077 

0, 

0 202- 

S2 

0078 

0 203 1 

LS3PRI 

0079 . 


D2fiA S3 007A 



0205 . . 

CN 

. 007B 


0212 - 

RCAl 

0080 


0224 

RCEOTl 

0 0 8B 


a 230 

RCA 

0090 


0 250 

RCAC 

U09F 

Q- 

. 0 263 

, RGAD 

00 AS 

' 0264 

- RTHO 

QOAC 

O 

0265 

RS2 

OOAD 


O 


REFERENCED AT LINE NUHBER 


0GQ7 




0011, 

0 0 61 , 

■0121, 

0196 

0 011, 

0263 



0059 




D108 




0 0 86 




00 81, 

0 098, 

C102 


0 0 55, 

0 08 4, 

0135, 

01^8 

0 0 53 , 

O'Ci 5 6, 

0.J79, 

u u 96 , 

0051 




■3 0 67 , 

0 i 0 0 , 

OlOn, 

Q117 

0106, 

012 5 



0 0 69, 

0105 



0 076 




0119 




0137, 

■0138 , 



0142 




0164, 

•016,7' 



0127., . 

014'6, 

Gl53,i>. 

;dl57, 

0144, 

,015 4,.; 

.■^0156 


0128, 

0129, 

0131, 

013 6, 

0169, 

■Q175 



0133 , 

0 180 , 

0185 


3 130 




0223 




0217, 

0 221 



0228 




0 2 42 




■0 229', 

0254 



0212 




0210, 

0219, 

0230 , 

0241, 



01/27/99 


01o2t Ll7Zt 017 -t 


'Q145, u1h9, 'QlS5, (iioU -170, 0173, 0186 


0213, 0249, G25u, D252,' 1.259, u250 


C 

o 

o 

V.-' 

o 

o 

r-1 

O 

o 

o 

o 

o 

c 

o 

o 


c 



ALCORE 


PAGE 


9 


date: ul/27/99 


X T E R 

N A L S 



DEF.LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0012 . 

LVLSTR 

'.'00 0 5. 

0 0 54 

0 012 

' LEND 

.'00 0 9 

0 057 

0012 

CALTHD 

007F 

0068» 0211 


IS. I nnPF 


PAGE 10 


date: 01/27/99 



o 

o 

o 

O 

o 

o 

o 


o 


o 


CAE 

' .0184 , 

GAEi.TRD 

' 0312 

C EO T 

u 11 fa 

CM 

'w u S' 

L PMS K 

. Q 0 T 3 . 

. LSIPSI 

0 2 01 

LS3PR1 

0 20 3 

L S TR 

u 1 s b 

RCA 

’/T 'll? 'C*' ■' 

RCAl 

0 212 

RCAG 

0 25 u 

ROAD 

- £c 0 

RS2 

0 265 

RTHO 

0 2 6 4 

RTNCOR 

UlII 

SI 

. di. . 


o 

o 

o 

o 

o 

C’) 

(0 

o 

o 

o 

o 

c 

o 

o 


PRTCOR 


date: 01/27/99 


/'i 

0001 


1 J 

00 0 2 



00 03 



QQ04 


O ' 




■ 00 0 6 



0007 



000 8 



0G09 



0010 

QQll 

0012 

0013 

0015 

0016 

0017 

0018 

0019 

0020 
0 0 21 
0022 
0023 

0025 
002 6 


0027 

0028 

0029 

0030 


00 23 ■ 
OOEA 
0 0 22 
00 02 
0011 
G022 
00 04 
00 10 
0 0 02 
0 0 04 


NAM PRTCOR DECK- ID M 18 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5 .G 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

ENT PRTCDR, K 65 T 12 ,PTNREL,K 65 C 0 R 
ENT SPCEV 4 ,R 0 PTV 4 , 0 UTPV 4 
EXT SNAPON, L 0 G 1 A,SPASW 
EXT UNPIO , SWAPAR, LOOP 
EXT STLPV 4 

1 CARD DELETED'' 

EXT PARTBL, BUSY , L ST LOC , DIP , RPMASK 
EXT SCHERR 

If. ^ Jf. . i/. If. If. if. Jf. )f. If. If. If. If. :if. 4 If. Jf. If If. ff If If if 

PARTITIONED CORE ALLOCATOR ' ■ ^ 

THIS MODULE IS ENTERED WHENEVER A PARTITION ' ^ 
HAS BEEN RELEASED OR WHEN A PARTITION ^ 

REQUEST IS MADE AND THE PARTITION HAS 
. ALREADY BEEN SCANNED. * 

>f V- if if if V- if V- if * if if if ^if.^ if if if if if ^ ^ if if 

EQU 0 NEBIT{S 23 ) ' 

EQU ADISP ($EAT,ZERO ($ 22 ) ,LPMASK ( 2 ) 


EQU . THRDSdTJ . 

EQU USE( 34 ) 

■ EQU -TIME{ 4 ) ,UNPPRT{ 16 ) 

■ EQU THO ( 2 ) , LNTH( 4 ) 


0Q32 

0033 

0034 
003 5 

003 6 
0 03 7 

0038 

0039 

0040 

0041 

0042 
0u43 

004 ^ 

0045 

0046 


POQOfl 58 20 
POOGl 14 EA 


PQ 0 Q 2 
PQ 003 
PG 0 Q 4 
POOLS 
PD 006 
P 0 0 0 7 
P 0008 
P 00 C 9 


C 622 
AOlO 
OF 49 
0116 
48 04 
E 2 01 
54 F 4 
6000 


PRTCOR RTJ» SCAN 

JMP- (ADISP) 


NO REQUESTS TO SCHEQULE 


IF A REQUEST IS FOUND WHICH GAN BE FILLED 
RETURN IS here WITH THE POINTER TO IT IN Q -- 
I CONTAINS BASE. TO PARTN. CORE TABLES 


LOA- (ZERO),Q 
AND- LPMASK +14 
ARS 9 
SAN PTC 3 R 
STQ^ DIRCAL 
LDQ- PC,Q 
RTJ- ($F 4 ) 

NUM $ 6 QQ 0 


CORE REQUEST 
YES 

NO, DIRECTORY REQUEST 

SCHEDULE READ FROM MASS STORAGE 
INDIRECT 


SUMMARY-ll^Miea ucui 



M 1 6 u U u Q 2 
M 18 . u Q J 3 



H 180 0 00 ^ 
MlBuuoGo 

: O 

«^,MSOS 

0 M 18 00007 


^^MSOS 

- 4 . OM 18 00008 


^^MSOS 

j H 1 8 J j 0 Q 9 

' ) 

^^^MSOS 

"t. QM 18 C 0 010 

HlBuQOll 



M 18 u 0 0 1 2 

r"’. 


_ M 18 ^ u 013 

M 18 j 0 Q 1 5 



M 18 u 0 01 5 

: O 


M 18 0 0 0 1 7 


M Id d 3 1 3 
M 18 j G G 19 



M 18 w U 0 2 G 



■Mi 8 a -0 021 
• M 18 UGQ 22 ■ 
, ..M 1800 023 


, ' ' r' 

■'•/■'Misooazs 

M 18 jQG 26 

O 

-^HSOS 

- . 'G M 18 V 0 0 2 7 

G 

^-M'SOS 

-..UM 180 0 028 


^^M'SOS 

4 . 0 M 18 Gii 029 



M 18 3 0 u 3 u ' • ' 

O 

O 

, , ■ 

...MlaO 0 032 
M ISO O ' 0 33 



H 183 0 a 3 4 

, O 


" Mi 80 a 035 , ' ‘ 

M 1 Bj 0 03 6 

M 180 0 03 7 ■ ' ' ' ' ' 


. . M 18 00 038 

: O 


M 1800019 
Mi 8 i 00 -^'G 
M 18 C 0 j 4 1 


: M 180 D 042 ■ 



■ M 1 8 0 G 0 4 3 

M 180 0 044 . 


' . 

M 180 0 u-'> 



M 18 0 b Li 4 b 

Q 


o 

o 





PRTCDR 


PAGE 2 

DATE; 01/27/99 


G 

C' 

01)47 

PO OOA 

QOCO 


DIRCAL 

NUM 

0 



o 

0048 

PO QuB 

0103 



SAZ 

FINE 


M180Q048 


0049 

POOOG, 

C201 


PTCOR 

LDA- 

PC,Q 


M18jJj-r9 



0050 

POOOO' 

0116 



SAN 

PTCORl 

THERE IS, A COHP. ADDRESS 

MlsaOdBO 


o . 

0051 

PO QQE 

62 02 



STA- 

THD,Q 

NO COMP ADDR--CLEAR THREAD 

M18 j C j51 

o 

' 0052 

POOOF 

C400 

X 

FINE 

LDA 

DIP 

DONE WITH SCAN' OF THREADS 

M18 3 0052 



POOlO 

7FFF 

X 








0053 

POOll 

0131 



SAM 

1 


M 18 0 0 05 3 


O : 

005 4 

P0012. 

18ED 



JMP^ 

PRTCO R 

NO 

M 18u 0 05 -T 

r\ 

00,5 5 

PQ013 

14EA 



JMP- 

(ADISF) 

YES , 

M 18 3 0 05 5 



0056 

P0014 

C522 


PTCORl 

LDA- 

(ZERO) , I ' 

, , PARTITIONED CORE' REQUEST 

M 18 J 0 3 :> 5 



00 5 7 

P0015' 

62 03 



STA- 

PQ,Q 

PASS ADDRESS. OF CORE ALLOCATED 

■ M18Q 0 057 



0058 

P0016 

C622 


PACOMP 

LDA- 

(ZERO),Q 


M 18 J u 0 5,8 

O 


0059 

P0017 

AOll 



AND- 

LPMASK-i-15 ■ 

CREATE A' SECONDARY 

M183Q059 


0060 

P0018 

B032 



EOR- 

ONEBITfiS 

SCHEDULE REQUEST OF 

M 18 u 0 J 6 L 



0G61 

P0Q19 

6622 



STA- 

(ZERO)»Q 

COMPLETION ROUTINE 

M 18 0 u Ob 1 


r~\ 

0062 

POOIA 

48 04 



STQ^ 

COMPAQ 


M 1800352 

o 


0063 

POOIB 

E2 03 

1 


Loa- 

PQiQ 
( SF4) 


, M 16- 0 953 


0064 

POOIC 

54F4 



RTJ- 

•INDIRECT ON PARTN. CORE REQ. 

M 18 J 0 u o 



006 5 

POOID 

60 00 



NUH 

$600 0 


M18Qu065. 



006 6 

POOIE 

CO 00 


COM PAD 

NUM 

0 

STUFF USERS COMP. ADDR. 

■ M180GQ66 

o 


0067 

POOIF 

18EF 



JHP^ 

FINE 

GO TO CHECK IF SCAN IN PROGRESS 

Mi830057 

o 

0069 

■P0020 

OBCQ 


SCAN 

NOP 

0 

NON-REENTRANT 

M lb J 0 uo 9 

o 

o 

,, 007 0 

PGC21 

E840 



LDQ» 

TOPBSY 

■ , PICK UP , SCAN INDEX 

Hie3 0 070 

C) 

0071 

■P0Q22 

ODOO 



INQ 

0 

IF NONZERO, SCAN OF THREAD 

M 18 0 0. 0 71 


00 7 2 

P0 02 3 

0157 



SON' 

INPROG 

IN PROGRESS 

H183G 072 



00 73 

P0024 

4 40 0 

X 

SCNO 

STQ + 

DIP 


H16 0 0 07 3 




P0Q25 

0010 

X 






. r) 

•w* 

007 4 

P0026 

EO 00 

X 

SCNl 

LDQ+ 

=XPARTBL 

NEW START, PUT'. TABLES eAS£:‘.lN I 

'■ ' ■ 'M 183 G 0 7.H , 




P0027 

7FFF 

X 




' ' 



007 5 

P0028, 

40FF 



STQ- 

I 


' M 160 0 075 '■ 


o 

0076 

P0029 

EC 58 



LDQ^ 

(AV4A+1) 


^ '•,/..H18C‘G,a76 ' 

o 

0077 

P002A 

1803 



JMP* 

PROGl 


■■ ', ;;',.M180a077 , ' , ■ 


0078 

PC028 

C844 


INPRDG 

LOA* 

SAVI 


' ■ ' ' . , H1830078'' 



0079 

P002C 

60FF 



STA- 

I 

.POSITIVE BUSY ■ WORD' REMAINING 

H16aa^079 



008 0 

P002D 

0F61 


PROGl : 

LRS 

1 

. .IS N£‘XT ^PARTITION , AVAILABLE 'i 

' M180008U 

o 


008 1 

P0 02E 

0128 



SAP 

AVAIL 

YES ' 

;. ■ MlSOQoS.i 


. 0082 

P002F 

DOFF 



RAO- 

I 

NO, BUMP PRTHOS POINTER 

Mi80Q032 



0083 

P0030 

DCF4 



RAO*, 

(SCNO+1) 


M1800Q83 


r\ ' ^ 

0 0 8 4 

PO 031 

0171 



SQM 

i 

IF TOP BIT NOT SET 

M18J0084 ' . 

o 


00 8 5 

■P0032 

F032 



AOQ- 

ONEBIT+15 

SET IT ■ 

. Mi6G0085 '■ 


0086 

P0 033 

ODOO 



INQ 

0 

ANY MORE PARTNS. AVAIL. 

: ■ Mi8u0086 



0087 

PO 034 

01 51 



SQN 

CONTI 


'■76*i8-49M 1600 Q-87 
76*l8'49Mi8a 0 0 88 


0 

0088 

P0035 

1810 



JMP* 

EXIT 

NO 

■ o 

0089 

P0036 

18F6 


CON T1 

JMP* 

PROGl 

YES, CHECK NEXT ONE 

PARTITION AVAILABLE ‘ 

?6*1349M1BOO u89 


00 9 0 

P0037 

4837 


AVAIL 

STQ* 

TOPBSY 

M 180 0 09 0 



0091 

P0038 

0500 



IIN 

0 


**MSOS . 4.,,3M160GD91 


o 

0092 

P0039 

Elll 



LDQ- 

THRDS ,r 

PICK UP TOP OF THREAD 

' M 18 a 0 0 9 2 

o 

0 O 










O O 

_ 

.. . 





... . 


. _ 

, _ _ . . . - . 

. . 


PRTCDR 


PAGE 


3 


OATEJ Qi/27/99 


0093 

P003A 

■ODGO 



INQ 

0 


Hi6- GG93 

009 4 

•P0038, 

0141 



SQZ 

1 


^^M.SOS ^.uMioOaOB^r 

0095 

P0Q3C 

18 IB 



JMP=^, 

AVI' 

SOMETHING ON THREAD 'W 

-■^-HSOS -T.tMl60Qu95 

0096 

■PQQ3D 

0400 



EIN 



‘ H18j u 09 6 

009 7 

■PD03E 

OOFF 



RAO- 

I 

EMPTY, TH.REAO, .CONTINUE 

M18UUJ97 

0098 

■P003F, 

DCE5 



RAO^ 

(SCMO+1) 

H18Gua98 

0099 

'P0040 

CCE4 



. LDA^ 

(SCNQ+1 ) 

PICKUP DRIVER IN PROGRESS COUNTER 

76==’'l6 49MidiuC99 

0100 

P0Q41 

09EF 



IN A 

-16 

ARE ALL PROTECTED PART. CHEOKED 

H 18 0 0 10 0 

010 1 

P0 042 

0122 



SAP 

EXIT 

, YES, .GO, TO CHECK UNPROT. PART. 

MiSJOUl 

0102 

P0043 

E82B 



LDQ^ 

TOPBSY 


M18Q0102 

0103 

P0044 

18E3 



JNP^ 

PR031 

SEARCH 

. M 18 0 0 IQ 3 

0104 

P0Gh5 

4829 


EXIT 

STQ^ 

TOPBSY 

CLEAR, TOP OF BUSY WORD 

M180Q10+ 

0105 

PQ046 

08 02 



SET 

Q 


., HleOOlOp 

0106' 

P0047 

4GD0 



. STQ^ 

(SCNQ+1) . , , 


M 180 0.10 6 

0107 

PQ 048 

DCOA 



ENQ 

10 


^-MSOS, ^^.'OMieOalOr 

0108 

P0049 

E6E9 



LDQ- 

($E9) ,Q 

CHECK FOR UNPROTECTED 

., + fM,SOS-.4..,aM18001G8 

0109 

P004A 

01 51 



SQN 

1 

PARTITION 

--«^MSOS ti. uMl8j01G9 

QUO 

poo4e 

180A 



JMP^ 

EXITA 

NO UNPROTECTED PARTITION, EXIT 

-f^MSOS 4. OM1800110 

0111 

P004C 

C8DA 



LDA^ 

SCNl+1 


,M18u0111 

0112 

P004D' 

0910 



INA 

UNPPRT 


Mi8Q0112 

0113 

P0G4E' 

60FF 



STA- 

I 


M1800113 

0114 

P0 04F- 

0500 



IIN 

0 


^^MSOS;. + . UM180 0114 

0115 

P0D50. 

Elll 



LDQ- 

THROS,I 

CHECK IF ANY REQUESTS ON 

’■^-‘MSOS H. JM1800115 

0116 

P0 051 

OOOQ 



INB 

0 

THREAD FOR UNPROTECTED PARTITION 

: M 18 0 0 11 6 

0117 

P0052 

0142 



SQZ 

EXITA 

SKIP IF NO REQUESTS 

•-+MSOS--. GMlSOOlir 

0118 

P0053 

1800 



. JHP 

CK3WAP 


, ^^HSOS' 4. UMISOOIIS 


,PDQ54 

0 0 6B 






^=^MSOS ■'4.,0'Ml80fill9 

0119 

PC 055 

0 40 0 


EXITA 

EIN > 

0 

: 

012 0 

.■PQ0 56- 

1CC9 



JMP^ 

(SCAN ) 

RETURN 

M 1800 120 

0121 

P0057 

C2G2 


AVI 

LOA- 

THO,.Q 

MOVE NEXT REQ. TO TOP 

. , M18GG121 

0122, 

' P0058 

6111 



STA- 

THRDS ,I 

OF THREAD 

■ M180C122 

0123' 

P0Q59 

0 40 0 



EIN 



' ' M18.0.012 3 

0124 

PQ05A 

4816 



STQ^ 

PTR 

STORE REQUEST POINTER . ^ 

■ • M1800124 

0125 

P0058 

C522 



LDA- 

(ZERO), I 


M1800125 

0126 

P005C 

8204 



AOD- 

LNTH,Q 

CALCULATE LAST LOG. OF REQ. 

M180C126 

0127 

P0G5D. 

09FE 



INA 

-1 


MIS 0 0 12 7 

0128 

P0 05E 

OlAO ■ 



SOV 

0 


.M1800128 

012,9 

POQSF 

6810 



STA^ 

SAVI 

SAVE LAST LOG OF REQ.. 

' ,.M180 0.12 9 

013 0 

P0060 

5CD8 



RTJ^' 

(COHPRE+1) 

DOES REQUESTED PTN END BEYOND 

'^^MSOS ^.GM180U130 

0131 

poaei 

■7FFF' 

X 


ADC 

LSTLOC 

LAST LOCATION OF PTNO. CORE 

. M18U0131 

8132 

P0062 

0900 



INA 

0 


M180D132 

0133 

P0063 

0101 



SAZ 

1 

NO ‘ 

M18Q0133 

0134 

POO 6 4 

182E 



jMpr- 

REQERR , 

YES — ERROR, , 

M16Q 0 15 4 

0135 

P0Q65 

acoi 



ENQ 

1 


‘ '.MIBODISS 

0136 

P0066 

G722 


AV3 

LDA- 

(ZERO) ,B 

‘ IS THIS PTN. BEYOND, END OF 

' ■ ■ ' ' M18J 0136 

0137 

P0067 

5400 


GOHPRE 

RTJ+ 

COMPAR 


»^M30S 4.;m>M,18 0.D13 7 


P0068 

01 56 

p 





0138 

P0069 

0 0 6F 

p 


ADC 

SAVI 


: M180G138 

0139 

P006A 

0900 



INA 

0 


: M180U139 

0140 

P0G6B 

0115 



SAN 

AV4 

YES--ALLOCATE P ART.I .pi.ONS 

; '.Ml 80.0 14 0 

0141 

■PO 06C 

ODOl 



INQ 

1 


M 18 GO 141 

0142 

P006D 

18F8 



JMP^ 

AV3 

NO--CHECK NEXT ONE ' 

M1600142 

0143 

PO 06E 

00 01 



BZS 

TOPBSY, SAVI, 

PTR 

M1800143 


P006F 

00 01 
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\ 


P0070 

0 0 01 









0144 

PQ 071 

0 814 


,AV4 

IRQ' 

A , , 


. ' M16Q01h4 


0145 

P0Q72 

09FE 



INA 

-1 


Ml83iii-+5 



0146 

PGQ73 

8000 



ADD+ 

=X£F40 

NO. OF PARTNS IN Q 

M1800146 


O 


P0 074 

OF40 







; o 

0147 

P0075 

6302 



STA»,. 

SHIFl ■ 


M1830147 


Q14d 

P 0 0.7 6 

'C8F7 



LDA^' 

TOPBSY • 

UPDATE AND' SAVE SCAN: INDEX ; 

M18u 0146 



014 9 

PG077 

-OF 40 


SHI FI 

ARS ■ 

0 

M1800149 


O 

0150 

P0078 

&8F5 



STA^ 

TOPPSY 


M 18 0 015 0 

■ o 

0151 

P0Q79 

0814 



IRQ 

A 


M 18 0 0151 


0152 

PQD7A 

8CAA 



ADD^ 

(SCNO +1) 

UPDATE .DRIVER.: IN PROG. I ND . 

M18G0 152 



0153 

P0D7B 

6CA9 



STA^ 

(SCNQ +1) 


M13aai53 



0154 

P007C 

E2 02 



LDQ- 

LPMASK, 0- 

SET 1, 3IT/PARTN. . 

M180015h 



0155 

P007D 

COFF 



LDA- 

I 


M18 0Q155 


' 0156 

P0Q7E, 

98A8 



SUB^ 

SCNi+1 

SHIFT BITS TO CORRESPOND 

H 180 0 15 6 



0157 ^ 

•P007F 

■8000 



AOD + 

=X$FA0 

, WITH PARTN. NUMBERS 

M1800157 


O’. 


pooao. 

■ OFAO 


. 




o 

0158 

PQ081 

6801 



STA^ 

,SHIF2 


M180C158 


0159 

P0 082 

•OFAO 


SHIF2- ’ 

CIS 

0 

, 

■ Mlb}Q159 



0160 

P0083 

■C400 

X 

AV4A 

LDA 

BUSY 

SEE IF ALL REQUIRED PARTNS., 

H180 0 io 0 


0 


P0084 

7FFF 

X 




ARE AVAILA.0LE ' ' 


, o 

0161 

P0085 

0 8 04 



LAQ 

A 

M180D161 . ‘ 

I , 

0162 

PC086 

0101 



SAZ 

AV5 

YES 

: ■- . MISDC 162 



0163^ 

PQQ87 

1818 



JMP* 

REIHO 

NO, RETHREAD' THE .REQUEST 

Hi6u0153 ' ' 



0164 

P0Q88 

4122 


- AV5 

STQ-.’ 

USE, I 

. . SET BITS REQUIRED .IN USE .TABLE ■ 

.MlSOClb',. ■ 

o 

G165 

P0089 

CCFA 



LDA* 

{AV4A+1) 

’ .. H18 0 016 5 ■ 


0166 

P008A 

0874 



EAQ 

A 

■ : 

. : ‘ M16 0 Q 166 



0167 

P008B 

6CF8 



STA* 

{ AV4A+1 ) 

UPDATE BUSY WORD 

" M18.C0167 G' ■ ' 



0168 

P0Q8C 

EC98 



LDQ* 

lSCNO+1 ) 

COMPUTE TABLE POINTER 

M 18 0 0 16 8 - 

: O 

’■sj 

0169 

P008D 

F899 


, 

ADQ*. 

SCNl+1 

TO NEXT PARTITION. ■• 

: Mis: 015 9 . 


017G 

PO 08E 

48E0 



STQ* 

SAVI 

AND SAVE ■ IT 

' Ml 8y 0170 



0171 

PG0 8F 

E3EQ 



LDQ* 

PTR 

PUT POINTER TO REQUEST.IN Q 

' ” .' M18a0171 ' 


O''’ 

0172 

P009Q 

088F 



RAO* 

SCA^J 


M180Q172 

0 


0173 

Pfl091 

1C8E 



JMP*, 

•{SCAN) 

RETURN TO CALLER 

' ■ Mi8ao;i7'3 , 


.0174^ 

PD092 

• GOFF 


REQERR 

LDA- 

I 


M1800174 


1 

0175 

P0Q93 

0901 



INA J 



::mi80 0175 



017 6, 

P0094 

680A 



STA* 

'SAVI 


' Mi80 017 b 

■ o 


0177 

P0095 

0 8 44 



CLR 

A 

. SET Q 10 INDICATE' :C0 RE 

' Miaaoir? 


0178 

PQ096 

6203 



STA- 

pQ,a 

; W'ILL .NEVER BE ^ AVAILABLE 

Hi83 0178 



0179 

PO'097 

CCDS 



LOA* 

(PTR) 

■ GET REQUEST COOE 

■■ H 180 0179 


O 

018 0 

P0098 

A 0 00 



AND 

=N$3E0fl 

IS IT A DIRECTORY REQUEST ■. 

'• M180018G 

o 


P0099 

3E0G 








0181 

P009A 

0112 



SAN 

TOCOMP 

■ NO 

M180G131 ■ 



0182 

P009B 

18 0 0 



JMP 

FINE 

YES, ..GO CHECK REMAINING: J HREADS . ; 

M 180 0182 , ; 


o 


P009G 

FF72 






; O 

0183 

P0090 

1800 


TOCOMP 

JHP 

PACOMP 

GO COMPLETE REQUEST WITH ERROR ■ 

■ : M18Q0163 • 



P009E 

FF77 









0184 

P0 0 9F 

E8D0 


RETHD 

LOQ* 

PTR 


' M 180 a 16% 



0185 

POOAO, 

C622 



LDA- 

(ZERO),Q 


■' '.M1800185 

O 


0186 

POQAl 

AOOA 



AND- 

LPMASK+8 


M18Q018& 


0187 

PO0A2 

OF 44 



ARS 

4 

STORE REQUEST PRIORITY 

H1800187 



0188 

P00A3 

6 8 IB 



STA* 

LEVEL 

LEVEL TEMPORARILY ’ 

■ ' M180Q188 


o 

0189 

P00A4 

EC8Q 



LDQ* 

(SCNO+1 ) 


M180 013 9 

o 


O 


O 


PRTCDR 


01/27/99 


P00A5 
P00A6 
PQ0A7 
P00A8 
POOA9 
POOAA 
POOAB 
POOAC 
PO GAO. 

po qae: 

POGAP. 

POOBO 

POOBi 

PG0B2 

POOB3 

P00B4 

POOB5 

POQB6 

P00B7 

P0GB8 

POOB9 

POGBA 

POOBB 

POQ8C 

POOBO 

POOBE 


F881 
48C8 
0500 
EOFF 
ODOF 
40FF 
E2 02 
0814 
■0900 
r'0107 
C622 
■AOOA 
OF 44 
980C 
0132 
0101 
18F4 
C8B9 
6102 
OFFO 
0400 
6202 
E8B2 
1800 
FF6D 
00 01 


POOBF 
PQOCO 
POO Cl' 
PG0C2 
P00C3 
P00C4 
P00C5 
PG0C6 
P00C7 
PQ0C3 
P0 0C9 
PGOCA 
■POOCB 
PQOCC 
POOCD 
POOCE 
POOCF 
POODO 
PGODl 
POO 02 
P00D3 


C85C 

am 

18 5C 
C40Q 
7FFF 
0101 
1 4EA 
C622 
AO 06 
09FC 
0121 
14EA 
0400 
EGOfl 
7FFF 
E201 
C204 
0131 
14EA 

cooo 

00 00 


HERE 


ADQ» 

STQ- 

IIN 

LOQ- 

INQ 

STQ- 

LOQ- 

TRQ 

INA 

SAZ 

LDA- 

ANO- 

ARS 

SUB^- 

SAM 

SAZ 

JMP^ 

LDA^ 

STA- 

LLS 

EIN 

STA- 

LOQ» 

JMP 


SCNl-4-1 

SAVI 


THRDS-THD 

I 

THD ,Q 
A . 

0 

HERE 

(ZERO) , Q 
LPMASK+8 

LEVEL 
HERE 
HERE 
REl 
PTR 
THD, I 
16 

THO.tQ 
T0P8SY ’■ 
IMPROG 


THREAD; THIS -REQUEST 
before LOWER OR 


EQUAL PRIORITY REQUESTS 


INSERT REQUEST 


RESUME SCAN 


BZS LEVEL 

^ ^ . -V- ■, ^ ^ 

THIS' ROUTINE' HAWO'-LES THE UMPROTECTED CORE. PARTI 
IF REQUEST FOR THIS PARTITION HAS A COMPLETION , 
PRIORITY ^ 2 BAGKG:R0UND PROGRAM WILL BE 
SWAPPED TO MASS MEMORY. 


CKSWAP LDA». P16BSY 
SAN 1 
JMP» NOSHAP 
ASWAPN LDA SWAPON 


SWAP IS ALREADY 


EXIT 


XLOGIA 


SAZ 

JMP-. 

LOA- 

AND- 

INA 

SAP 

JMP- 

EIN 

LDQ+ 

LDQ- 

LDA- 

SAM 

JMP- 

LOA 


(ADISP3, 
(ZERO) ,Q 
LPMASK+4 1 

-3 

1 

(ADISP) 

0 

=XL0G1A 

1,Q 

TIME, Q 
1 

(ADISP) 

=XPRTCOR 


EXIT IF COMPLETION PRIORITY OF 
REQUEST IS NOT GR . TH . 3 


STORE PART CORE DRIVER 




O 


Miaouiau 
M18jQ191 
M180 0 192 
. M18Q0193 

■- MlSluig^ 
H18G0195 
M 180 019 6 
H18G0197 
M 180 u 198 
. M18jQl99 
M 1 8 j D 2 L‘ u 
,M 18 GO 201 
. M 18 0 0 20 2 
Miacoeos 

N 18 0 0 20 4 
. . M18 3 0 2G5 
'• , ■ 7 Mi8Gu'20b 

; ; Mi8j;u2Q7 

■ M 180 0 20 8 

■ M1800209 
V' Mis: 0 210 
, - M1800211 

M180 0 212 
: M18y0213 

,, ' M18G0 214 

^ ^ H 18 0 0 21 5 

M18G0216 
, , ' ’ M180i:217 

.M1800218 
. M180 0219 
’■^HSOS <-.'OM18G022u 
.^-'^MSOS i..OMl80Q221 
,■ u.;.0H18CQ222 

■s‘^MSOS- 4. 0H180 0 22 3 
^^M'SO.S 4,. OM 18 0 0 22 >4 

^^MSOS 4.CH18U0225 
^^MSOS , . 0M180 0226 
’■^MSOS -r.uM18Cu2Z7 
^-MSOS OH 18 0 0 22 8 
^^M3,0S -4. OMiB'aO'229 
^^MSOS '4. 0M180023C 
^^MSO.S 4.GM180 0 231 
^^MSOS‘ 4.'0Mi80 0232 
»^HSOS4^. 5^,-M18GQ23 3 

^^MSOS .‘4. 0M18G0234 
^^NSOS uMia00235 
'.^^MSOS .4.UM1800255 
■*f^MSOS UM18G0237 
^^MSOS -4.0M16JG238 


C' 

o 




o 



o 


o 


c 

o 

r''' 

c 

C) 

{ '‘l 


PRTCnR 
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PCCD4 
P0QD5 
P00D6 
P00D7 
P0QD8 
P00D9 
POODA 
POOOB 
PQODC 
PO ODD 
POODE 
■POQDF 
POOEG 
POOEi 
PGOE2 
POOE3 
POOEA 
, POOE5 
POOE6- 
PDOE7 
POOE8 
POOE9 
POOEA 
POQEB 
PGGEC 
POOEO 
POQEE 
POOEF 


6203 

C4Q0 

7FFF 

0103 

6400 

7FFF 

IAEA 

C0F6 

90F7 

09FE 

680C 

6819 

6820 
C0F7 
09 01 
6808 
6810 
5hF4 
4CF0 
0 0 FI 
0 0 0 0 
08C2 
00 00 
00 00 
00 0 0 
7FFF 
5400 
7FFF 


WRT CUT 


0UTPV4 


STA- 
LDA + 


JiMP- 

LDA- 

SUB- 

INA 

STA^ 

STA^' 

STA^ 

LDA- 

INA 

STA^ 

STA^ 

RTJ- 

ADC 

ADC 

NUM 


LENGTH NUM 
START , NUM 
NUM 

X , ADC 
X RT J 

X 


3,Q 

UNPIO 

WRTOUT 

SPASW 

(ADISR) 
$F6 . . 
$F7 , , 

LENGTH 

>'S'PCLGN 

LEN2 

$F7 

1 

START 
START 2 

' ( 

$4CF0 

CA 

0 ,$8C2 


7SNAPAR 

STLPVA 


POOFO IAEA 


POOFl 

P00F2 

POOF3 

P00F4 

P00F5 

P00F6 

P00F7 

POOFS 

POOF9 

PflOFA 


POOFB 
POOFC 
POOFD 
PO GFE 
POOFF 
PO 100 
POiOl 
P0102 


OAOO 
6829 
54F4 
6200 
0 0 FB 
0 00 0 
0000 
0010 
0010 
IAEA 


5AFA 
48 0 0 
0105 
0 0 0 0 
Q8C2 
0 0 00 
coeo 
0 0 0 0 


SPCEVA 


SPCLGN 


JMP- (ADISP) 
routine ENTERED AT 


ENA 

STA^ 

RTJ- 

ADC 

ADC 

NUM 

NUM 

ADC 

ADC 

JMP- 


P168S Y 
($FA) 
$6200 
CB 
0 
0 

16 

UNPPRT 

(AOISP) 


^ ..ROUTINE ENTERED 
CB RTJ- ($Fa) 

ROPTVA ADC $4800 
P ADC GC 

NUM 0,$8C2 

LEN2 NUM 0 

STARI2 NUM 0 

NUM 0 


DATE: 01/27/99 


ADDRESS FOR TIME-OUT 
SCHEDULING OF SWAP 

SKIP IF NO UNPROTECTED I/O 
SET WAITING TO^ SWAP SWITCH 

FOR PROTECT PROCESSOR 
STORE LENGTH Op UNPROTECTED 


WRITE OUT BACKGROUND 
TO MASS MEMORY 


SUBR IN DRCORE - CLEARS SPASW 


-“■MSOS wM18GG239 
, »-MS05 h.uM18002hO 

PENDING ^♦MSOS ‘+.0M180a2tl 

M18J 0 242 

^^HSOS -.wM180024o 
.. ^^MSOS A.OMlSOOZA^f 
^-MSOS 4.uM18002^5 
^^MSOS -,.GMi80 0246 
. M 18 0 0 247 
^•■^MSOS ^4. OM180 0 248 

'*‘-M30S- '-r. OMlSQOEi+g 

*'^MSOS 4. ON 18 0 0 25 0 
^^M30S, 4. GM180 0251 
M30S , 4 . OMISQ U 25 2 
; ^^MSOS' 4.’0M18C0253 
■ ^-*‘MSOS-.-'p’^>Mi8C0 25‘t’ 
-^MSOS 4,uM1800255 
' ^-MSOS OMlfaOG25o 
,^-MSOS OMls: 0257 

*T HSOS ‘i.0Ml80D258 
-’•MSOS ,4 . uMieO 0259 
,»?-MSOS - . GM18U 0250 
^vMSOS -f. 0,M180a 261 
^^MSOS .T, 0M180G262 


SETS UP LEVEL TWO LOOP, 
SETS SWAPOH FLAG 


COMPLETION OF SWAP I/O 

CLEAR PAR 16 BUSY FLAG 

part 1 PARTITION COREREQUST 
FOR -SWAPPEO AREA - WILL 
BE COMPLETED WHEN HIGH 

PRIORITY ’PROGRAMS RELEASE 
PARTITION 


AFTER SPACE BECOMES AVAILABLE 
READ SWAPPED AREA BACK IN 


^»M30S '■>. 0M180 0253 
^'^^MSOS 4..0M180 0264 
-^^MSOS 4.GM180Q255 
»^MSOS '-V. CH18Q 0266 
=^^MSOS 4. 0ML8 J 0267 
^^MSOS 4. OM18002&8 
-^MSOS 4 . QM18: 0259 
^^MSOS •+»0M180u27 0 
^^MSOS', uMlSOO 271 
»-MSOS -*.uMi80u272 
^^^MSOS'.>^ . CH180 0273 
^^HSOS4,G«^^M180 027-t 
^•’i^HSOS *+ . OM 16 0 0 27 5 
-s^^HSOS ,^..OM188:0276 
^^MS.OS uMi6G0277 
♦♦MSGS ' uMlS'J 0278 
,^^MSOS , uHlbu 0279 
^^MS0ST4. OM160G 280 
^^MSOSi-.O^^MlSu 0281 
^*MSOSi..O »^M180 0282 
^^HSOS^. U^^Ni8u 0283 


c 

o 

c 

o 

o 

o 

( ; 

o 

o 

o 

o 

o 

o 

o 

o 

o 


^^MSOSi*. O^^MISO 0234 
^^MSOSH.0*^'fM180 0285 
'^^NSOSi*..j^--Mi6Dfl28o 


ppTnnp 
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DATE*. Cl/27/99 



r. 


O 


r'- 


/■ ■' 


o 


O 

n 

O 


0287 P0103 COED X 

0288 P0104 14EA 

0289 P0105 C8FE 

0290 POiD664aO X 
P0107 7FFF X 

0291. P0108 E8C4 
C292 P0109 .E201 

0293 POlOA .C200 

0294 POlOe-6204 
029 5 .PGi0C>£0F6 

029 6 P01CD..C8DC 

0297 PDIQE' ODFE ... . 

0298 POiOF' 0700 . 

0299 POllO 09FE 

0300 POlll 0101 

0301 P0112 18FB 

0302 P0113 0500 

0303 P0114 6CAE 
030^+ PQ115 ^6807 
0305 P01i6;QA01 
03 0 6 P0.11'7/;'68 04 

030 7 POlia 0400 
0308 P0119 1800 ■ 

-,P011A .FEES 

0309, 

0310 ' ; 

0311 poiie ,0 0 0 0 

0312 pane aooo 

0313 

0314 

0315 PGllD C202 

0316 PQllE 6111 

0317 POUF 0 400 

0318 P0120 4400 
P0121 00 70 P 

0319 P0122 GOOD . 

, P0123 00F6 

0320 PQ124 6806 

0321 P0125 C522 

0322 PQ126 8204 
0323, PG127 09FE 

0324 PQ128 OlAO 

0325 P0129 5820 

0326 P012A OOQO ■ 
032 7 P0128 0900 .■ 

0328 P012C 0102 

0329 P012Q. 1800 
P012E FF63 

0330 P012F ECFl 

0331 P013Q. C622 

0332 P0131 A006 

0333 P0132 09FC 

0334 P0133 0131 


ADC SWAPAR 
AJDISP JMPt (ADISP) 

CC LDA^ AJOISP 

sta loop 

LDO^ XLOGIAfI 
LDQ- 1,0 
. LDA- 13,0 
STA- TIME, 0 
LDQ- $F6 
LDA^ LENGTH 
CD INQ -1 

CPB 0 
INA -1 

saz ce 

JMP^ CD 
CE I IN 0 

STA* (ASWAPM + 1) 
STA* PR3TAT 
ENA 1 
STA* P16BSY 
EIN 0 
JMP PRTCOR 


P16B5Y NUM 0 
PRSTAT NUM 0 


NOSWA P LDA- THD,0 

STA- THROS,I 
EIN 0 

POINT STQ+ PTR 

LDA =X$F6 

' STA* COA ^ 

' LDA-. • (ZERO) ,1” 
ADD- LNTH,Q 
INA -1 
SOV 0 
RTJ* GOMPAR 
COA NUM 0 
INA 0 
SAZ 2 
,JMP REQERR 

LDO* (POINT*!) 
LDA~, CZERO),Q 
AND-, LPMASK+if 
INA -3 
SAM 1 


TURN OFF LEVEL 2 LOOP 


RESET 'TIME SINCE LAST SWAP 


CLEAR PROTECT BITS 


STATE Flags 
SET PARTITION 16 BUSY 


PARTITION 16 BUSY FLAG 
SET IF PARTITION 16 
IN PROTECTED STATE 

MOVE NEXT REQ TO 
TOP OF THREAD 


OF REO BEYOND LAST 
LOCATION OF PARTITION 
16 


• SKIP IF NO ERROE 


IF COMP PROOR. OF REQ 
IS .LT '3 ■ - REQUEST 
IS FOR AN 

UNPROTECTED PARTITION - 



**MSOS'*.0**M18G0 23 7 
**HSOS4.u**M16Q0288 
' M1800289 
M18D029D 

' **MSOS 4. U **81800 291 
**MSOS-r.O **81600292 
** MSOS4. 0,^;*M1800 293 
**HSOS*t. 3**81800294 
M18afi295 
**MSOS 4.081600296 
**M'SOS ’4. 0M18<jU297 
**MSOS .4, ,08180 0298 
**MSOS.- O.HloO 0 299 
*'*8SDS w. 08 180 030 0 
**8S0S 0 816 0 0 30 1 

**MSGS 0M18m u 30 2 
M180G3G3 
**8 SOS -+.OM180ij304 
**MSDS'.'i*'. uHlBOG 305 
**M30S' 4.0Mi6j 0 306 
**MSOS. 4.0818 0 0 30 7 
**MS0S'.4.,u818uc 308 

,**8.S0S^:;^'. OH 18,0 0 30 9 
‘•.**8S0S ,;4. '0,8 l&a 0.310 
' *.*MSOS '4. 0'818 u 0311 
**HSOS 4. 081800 312 
, :**MSOS 4. ,08180 0 313 
**8S0S , Hh.OM18u03l4 
**8S0S 08 18- 0-31 5' 

**8S0S -. 081800 316' 
■ **HSOS ,4. 081800 317 
■ H18C0 318 

8180 0319 

“**MSOS 4.081800320 
**MSOS 4. 0818 0 0 321 
**MSOS H. G8180G 322 
**HSOS 4.081800323 
**MSOS 4.0M1830324 
**8S0S 4,081800385 
**MSOS 4. 08180 0326 
**MSOS -r. 08180 0 32 7 
**MSOS 4.uMl80G328 
**MSOS T. 081600329 

*r^^iiS03 4.M1800 33U 
*.*MSOS 4. 081800331 
**850S 081600 332 

: **MSOS 4. 081800333 
**MSOS 4. 08180 0 334 


■ 1 ^. 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

\ 

"'V.v' 
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DATE; Qi/27/99 


PQ134 

P0135 

P0136 

P0137 

P0138. 

P0139 

P013A 

R013B. 

P013C 

P013O 

P013E 

P013F 

P0140 

P0141 


,P0142’ 

PQ143. 

P0144 

P0145 

PQ 146 

P014 1 

PO 148 

P0149 

P014A 

PQ14B 

P0 14C 

P014D 

P014E 

P014F 

P015D 

P0151 

P0152 

PG153 

P0154 

P0155 


180E 

C8E6 

OIDA 

COF6 

90F7 

09FE 

E0F6 

ODFE 

0700 

Q9FE 

0101 

18FB 

68DB 

180E 


C 8 09 
.01 IB 
■P0F6 
9 0F7 
09FE 
■E0F6 
ODFE 
0 600 
09FE 
0101 
18FB 
0 AOl 
68CD 
OAGl 
68 CA 
0800 
FECD 
E CCD 
1C 0 0 
FECA 


PROT 


JMP’^ 

LDA^ 

SAZ 

LDA- 

SUB- 

INA 

LOQ- 

INQ 

CP8 

INA 

SAZ 

JMP^ 

STA^ 

JMP^ 


PROT 

PRSTAT 

COD 

$F6 

$F7 

-1 

$Fo 

-1 

0 

-1 

coc 

COB 

PRSTAT 

PRO 


IF PARTITION IS PRESENTLY 
PROTECTED CLEAR 
PROTEC BITS 


IF REQUEST 
PROTECTED 
LOA^ PRSTAT 


SAN 

LOA- 

SU8- 

INA 

LDQ- 

INQ 

SPB 

INA 

SAZ 

JHP'^ 

ENA 

STA^ 

ENA 

STA^ 

RAO 

LOQ^ 

JHP 


PRO 

$F6 

$F7 

-1 

$F6 

-1 

0 

-1 

PRB 

PRA 

1 

PRSTAT 

1 

P168SY 

SCAN 

(POINTi-l) 

(SCAN) 


CLEAR PROT STATE FLAG 
GT 3rPARTITlON MUST BE 


SET PROTECT BITS 
IF NOT SET 


SFT PROT STATE FLAG 

SET PART 16 BUSY 
FLAG 


SUBROUTINE TO COMPARE TWO 16 BIT AODHbb.SES 
FNTEREO- VIA RTJ WITH ONE NUMBER IN A AND THE 
ADDRESS OF THE NUMBER TO BE COMPARED WITH IT 
FOLLOWING THE RTJ. , ’VALUE' . 

IF 'A..GT.’V,ALUE' ‘ THE DIFFERENCE IS .RETURNED IN 
IF A.EQ.'VALUE' A IS SET TO ZERO 
IF A. LT. 'VALUE' A IS SET TO SFFFF 


0380 P0156 08C0 

0381 P0157 0500 

0382 P0158 4812 

0383 P0159 ECFC 


COMPAR 


NOP'.O 
IIN 0 
STQ» SAVQ 
LDQ^ (GOMPAR) 


^^MSOS ,.OM18j0335 
^■^.MSOS '4. BH18uQ33& 
^^MSOS -r. 0M18C 033 7 
^‘4MS0-S' 4, OM 180 0338 
^^MSOS -f . OM180 0339 
^^MSOS 4. OM 184 0340 
-^MSOS’ .f . OM 18 0 0 341 
.«'»MSOS' 4. aM1600’342 
^-MSOS ' 0M1S00 3‘t3 

^^MSOS 4. UM18G0344 

^^MSOS -r. u Mia uO 34^5 

^■^MSOS -.0M18G 0 346 
^^’■MSOS h.QH16^u 347 
^^MSOS, -r. GM18G034& 
=^^MS0S".-4. oh 180 0 549 
^^•HSOS 4. OHISO 0'35 0 
^^MSOS -r . uMieC G 351 
^.■^MSOS ■,-t.,aMi8Gu352 
^^MSOS GM18G 0 55 3 
»*MS0S '.4. QM180 0 3:i?4 
*,»MSOSf 4. 0M180 0 355 
» 30 SC4..,0,M 16 0 0, 35 6. 
'^^MSOS :4. 0M18a'0V35 7 
^»MSOS 4. 0M18OQ'358 
’‘^MSOS 4. 0H180C359 
»^MSOS 4. 0M18D0,360 
'-^MSOS 0Mi80t"3bi 
^^HSOS 4. GMiSOO 362 
»^MSOS 4. 0M18G0363 
^^■MSOS 4. CM 18 0 0 36 4 
-^MSOS 4. 0M18U 0 365 
*^MSOS 4.0Mi8uQ36& 

^^'^MSOS 4.M180G367 
»^MSOS 4.0H180C368 



M18 00370 


Mia0fi371 


' ' M18G 0372 


Mi80 0373 


M183G 37 4 


M1800375 

' ■ 

: H 18 0 0 37 6 


M 180 Q 37 7 


Hi80037a 


. ■ M18u'0 380 

M180 0 381 
M180Q382 
H1800383 


O 

O 

O 

o 

O 

o 

o 

C) 

O 

O 

o 

o 

c 

C) 
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date: 01/27/99 


0384 P015A E622 

0385 P0153 0132 

0386 P015C 0165 

0387 PQ15D .0177 

0388 P015E 0173 

0389 P015F 0852 

0390 P0160 0834 

0391 ' P0161^ 1805 

0392 P0162 0852 
0393, PO 163 0 834 
0394.,'P0164 0121 
G395-P0165 0804 

0396 P0166 E8 04 

0397 P0167 D8EE 

0398 P0168 0400 

0399 PC169 ICEC 

0400 P016A 0000 


LDQ- (ZERO),C 
, SAM 2 
SQP CMPl 
, ■ . . SQM . QBIGR 

SQM CMPl 
TCQ Q 
AAQ A 
JMP^ A8IGR 
CMPl TCQ Q 
AAQ,. A 
SAP ABIGR 
■QBIGR- SETU A 
ABIGR LOQ^’:SAVQ 

, RAO^- .COM PAR . 
EIN - O 

’ JMP*' tCOMPAR) 
SAVQ NUM 0 


GET STORAGE WORD TO COMPARE. WITH A 

A IS,. IN UPPER BANK , 

both, in lower BANK--COMPARE 

Q IN- BANK ir-. A IN BANK 0 

A AND 0 BOTH IN UPPER BANK 

A IN , BANK !■-- Q IN BANK D 

GET D,IFFERENCE IN A 


SUB. ,' Q FROM. A 


Q IS LARGER-.-SET ,'A=$FFFF 
OTHERWISE A CONTAINS DIFFERENCE 


M1800384 
0180 0 38 5 
H18] Q 386 
M18Q0337 
M180.0 388 
Mi80 0 58 9 
M 18 u 0 39 0 
M180 0'391 
M 18 GO 39 
M18G039 
HlB.uO 39 
M 18 G O 39 
M.lcs.C 0.396 
Hi8m39 7 
M 13,0 0 398 
M18G'B-39? 
M 1800-tu0 


U14- c-.-ro 


PRTCDR 
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- date; 01/27/99 

» V- V- . * V- * 9- 9 9 9 9 9.9-9 9 9 9 9 9 9 9 9 9 9 9 9 

* ' . ' ■ : 9 

* RELEASE PARTITION .'REQUEST' PROCESSOR ^ 

^ THIS MODULE IS ENTERED FROM T12 WITH- - ^ 

^ THE' FIRST, LOCATION. OF VOLATILE IN I ^ 

^ AND. THE POINTER TO THE PARAMETER LIST . IN ■ Q. ‘ » 

9 . if. 

9 9 9 9 9 9 9 9 9 9 999999999 9 9 9 9 9999 


PQ16B C2G1 


P016C 
PO 16D 
P016E 
P016F 
Pfll7fl 
PU171 
P0172 
'•PQ173 
. P017,4, 
.'PQ175. 
PQ176 
P0177 
P0178 
PQ 179 
PO 17A 
•PG 17B. 
P017C 
PD17D 
P017E 
P017F 
P0160 
■ P0181 
P0182 
P0183 
P0164 
P0185 
P0186 
P0187 
P0188' 
PO 189 
.P018A 
■P018B 
. P018C 
PG18D 
PBiaE' 
P018F' 
P0190'- 
P019A:, 
P019e. 
P0193 
P0194 


90F7 
09FE 
0112 
OCIO 
181B 
OCOF 
COFF 
0906 
,.0500 
j 68 04 
C 6 0 0 
■0 0 27 
580D 
0 0 05 
0105 
0900 
: 0103 
014A 
■ ODFE 
18F2 
CG1& 
A 2 23 
0105 
F8F3 
C222 
0 1 15 
ODFE 
'18FB 
El 05 
1400 ■ 
7FFF" 
54F4 
.5200 
018F 
14B9 
0814 
-09EF 
.-'0112 
6888 
1807 
C222 


K65T12 

9 


TAGl 

LOCATE 


LOCI 


L0C2 


LOA- PC,Q 


CHKU3E 


CHKl 


CHK2 ' : 
PTNREL: 


RELEAS 


RELA 


SUB- 

INA : 

SAN . 

ENQ 

JMP^- 

ENQ 

LDA-. 

IN A 

IIN 

STA» 

LOA , 

RTJ’^ 

AOC 

SAZ 

INA 

SAZ 

SQZ' 

INQ 

jMP^f 

LOA^ 

AND- 

SAZ 

AOQ«^ 

LDA- 

SAN 

INQ 

JMP^ 

LOQ- 

JMP 

'■RTJ4-' 
NUM : 
ADC 
JMP- 
IRQ ' 
INA 
SAN 
STA^ 
JMP- 
LDA- 


$F7 

-1 

TAGl 
UNPPRT 
CHK2 
-15 
■ I 

VTEM 

0 

LOC2 

PART8L, Q 

COMPAR 

VTEM 

CHKU3E 

0 

CHKUSE 

ERR 

-1 

LOCATE _ 
i BSY + i) 
ONEBIT»Q 
ERR 

LOCi+1 

USE,Q 

CHK2 

-1 

CHKl 

VPTR,I 

SCHERR 

t$-F4) 
$52.0'Q.. - 
REL-EAS 
(AREQXT) 
A 

-UNPPRT 

RELA 

P16BSY 

RELB 

USE,Q 


3 CA.RQS. DELETED. 

CHECK 'IF RELEASING 

UNPROTECTED PARTITION 


SEARCH FOR PARTITION IN WHICH 
RELEASE AODR F.ALLS 

LOCATION OF RELEA SE' AODR . STUFFED 
IN CALL TO COMPAR 

DOES AODR. TO BE RELEASED FALL 
IN THIS PARTITION 
YES-.-RIGHT ON START OF FTN. 

YES--WITHIN PTN. 

NOT WITHIN ANY PTM. , 

NO — go; CHECK NEXT PTN. 

IS THI;S PTN. EV.EN ALLOCATED 


YES— FIND' WHERE BLOCK 
.AL-iOCATEO',". BEGINS .. . . 

FOUND*; 

NOT FOUNO--CHECK. NEXT 
LOWER ;PTN. 

ILLEGAL -REQ.— IGNORE 


SCHEDULE SELF AT CORE "ALLOC. 
pRi. 


SET PARTITION 16 
FREE 



M18C j -,3 2 
MlBju 403 
M 18 u 0 40 4 
MiaOC h0 5 

M 16 j 0 -tU 6 

M1600 407 
H 18 u 0 4u 8 

M 18 0 0 40 9 


:.,: H180,0:4ii- 

'V' .HIS 6.0' 412 
^^MSOS' :4.. 6M16,0u 413 
; -^MSOS ,4 .iOM18-Iu 414 
7 6 * 1 3 4 9 M 18,3 .0 4i 5 
, «^^MS0S .4. OM160iJ'„4l5 
M 1806 41 7 
• 7o^-1849MlBj6 418 

M18 3 6 419 
M18D 0 42Q 
M180 0 421 
H183Q422 
M180 0 42 P 

•: .' MiS^Ofl 42 4 
M183 0425 
M 18 u 0 42 6 
■ M 18 6 6 42 7 
Ml8aU-,28 
M 16 0 0 42 9 
M 18 00 430 
M18G.'0 431 
Mi83 C 43 2 
' ' MIBQ'0'43 3 

.M I86 0 -,3 4 

■ H180 043-5 
^fl8-0Hi5 
H 18,3 0.43 7 

' " M 18 0 0' 43 8' 

■ M 180 0 43 9 

M 1 B 4 u 4 4 U 
M18 uU441 


^4 MS os, 

^^MSOS 

^^MSOS 

^'■^MSOS 


H1800 442 
,M 180,6 44 3- 
> . ■" M18,0E.44'4'' 
i,:Mta..as4'45' 
;;i,4,.4M,18a,.8;446 
,4.44,SMl'8aO':44 7 
V4.',0H18G'0'448': 
4. 0M18 j 0 44 9 
■ 4. GMiSGQ 430 
- . 0 H 18 0 0 45 1 



c 

o 

o 

C' 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE: ul/27/99 


L-’ 

C 


0-452 P0195 B4G0 
P0196 0084 
04531P0197 6CFE 
0454;: PQ 198 0 8 44 
Dh55.. P0199.:&222 
04E6 P019A 1800 
P019B FE64 


BSY EOR BUSY 

STA^,; (BSY+1) 
CLR.7 A . 

STA-: USE,Q 
RELB JMP PRTCDR 


CLEAR THESE BITS,’ IN BUSY WORD 


CLEAR MASK FOR RANGE ASSOC. 
WITH THI-S PARTN. 

FIND REQ TO FILL 


^^MSOS - 


MiBjj u 45 2 

'■ M18,uru4i?3 
• MLS’j’0'45 4- 
MiaO'Q 455 
OMlSOOtSb 


O 

O 


O 


V,.- 


/ \ 


V_.' 


>' ) 




o 

' o 

l’ 






f'^'l 

■v^ 

o 

o 

^ o 

o 

o 

o 

Q 

0 

o 

o 

■ 

o 

o 

o 

^ u 

o 

■ o 
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DATE: Ql/27/99 


PQ19C 
■ P019O 
Pt319E 
;Pfll9F 
PQIAO 
PQlAi 
PG1A2 
P01A3 
P01A4 
PfliAS 
POIA 6 


OQOl 
0 0 0 2 . 
00 03, 
0 0 05 
■0 0 03 
0 004 
0 0 05 
0006- 
0007 
00 08 
00B9 
C108 
0111 
D103 
C622 
■AOlO’ 
OF 49 
0101 
1820 
6108 
C201 
6106 


SPECIAL PARTITIONED CORE, REQUEST FOR 65K 
SYSTEM — THIS MODULE IS ENTERED IP, BIT 14 
OF THE FIRST , WORD OF A SPACE REQUEST. IS SET. 
ENTRY IS FROM T10-- 

Q = POINTER TO PARAMETER LIST 
I ^POINTER JO VOLATILE STORAGE, 

VOLATILE 'CONTAINS'', THE FOLLOWING' ON ENTRY-- 

0 Q: REGISTER OF REQUESTER, 

1 A..:.,REGISTER OF REQUESTER-'' 

2 I' REGISTER OF REQUESTER 

3 RETURN ADDRESS, FROM REQ. PROC. 

4 REQUEST PRIORITY 

5 POINTER TO REQUEST 

6 ■ UNJSEO 

,7 REQUEST CODE 
8 , INDIRECT REQ. INDICATOR 

t ¥ ^ 3/. 3f. Jf. Jf. 3f. 3f. Ij. 3). 4/. 

ENT K65T1G,PTNALC • ‘ , 

REQUEST PARAMETER LIST IS AS FOLLOWS — 


REQU EST 

' WORD", a*' 
WORO'l., 
WORD; .2 ■ 
WORD ‘3 ," 
WORD ,4. 
WORD '5> 

3/. 3f 3/. 4f, 

EQU PC 


,0*' REQUEST CODE AND' PRIORITY 

1- . ■ CO.MPLETION ADDRESS 

2' THREAD 

■3,".: REQUESTERS ,Q- 

4. ;• NUMBER OF WORDS , 

5>.,'. STARTING: PARTITION' (IQ OR 

3/.. }(. 3f. 3^ 3f.:^.^3^^3(.4/.3^.4|i3l.3f^ 

PCil) ,PT(2l'»PQC3) ,PP(5) 


LEVELS 


LESS) 

3f 3F 3(. 


VR(3) ,VPL(4) , VPTR{5),VTEH(6'>tVTMP(.7), VINO (8) 


K65T1Q 


K65GOR 


EQU 

LOA- 

SAN 

RAO- 

LOA- 

AND- 

ARS 

SAZ 

JMP-'^ 

STA- 

LOA- 


AREQXT ($B9) 
VIND, I 
1 

VRtl 

(ZERO),Q 

LPMASK+14 

9 

1 ,' 

PTCORE 
VIND, I 
PC,Q 


CHECK FOR INDIRECT REQ. 
UPDATE RETURN IF RFQ. 

IS DIRECT, 


DIRECTORY REQ. 


YES 

GET PRTN. 


ADOR. 


STA- VTEHfl 



o 


M Icl u -,5 8 
N 18 u,0 43 9. 
H 18 : u ■4,6'G 
M180 0 461 
M18a0462 
H18aD,463 
M18D 0 to 4 
M180D,t65 
M18D'D466, 

. M18G 0 40 7, 
H18,I C,tb8 
M18G0 469 
M 18 8 0 47 0 

M18 j u 471 

M18&0 472 
,.M18,0,0;47.3. 
Mi8'G0‘'47 4 
M 18 0 0 '47 3 
M18 j 0 47b 
M180Q477 
M 180 0 478 
M180 0 t79 
M18 uG 4S0 
M 18 O'-C 48-1 
M18G G 48 2 
• M180C,483 
Hi8G.S',484 
M'le'O'C'Qas,. 

M18 0 G'48 6,';' 
M 163.0,48 7, 
M18a0,486 
M180G489 


Mlb'j Q 490 


, ,,'M 18.0 0,491 
' ^ DMisaotez 
, ' ‘ M'18'0 0-493 
, , ' H18G 0 t9 4 
. M 180 0 493 
M 18u 0 406 
MIBj G 497 
M 18 u G t9 8 
M 18 0 0:49 9 

M 18 - 0 04 0 

HibU'Q 501 
M18-G 502 


o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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date: -.i/EF/gg 


0503 
050^,. 
050 5.. 
fl5fl6-' 
0507 
05 0 8 ‘ 
0509 
0510' 

0511 

0512 

0513 
051U, 
0515, 
0510. 
0 517 

0518: 
Q51.9 
052 0- 

0521 

0522 

0523 
052A 

052 5 

0526 

0527 
0528, 
0529 
0 53 0 

0531 

0532 

0533 

053 0 

0535 

0536 

0537 
0 53 8 

0539 

0540 

0541 

' 0 542 
0 54,3. 
0544- 
0545' 
0546 
05^7 
0548 
0 5 49 

0550 

0551 

0552 

0553 


_P01A-7 
PQIA'8 
P01A9. 
PO lA A 
POIAB 
POIAC 
POIAO 
POIAE 
PulAF 
PCIBO 
POIBI, 
P01B2-, 
PQ 1.B3 
'P01B4; 
;P018'5’ 

P01B7. 
.P01E8 
P01B9 
POIBA 
P01B8 
POIBC.. 
PO IBD 
POIBE 
POIBF 
POICG 
POICI 
P01C2' 
PfliC3 
P01C4 
P01C5 
P01C6 
P01G7 
P01C8 

poicg 

POICA' 
Pfl ICB 
PGICC 
POiCB 
POIC'E 
POiCF 
POIDC 
P Q 10 1 
■P01D2 
P01O3 
PQ104 
PQ105 
PQ1D6 
P01D7 
P01D6 
P01D9 
POIDA 
PQ 108 


E828 
C622 
:09G0 
GllD 
C0F7 
0 9 01 
0822 
9106 
0101 
18 63 
0 814 
■DCIQ 
>6E1C 
.4108 
E 2 Q 0 ,. 
:0177; 
18 0 A 
'9106 

0107 
ODOl 

0108 
C108 
09EF 
0111 
18EB 
18E7 
4106 
1821 
C205 
AG 07 
6108 
..0822 

OOEF 
0155 
0822 
C0F7 
09 01 
6E03 . 
0814 
■8000 
• Q1B6 
6106 
D 822 
C622 
0900 
0111 
183E 
El 05 
_ E2 04 
.0 832 
'...0131: 
' 0176 
0121 


FNDPR.T, 

CKUNP 


TRY MX T 


FOUND,. 

PTGORE 


AT8L 


LDQt 

LDA- 

INA,..- 

SAM. i 
LDA- 
IMA 
TRA 
SUB- 
SAZ 
JMP^ 
TRQ : 
ENQ . 
STA^ 
STQ- 

,UDQ . 

JMP^ 

SU8-t. 

SAZ ' 

INQ , 

RAO- 

LDA-; 

IMA 

SAN. . 
JMP^: 
JMP^- 
STQ- 
JMP^ 
LDA- 
AND- 
STA-. 
TRA 
INQ 
SQN 
TRA 
LOA- 
INA 
STA^ 
TRQ 
ADD+ 

STA- 

TRA 

LOA- 

INA 

SAN 

JMP^ 

LOQ- 

LDQ- 

AAQ. 

SAM 

SQM 

SAP 


ATBL+1 
(ZERO),Q 
' 0 

TRY NX T 
$F7 
1 
Q 

VTEM, I 
1 

SCDE.RR 

A 

UNP.PRT • 
{ATBL+D »Q 
VINO, I 
= XPARTBL,Q‘. 

FOUND 
■VTEM, I 
FOUND 
1 

VINO, I 
VINO, I 
-16 
1 

CKUNP 
FNDPRT 
VTEM, I 
THDSTR 
PP,Q 

LPMASK+5 

VIND,I 

Q 

-UMPPRT 

ATBL 

S ’ 

$F7 

1 

f ATBL + t ) ,Q 
A 

=XPART8L 


VTEM, I 
Q 

(ZERO ) , 
0 

SCDERR 
VPTR, I 
LNTH, U 
Q 
1 

NOWRAP 

1 


Q 


GET BASE OF TABLES 

FIND PAR'TN. NO. , 

CHECK IF UMPROTECTEO PART 
Tc: ?;TflRT OF PaRTITIDM 


STORE ($F7+1) INTO PARTITION 16 
START ADDRESS 

SAVE HUMBER OF PARTITION 


PRTN* FOUND , , 
BUMP INDEX AND NO. 


TRY NEXT PRTN."'; '' 

SAVE INDEX, TO TA,BLES ,, 

PICK UP PARTITION NUMBER 


ADO' T.ASLEi'.'BASE ^ to; IT . 
STORE TEMPORARILY 
PICK UP, STARTING AODR OF 
PARTITION 


CHECK FOR- POSSIBLE WRAP AROUND 

IF A IS IN BANK 0 AND ' ' ’ 

Q IS IN BANK 1., NO WRAPAROUND 
IF A IS IN BANK 1 AND 


Mie y,C5Go 

‘ M 150 0 30.4 
M 160 U 50 5 
»^MSOS H.UM180 05 05 
H180u50?’ 
“-'^MSOS ..‘f.-OHlSOuSOa 
•^^MSOS 4.,OHl3ljfl509 
*-MSOS' 4'. GM18ufl510 
»4MS0S ..0H.18 j 0511 

■’ ^M 180 0 51 2 
.-MIS 0 0 51 3 
^■''HSOS . uH 18 0 0 51 4- 
. ^^MSOS- -M180 u 513 

-^MSOS ONI 8- G 316 

^^MSGS ' ft 0Mltt0Qpl7 

. ^•'■‘MSOS .jHiSOupia 
•/ M 18 0 0 519 
M 18 0 0 32 0 
M 18b 0321 
Mi80a522 
MlBb 0 32 3 
H18u 0 324' 

' H1800325 
' M16'’0u'3,2'b . 

; 'M18,'0 0 5'2? 

■ • M 18 0^0 52 8 
, . M 1800 329 ' 

'..0 ’ ' • ' Misi'o 330 . 

'■ ^«^MSOS .4..0Mi8.a-'0,531 
"■ ■ M18uC 532 

^»HS,OS i>.DHi80Q5S3 
M 180 0 35 4 
^^MSOS -T. J:M18C0333 
^^^MSQS’' -».'0Mi.8.a,C,33o 
^^MSO'B. 4. GNi8,.fi-C'53 7 
-^MSOS ..4. uM18'0O 53 8 
^^MSOS 4. QM18’e:fl:539. 

<^^MSOS 4. aH1800'p4G' 

M180 0 541 

HlSQu 342 
M 18 G 0 P‘,5 

M 18 b u P4 "T 
Mi80Qp4P 
M 18 0 C ,3 4 o 
M18 GQp 47 
M180 0 5-,8 
M 180 u 34 9 
H18 j 0 ppG 
M 18 0 0 331 

M 18 0 G pp 2 

H18 j u 33 3 
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055^- POiDC 0163 


SQP WRAP 

Q IS IN BANK 0, WRAPAROUND 

M 18 0 0 35 4 

w 

0555 PQIDD 0852 


TCQ . Q 

‘ ; 

M180.0 555 


' 0556 POIDE 0832^ 


AAQ....Q 

IS start of pin. BELOW END 

M 1826 550 


05-3 7 P.OIDF. 0171 


SQM..1 

YES, NO wraparound 

',H 1.826 5,5 7 

o 

0558 POIEO 1833 

WRAP 

JHP.»: SCDERR 

NO, MUST 3E wraparound 

' ,M18.ju55 6 

055^9 POlEl El 05 

. NOWRAP 

LOQ- VPTR,I 

STORE, in Q RETN. OF REQ. 

...M18 2Q559 


056G P01E2 '62 03 


STA- PQtQ- 

, 

M 18 G 0 5? 0, 


0561 PG1E3 El 06 

THDSJR 

LOQ- VTEM,I 

' i ' ' • ■ 

’ : M160'0,561' 


0562 P01.E4 C211 


LOA- THRDS,Q 

TOP OF THIS PARTN. THREAD 

M18G0 5o2 


- 0563 , P01E5 flOOF ■ 

, 

INQ 15 

. , , 

>4 . OH. 18 0 0 56.3 


0564 P01E6 4107 


STQ-- VTM.P,I _ 


M1820p64 


0565 P01E7 0900 


INA.- .0 

EMPTY THREAD 

; H,i,83.p.p.55 

• 

0566 P01E8 , 0111 - 


SAN 1 


... M18'36.56d'- 


0567 PG1E9 181A 


JMP^ THRDIT+1 

YES, THR£A3.',TH1S- 'REQ. 

' ,M i82;0'5'6,7 


0566 POIEA 0500 


IIN 0 


. M 1836,55 8 


0559 PGIEB 4816 


STQ^ TOP 

SAVE. LOG. - OF THREAD - . 

M.18'2 63.&9 

■ • 

0570 




, . H 182.65 7 0 

'■•>- ■ . . . 

. 0571- 

-V- 

SEARCH OOWN THREAD 

FOR APPROPRIATE POSITION:. 

M 186,6-571 


0572 




:'M18u0 37 2 


057 3 PaiEC'.41Q7 

. SCHTHO 

STQ- VTMPfl 

SAVE PREVIOUS ENTRY LOG. 

" M180.6 573 

/’ 'i 

0574 P01EOi.E814 


LOQ« TOP. 

... 

Mi82U574 


, 0575 POIEE .0400 


EIN 0 


H180 Q 57 5 


’■ 0576 POIEF C202 


LOA- PT,Q 

CHECK IF T.OP OF THREAD 

' M18L6576 


057 7 . P01FO---0 BOO 


NOP 0 

ALTERED WHIIE .. 

, ,M18-50.5..7.7. 

j ' 

. 0578 PQ1F1\0500 


IIN 0 

INTERRUPTS 

'r, M 18 06- 57 .3 

1 

0 57 9- PQ1F2.. 48 0F 


STQ» TOP 

ENABLED 

M 18 3.6, 57.9; 


0 58 0.. PQlF3-:-92 02 


SUB- PT,Q 

' 

" ■ M1326''58.0 


' 0581. P01F4i'::Oi01 


SAZ 1 


■ H 18 06.581 

1 1 

0582 PQ1F5 18EO 


JMP- THDSTR 

YES, RES TART- SEARCH . 

■ Mi8j u 53 2 


0583 PQ1F6 E107 


LOQ- VTMP,I . 

NO, CONTINUE' .. 

, ■ M182 2.g83 


. 058-^ P01F7 E2 02 


LOQ- PT,Q . , 

NEXT ENTRY ON ■ THREAD 

H18G u o8 4 


. 0585-.P01F8 OOOO 


INQ 0 

END OF THREAD 

'. M18G Q 58 5 


. 0586 iP0.1F9 01 51 


SQN 1 


M18'j 0536 


. 0587..-P01FA. 1808 


JMP^ THROIT 

YES, PUT REQ. HERE 

M182 0567 


0588. P01FBC622 


LOA- (ZER0),Q , 

NO,. LOWER PRI. LEVEL 

H IBS 0 58 8 


0589-.PQ1FC A40Q 

X 

ANO+ RPMASK 


/ - ,M- 1,8.2 0. -589 


P-QlFDi 7FFF 

X . . 




1 1 

059 0 , POIFE; 9104 


SUB-..VPL»I 

, . 

•1 '■ . M.13d059G 


0591 POIFF 0132 


SAM ; THRDIT 

YES., PUT REQ. .HcRt ' 

M183.3591 


0592 PG200 18EB 

i 

JMP^ SCHTHO 

NO, EXAMINE NEXT REQ. ON THO. 

' ' M18S6 592 


, 0593 . P0201 0000 

' TOP 

NUM, Q 


M13e0 593 

1 

0594 P02C2 El 07 

. THRDIT 

LOQ- VTMP,I. 

■ ;■ POINTER . TO FOLLOWING REQ. 

H 182 0.594 


0595' P02C3 C202 


LOA- PTtQ 


M18G 0 5 


0596' P020.4, E105 


LOQ- VPTR,I 

, .TO THREAD OF CURRENT RFQ. 

M180i05g6 


. 0597 , PQ2G5 6202 


STA- PT,Q 


Hi8jQ59 7 

1 

0593 P0206 0814 


TRQ A 

■■ . POINTER-, TO , CURRENT REQ. 

M 18 0.0 59 8 


059.9 PQ20 7 El 07 


LOQ- VTMP,I 


M18Q 0 399 


0600 PQ2Q8 6202 


STA- PT,Q 

TO THREAD .OF PREVIOUS REQ. 

M180060C 


0601 PQ2G9 0400 


EIN 0 


M 18 a 0 601 


0602 




M18UD6G2 


0603 


CHECK TO SEE WHETH 

ER THREADS'ARE BEING SCANNED 

M 18 0 y o Q 3 


0604 


ANO-:WHETHER THIS PARTN THREAD HAS' BEEN PASSED 

HIBOOdOh 

n 

060 5 


BY THE SCAN 


H 18 2 0 oG 3 


u 


O 

O 

C) 

c 

(") 

o 

c 

C't 

o 

o 

o 

o 

o 

o 


o 


PRTCDR 
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■;P0 2QA 
■,P0 20B 
P0 20C 
.P0200 
•P02 0E 
. ;P020F 
'iPOElO 
P0211 
■•'.P0 212 
. P0213 
.• P0 214 
PQ215 
! pa 2,1 6 
I P0 217 
pfl 21 a 
. P0219 


C400 
0 0 25 
0132 
9108 
.:.0133 
54F4 
5200 
,00 0 0 
14 B9 
;-El 05 
,C8F8 
6802 
54F4 
0 0 00 
0 0 92 
14B9 


SCHORV 

PTNALC 

RETURN 

SCDERR 


SAM 

SUBr 

SAH 

RTJ- 

NUM 

ADC 

JMP- 

LDQ- 

LOA^, 

STA^. 

RTJ- 

NUM 

ADC 

JMP- 

END 


SCHDRV 

VIND, I 

RETURN 

( $F4) 

$5200 

PRTCDR 

(AREQXT) 

VPTRiI 

PTNALC 

RC 

($F4) 

0 ■ 

REDERR 
(AREQXT ) 


SCAN IN PROGRESS 


YES, PAST THIS PARTN 
NO- 
YES, SCHEDULE PARTITIONED 
CORE DRIVER 


REQ. POINTER TO - Q 

STUFF. 'REQ. COOE\ANO PRIORITY 


PGM- Q21A 


DAT = OuO: ( 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Ml8y 0b05 
M18.0 0 60 7 

MIS'J 0 60 8 
Mi80G6u9 
; ’:,.M 18 0 061-0" 
' -:,M18'0 0'611' 
■M18'a0 612 
M160ud13'- 
H18uu614 
■ ;Mi8j0oi5, 
M 18 0 0 616 , 
M 16 0 a 617 
, M-ISODaIB; 
M 18 J Q 51-9 
" M18'a8‘62'0 

H18L0621 

M18'a'C622 


G 


O 


O 


o 


o 


o 


o 


o 


c 


G-' 


O 

o 

c 

o 


PRTCDP 
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date: Gi/27/99 


EQUIVALENCES 

o 

, ^ , DEF. LINE.'- NAME .VALUE REPERENCED, AT LINE NUMBER 


o. . 

0 0,0 0 - 

I 

OOFF 

,■ (000255) 

.0 025 

: ONEBIT 

0 023 

■ (00'0035) 


. . 0 026 

AOISP 

ODEA '. 

(000234) 


, , 'D 02 6 ' 

ZERO 

0022 

(00,0034) 


0 02 6 

L PM ASK 

G002 

( 0 Q 0 0 Q 2 ) 


0027 , 

THRDS 

0011 

( 00,0017) 


0:028, 

USE 

2022 

' ( 0.00.034) 

, 

0 029. / 

TIME 

0 0 0 4 ' ■ 

( Qflli;i}0 4) 

o ■ ^ 

■ 0 C 2 9-. 

, UNPPRT 

0 a 1 0 ■’ 

( 000.016) 

■ 0 0 30, 

THD' 

0 002 

■ (Go.o',aa 2 ) 


0 030' 

LNTH ■ ■ 

000 4- 

(000004) 


0 489 

PC 

0001 

(Qoooai) 

0 ; 

0489 

PT 

G002 

( 000OQ2) 

0 489 

PQ 

0003 

( 0 00,003) 


0489 ' pp Qo. 0 ' 5 ', (ooaoas) 

. 0 490 ^ VR ' Q00 3T" (0 00003) 

.'0 490.'.^ ■ VPL . 0004..- (00000*+) 

■ ..'0.49,0 :.''- VPTR' • 0005 ;.:. (000005) 

0'49Q VTEM. . ' 0006 " ( 000006) 

■Q49Q- ■ VTMP ■ 0007' (OQOD07) 

0 49 0 VIND 0QQ8 (000 00 8) 
, 0 491 ■ AREQXT 0089 (000185) 

o 


0075, 

Q.0 79, 

0 082, 

Q u97 0113, 

0 15 5 

0G60, 

0 3 8 5, 

0 433 . 



0 Q33 1 

C.Q55, 

0226, 

'.0231, ..:02.'3'7,' 

■ Q 245 

■0,0 39, 

0 05 6, 

u G 5'8 , 

■ OlSlv- '012 c> , 

0136 

3 C 40 , 

0 359, 

0154 , 

u 186 , G 2,0 1 , 

0 22 8 

.0 Q 9 2 , 

0115, 

0122, 

0194, 0 31 d , 

0 56 2 

.0 1.6 4 , 

0 436, 

0 45 1 , 

0..455 


'3 2 35, 

0 2,94 


, . ' . ; , ■ 


•0112, 

0 27 6, 

0-416, 

U-t-47, Qol4, 

'0 53 4 

0051, 

0121, 

0 19.4 , 

u19d, ij2. 03, 

u 211 

3 126, 

G-522, 

0549 



3 044, 

0 0 4 9, 

0411, 

u 501 


.0576, 

0 58-G, 

0 .6 8 4 , 

0 695,. 0 ^>9 7 , 

0600 

.0 0 57, 

0 0 63, 

.0178, 

0560/: 


0530 





.0494 





■3 590 





iG 440., 

0 548, 

■ 0'55,9 , 

, 0'59o,': 0.615 , 


0-+20,'- 

Q :42 5, 

650 2,' 

0 5.10,, 'Q51"9','' 

' 0 6,2. 8 

0564, 

0 573, 

0 583, 

059*^, 0599 


0 492, 

0 5 0 0 , 

0 D 1 6 , 

0522, 0523, 

0 63 2 

0 44-5 , 

0 614, 

0621 




O 

O 

i'") 

o 


o 


G 1 , 

■0193, 

■.^ 1 9 , 0 4 1 9 


: O 

0265, 
0 1 85 1 
0332, 

'0277, 

■fe 20 0 , 

p 49 b, 

0283 . ■ . ' 

G227 , 0 321 , 0331, 0384, D-t95, Osu-.-, > 
O' 531 

4 - , L 6 8 0 


'0 316 




c 





■ o 


, , \ , o 

L5-t2, 0 561 

06 09 , ■ Q 

; O 

o 

o 

: O 
O 

, o 

Q 


L..'- 


PRTCDR 
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DATE: 

01/27/99 





o 

S Y M .: B 0 

L S 








’ 


o 

C-' 

DEF .LINE 

NAME ' 

ADDRESS 

referenced at 

LINE 'NUMBER 






.■ C 

r‘'i 

0 0 0 6 

PRTCDR 

0 00 0 

uQ-06» 

0054, 

,U238, .0308, 

0 4,5 6 1 

O' 61 3 




C) 


, QQ06 . 

K65T12 

016B 

0 0 06 









0 0 0 6 

PTNREL - 

018C 

.,0 0 06 










0 0 06 

K65C0R. 

019F . . 

0,0 06 




' 






0 0 0 7 

;SPCEV4' ‘ 

00F4 . - 

.0007 

, 





• , " 


C'J 


: 0 0.0 7 . 

. ^■,RDPTV4..-.. 

O.OFC 

...0 0 07 










00 0 7 ■ 

OUTPV4.. 

0QE6 

.0 0 07 










0047 

■ DIRCAL , 

OOOA 

0 0 43 




' 






0 049 

■ ‘PTC OR 

OOQC , •' - 

0,042 • 


0182 





, • \ 

o 


0 052 

FINE 

GOOF 

0 0 48 , 

0 06.7, 




> 




0 0 56 

PTCORl 

0014 

. 0 050 










0 053 

PACOMP 

0016 

0183 










0 066 

COMPAQ 

OOIE , . 

0062 


0172, 0173, 

0 366, 

0’368 




o 

■->,. ' 

0 069 

SCAN 

0020 

0 032 , 

0 120, 

0168, 0189 




0 073 

SCNC 

002 4 

0 083 , 

0 098, 

0.1:99, 0106, 

015 2, 

0.15 3, 





00 74 

SCNl 

0026 

0111, 

Q156, 

0169, 0.190 







.■"*■■ 

0 078 

INPROG 

0 02B 

0 0 72, 

0213 







V \ . 


0 0.80.. . 

PROGl 

0 020 

0 0 77, 

00.89, 

0103 








. 0 089 

CONTI 

0036 

0 087 







' 



0090 

•AVAIL 

003 7 

0 081 









O; 

0104 

EXIT 

0045 

0 088 , 

0101 








0119 

EXITA 

0 0 5 3 

QUO, 

0117 









0121 

AVI 

0057 

' 0 095 










0136 

AV3 

0066 

. 0142 










0 137 

COMPRE 

0067 

0130 




0 15 0 , 

0212 



o 


0143 

TOPBSY 

006E 

0C70 ,' 

0 090, 

0;iG2, 0104, 

0 14,3, 




0143 

SAVI 

Q06F 

0078, 

0129, 

0138, 0170 , 

017 6, 

G191 






0143 

PTR 

007G 

012^, 

0171, 

0179, 0184, 

G 2 0 7 , 

0..318 





C''.- 

0 14 4 

AV4 

00 71 

, 0140 








- o 

o ^ 

■ 0149 

SHI FI - 

00 77 

' 01..47 










' 0159 

SHIF2 . 

0082 

. 0158 


0167 








0 16 0 • 

AV4A 

0083 

0 0 76,. 

■ 0165, 








0164 , 

AV5 

00 88 

0162 





, 



o 


0174 ' 

REQERR •; 

0 0 92 

. 0134, 

0329, 

0620 







G183 

TOCOMP.'. 

G0 9D ■. 

. 0181 










0184 

RETHO 

0Q9F . ■ 

■ ',0163 








o 


' 0195 

REl . 

OOAA 

; : 0 206 : 








0207. 

HERE . 

00B6 . , 

'..0199, 

.020-4, 

0205 . 







0214 

LEVEL ' 

OOBE ' 

0188, 

0 20 3 









0 221 ' 

CKSWAP 

OOBF 

0 118 








• o 

O 

0 224 

ASWAPN 

00G2 

■ 0 303 








o 












o 

o 












o 

o 












o 


I 


C' 

■ 

PRTCOR 
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date: 

01/27/99 

c 

o 

■ 0 233 

XLOGIA , 

ODCC 

• '.','0291 






0 244 ■ 

HRTOUT 

OODB 

. 0 241 







. 0258 

LENGTH 

OOEA 

, 0247, 

',0 29 6 






. 0259 

START 

OOEB 

0 2 52 






o 

•'0268 

CA 

GOFl 

0 256 




' 

' o 

0275 

SPCLGN 

OOFS 

0 248 






0 280 

CB 

0 OFB 

0 272 







• 0284 

LEN2 

010 0 

0249 






o . 

■•0285 

START2 

0101 . 

0253 





' o 

.0288 

A JO ISP 

0104 

0289 






0 289 • 

CC 

0105 

0 282 







• 0297 

CO 

QlOE ■ 

0 301 






o 

0302 

CE 

0113 

• ' 0300 






0 311 

P16BSY 

OllB 

.0221, 

0 269, 

0306 , 

0365, 

Ph49''-' 

■ ■ v_- 


0 312 

PRSTAT 

one 

0 30.4, 

0 3 3 6, 

0347, 

0351, 

0 36 3 



0315 

NOSWAP 

QUO 

-. 0223 






o 

0318 

POINT 

012 0 

0 330 , 

0367 




' 

0326 

COA 

012A 

0320 







0 342 

• COB 

013B 

. 0 346 







0347 

' GOC 

0 140 

Q 345 





' . 

0 

0348 

COD 

0 l4l 

•0 33 7 





-D 

, 0351 

PROT 

0142 

0 335 






035 7 

PRA 

Q148 

0 361 







0 362 

PRB 

0140 

0 360 






C^'\ 

0364 

PRO 

014F 

0 348 , 

0352 ■ 


1 ' ’ 




Q 38 0 

COMPAR 

0156 

0137, 

0 32 5, 

-0-383, 

039 7, 

0 39-9, 0 424' 



0 392 

CMPl 

0162 

0 386 , 

0 388 






0395 

QBIGR 

0165 

0 387 


' 




O ^ 

,■ 0 396 •• 

ABIGR 

0166 , 

• 0 391, 

0.39 4 




. 0 


. 0 40 0.- • 

SA VQ 

016A 

.0 382 , 

0 39 6 





0 418 

TAGl •• 

0171 

. 0 415 







0 419 

LOCATE. 

C'17 2 

0 431 






O ■' ' 

0 423 

LOCI 

0176 

: ■■ 0435 





0 


■ 0.4-2 5 

LOC2 

0179 

0 422 






0 432 

CHKUSE. 

0180 

. 0426, 

0428 






0435 

: CHKl • 

0183 , 

0 439 






o 

■ 0 440 

ERR 

0188 

Q 429, 

0 43 4 




; 0 

" 0 4.42 

CHK2 

018B 

.0417, 

Oh-3 7 





0 446 

RELEAS 

0 1 8 F ' ' 

fl.%,44 , ' 







0 451 

RELA ■; 

■0194 ■ , 

0.4.48 






Q 

0 452 

BSY 

0195 

■ 0 432, 

■0 453 




0 


0456 . 

RELB 

'Q19A . 

. . 0 450 

' 





0 478'' 

K65T10 

Q19C 

■ 0 473 . 





- 


0478. 

PTNALC 

0 21G '■, , 

0 478, 

0616 ' 




- , ' ' 

o 

0504i ■■ 

' FNDPRT ' 

01A8 

0527 






0 5-0 7 . ' 

GKUNP 

OlAB . 

■ 0526 




' 



0 519 

TRYNXT 

OlBe ‘ 

0506 







0528- 

‘.FOUND 

OlCl 

Q518, 

0520 





n 

' 0 5 30' ■' 

..i'PTGORE . 

01C3 • 

0 499 





0 


0,541 

ATBL , 

DICE . 

0 503, 

0515, 

Q 3 1? ^ 

0539 



0558 

WRAP 

01E0-- • 

0 554 







0559 

NO WRAP 

OlEl 

0 552 






o 

0 56i 

THDSTR 

01E3 

0 529, 

0 582 




0 

o 









0 












. 


. . 






. . - . ' 


PRTCDR 
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date: Gl/27/99 


0 573 

SCHTHO 

OlEC , 

05 92 

0 574, 

.0 57 9 

G 593 

TOP 

0 201 , 

. 0569, 

G 59A 

THRDIT 

0202 / 

0 567, 

0587, 

0'591 

0611 

SCHORy 

.'020F 

0608 



0,61 A 

RETURN 

■ Q212 

0 610 

0 5*, 7, 

0558 

Q 61 5 

SCO ERR 

0213 

Q 512, 

0619 

RC 

0217 

0617 




PRTCDR 
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date: ul/27/99 


EXTERNA LS 


OFF. LINE , NAME , VALUE. REFERENCED AT LINE NUMBER 


0 0 08 

, SWAPON 

00C3 

.. 0 2 2h 


0 008 ' 

LOGIA 

GOOD 

• 0 2 33 


G 008 

SPASW 

0009 

•0 242 


Q0G9 

UNPIO 

0GD6 

. 0 2 40 

' 0'28 7 

0 0 09 

SWA PAR 

010 3 . 

•„02&1, 

0 0 0 9 

LOOP 

0107 

0290 


0010 

STL PV4 

OOEF 

0262 


0 012 

PARTBL 

OICF 

0 0 

0^*23, 0517, 0 541 

0 012 

BUSY 

0196 

0 160, 

0 452 

0 012 

LSTLOC 

0G61 

0131 


0012 

DIP 

020B 

..0 0 52, 

0073, 0607 

0012 

RPMASK 

OlFD 

0 589 


0013 

SCHERR 

018A 

0 4 41 



PRTCDR 
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DATE: Gl/27/99 


C.y 


ALPHABETICAL SORT OF SYMBOLS 

0396 ADISP 0026 AJOISP 0298. AREQXT 0A91 'ASWAPN: 0224 

Q16Q AV5 0164... AVAIL 0 0 90 BSY . . 0 BUSY ' . 0 Ul 2 

0302 CHKl 0 435 CHK2 0 h42 CHKUSE 0432 CKSWAP'G221 

0347' COD 0 348' COMPAQ 0 066 COMPAR 038u COMPRE'- 013 7 

0104 EXITA 0119 . FINE 0 052 FNDRRT • 0504 FOUND 052 8' 

0-^78 K65T12 00'06 LEN2 . 0 284 . LENGTH. . 0258. LEVEL 0214 

0008 LOOP ;'0 009. .L.PMASK . 0 026 ..LSTLQC.'- 0012. NOSWAR' 0315 

0058’ PARTBL ,.0012 , PC /’ 0 489 POINT . 0318'.. PP 0489 

0080' PROT . .0 351 ...PRSTAT' .:' 0 312- ■’ PRTCDR OO.j] 6^ PT ’ 0.489 

000 6 PTR ,0143 Q8IGR ■'0395 .RC . . 0619 ' .RDPTV4 4 . 020 7 
017 4 RETHO 0184 RETURN. 0 614 RPMASK, 0Q12 SA.VI 0143 

0013 SCHTHO 0 573 SCNO 0073 SCNl 0074 SH.IF1 0149 

0259 START2 '0285 STLPV4 0010 S WPAR 0009 SWAPON . 000 8 

0 027 TIME 0 029 TOCOMP,' '0183 TOP 0593 TOPBSY... C143 

0490 VPL 0 490 VPTR 0 490 VR 0490 VTEM 0490 

0026 

C) 


O 


ABIGR 
AV4A 
; .CE 

co: 

. EXIT. 
K55T10 
LOGIA ' 
PAG OMR 
PROGl 
PTMREL 
RE DERR 
SCHERR 
START 
THRDS 
VINO 
ZERO 


O 

O 

Q 

o 


O 

O 

O 

o 


o 


ATBL 

C54l . 

.. AVI..-: 

0121 

AV3 

013 4 

AV4 

014-.. 


CA 

0268 

CB 

.0280 

CC 

0 28 9 

3D 

.29. 

r"i 

CKUNP 

.0507 

CMPl 

0 3.9 2 

COA 

0 32 6 

CD3 

03-r2 

w 

CONTI 

0089 

DIP ' - '.' 

0012 

OIRCAL 

u 

ERR 



HERE 

0207 ■ 

I ■ 

OQ.OO.' 

..IMPROG 

UG7 8 

<8 5 COR 

u 0 u b 


LNTH 

, O'OSG 

LOCI ' 

0 42 3. 

LOG 2 

0 “2 5 

LOCATE 

u -I'ij 


NO.HRAP , 

055 9 

ONEBIT . 

0325 

OUTPV4 

0 0-7 

P1635Y 

L 511 


PQ 

0489 

PRA 

'0,357 

P.R6' 

u 3o 2 

PRO 

u ci O ^ 


PTCOR 

0049.. 

PTGQRl 

0.;0'.56 ■ 

.. RTCORE 

0 530 

, PTNALC 

L. 4 78 


REl 

0i9 5 

RE'L A ’ 

045 1 

R'El 6 ■ 

0 '-6 6 

. REL EA3 

. -r 4 b 


SAVQ 

0 40 0 

SCAN' 

GO.,63', 

. SOD ERR 

. 0 615 

5CHDRV 

■Gbil 

V-.' 

SHIF2 

015 9 

SPAS.W 

Q3,'"G''d , 

. SPC.EV4 

0 0 07 

.,'S:PCLGN' 

. 27-j 


TAGl 

C4l6 

THD 

00'3a' 

THDSTR 

U Sol 

THRDIT 

. 5 94 


TRYNXT 

0 519 

UNPIO 

0CG9 

■ UNPPRT' 

0G29' 

’ USE 

'0 1-28 


VTMP 

0 49 0 

WRAP ^ 

0558 

WRTOUT 

U 4 ^*^ 4 

XLOGlA 

0 233 

V-- 


o 


o 

o 

o 

o 

o 

o 

o 


o 



DCORE 


PAGE 


date: Oi/27/99 


r, " 

','000 1 
, 0002 ' ' 




00 0 3 




00 0 4 



i' ' ■ 

's*. ■ 

00 0 6 


'> 


. 00 0 7 




0 0 0 8 




00 09 



' 

' 0013 



‘ ) 

0014 




0016 


3f. 


0Q17 


■¥■ 


. 0018 




002 0 




0021 


if. 

•w''* 

00 22 


V 

o 

o 

0024- 
0 02 5 
0026 
002 7 
0028 
0029 
00 30 

0031 

0032 
0 033 
0Q34 
0 03 5 
0 0 '3 6' 





003 7 




0038 

00 05 
OOEA 
0 0 22 


1 


0 0B6 



00 3 9 

0 0 02 
0012 
G 0B5 


o 

00,40 

G 0 BF , 
0 oeB-.' 
GOBA' 



0041 

0 QF7 



NAM DCORE DECK.^ID M1.9, ■ MSOS 5.0 

MASS -STORAGE' OPERATING SYSTEM 'VERSION- 5-0 
SMALL SYSTEMS DIVISION, 'LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197b 


S U M M A R Y - 110 H 1.9 Q' a GO 1 . 

'O," H19 00002: 
M19G,uGl3 
M1900004 


SPAOE.ORIVER, DRIVES CORE ALLOCATOR MODULE 
ITO^.HASS STORAGE OPERATING. SYSTEM. VERSION-A.i 
SHALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1973 


THIS MODULE DRIVES THE CORE ALLOCATOR 
AN3 RELEASING SPACE. IT ALSO, CONTROLS 


IN ASSIGNING 
swapping;.. 


REVISED TO PERMIT USE BY REQUESTS FROM'ABOVt: DRCORE PRIORITY LEVEL 
TO AVOID DELAYING REQUESTS, ENTIRE DRIVER RUNS' AT THE PRIORITY 
LEVEL THAT'S IN THE PHSTAB. 


DRCORE LOOPS AT LEVEL = PRI FOR. 6 
DURING' SET AND CLEAR OF SWAP AREA 
WHERE KSIZE IS THESIZE OF 


^ KSIZE HILLISECS 
PROTECT BITS 
UNPROTECTED CORE / 10 OG 


1 M19u.'J O.G 6: 
'MlDTLIiOZ' 
-'Mi93Q JG8 
'M190'0aQ9 


H199;Ui0i J' 
Mi91D 01 h 

H190 u'OId 
M 1900 01 7 
M19GuulB 

M190GQ20 
Mi90G-j2i 
MigCu 022 


O 


00F6 
00 04 


ENT" IC0RE,T12,EG0RE,LEND 

ENT SWAPON 

ENT STLPV4, LOOP 

ENT OUTPUT, SPAGE4,NOG30 A, REL,SCH 

1 CARD DELETED-.' 

EXT RTNCOR,SWAPAR,PCORE . ' 

EXT UNPI0,SPASW,L0G2,REQALC,LVLSTR,ARtAC 
EXT SGHERR ENTRY POINT IN SCHEDULER 

EXT PTNALC 
EXT PTNREL 
EXT K65T12 

EXT SPCEV4,RDPTV4,0UT,PV4 

EXT PRTCOR , ^ . 

EXT IDLER IDLE LOOP IN SYSDAT 

EQU LU{5> ,ADISP{S£A),ZERO($22) ,AC0MPR($B6) 


EQU LPMSKiZ.) ,N ZERO ($12) ,AFNR($85) ,ANA BS ($.8F ) 


EQU ,AV0LA {SB'S), AVQlRTSSA) , 

EQU LO.CORE ($F.7) ,H'IC0RE.{$F6) ,;TIM£ (4) 


^^MSOS 4, 
^^MSOS 


"'4 34-^'? 
^^MSOS: 
^^.MSOS 

^^MS'OS' 
♦-^MSOS 
^^MSOS 4 , 


Migoa 

UM19G0 
M 19 G u 
M19G0 
M19'-.u 
M1900 
.Higo.u 
0M1900 
0M19au 
0H190& 
A;. ''0'H19 J 0 
L..-0M'1900 
i<^-Hl90 0 
H19G G 


4 

,4 

4 . 


j 2 p 

G 2 6 
027 
02 8 
-329 
a 3,0. . 

031 

032 
0.3 3, 

4- 

UO 4. 

035 

036 
03 7 
C38 


M1900039 

Mi90-e’:'4,G 

M130Qy41 


o 


L..' 



o 

o 


' L-' 


o 


o 

Q 

o 


o 


O 

O 

O 


O 


O 
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(' ■' 


0 u',42 


0 u Q1 


EQU : C3RELU( 1) 

CORE ALLOCATOR LOGICAL UNIT 


W1900042 ■ 

r\ 

o ■ 

00ii3 


00 05 


EQU . ELU(5), 


,M,L90fl.'Q.4;3 ' 



00 4 


0 0 02 


EQU . PT{ 2) 



.M 190,0 04 4 



0045 



* 


SWAPS. SET TO -1 WHEN 


■M192fl045- 


o 

0046 





NO TIMER PACKAGE USED. 


M19 j 0 U4b 

, ('"■) 

0 0 47 


00 89 ’ 


EQU REQXTC5B9) 



- H190Q047. 



00 48 


0 023 


EQU 0NEBIT($23) 



M 19G 0 0^8 


o 

00 5 0 



» E N 

TRY FOR A L 

LOGATI ON 


M190 u u5 0 

; O 

o 

0052, 

P 00,0 0 

FFFF 

WAIT 

MUM -0 

TOP OF WAIT THREAD 


'’^.^.MSGS , 4 '. QM 190 0 05 2 

o 


0053 

POOOi. 

FFFF 

BOTTOM 

NUM -0 



"-^MSOS 4.0M190u053 



0054 

P0002 

40FF ' 

I CO RE 

STQ- I 



^^MSOS 4.1*^M19Q'0054 


o 

005 5 





38 CARDS DELLTEO 


' M 190 0 05 5 

o 

005 i2, 

POO 03 

5405 

CORl 

RTJ- (AF.NR) 

GET NEXT REQUEST FOR SPACE 


M19j005o 



0057 

PGOGh 

18 49 


JMP^ WAIT2 



Mig: 0 05 7 



0058 

PQQO-5 

€106 

TRY 

LOQ- 6,1- 

GET LOC. OF REQUEST 


Ml9 j u u58 


r'', 

Cu.59 

P00Q6 

C622 


LDA- (ZERO),Q 

REQUEST 


M 19 0 C J 5 9 



006 0 

POOG7 

OF 49 


ARS 9 



M193GJdC 

•w.-' 


0061 

P0008 

AO 07 


AND- LPMSK+5 

ISOLATE CODE 


M19wLj)jQi 



0052 

PQ009' 

09F1 


IMA -14 



M193GoB2, 


0 

D063 

PGQGA 

0113 


SAN NOTMOT 

NO MOTION 


H 19 Q 0,0 6 3 

C) 

0 0 6 4 

POOOB 

61 OA 


STA- 10,1 

ZERO FIRST , 


M19pu064 


0 0 5,5 

PODOC 

610B 


STA- 11,1 

LAST 


M193j055 



OD66 

PGOOD^ 

1832 


JMP# A SWAP 0-2 

GO COMPLETE, REQUEST , 


M19j0066 , 


O, 

0057 


OQOE .P 

nothot' 

EQU NOTMOT(-^) . 



M190GU67 ; ' '- 

o 

0068 

POQOE 

4863 . 


STQ^ TEMP 

AND GET NO. OF WORDS TO Q. , 


Ml9aa068„- 


0069 

PflOOF 

54BF ' 


RTJ- (ANABS) 



M 19 J U jB 9 



007'G 

POO 10 

CC31 


LOA^ (ASWAPD) 



" • M19JQj7C 


O' ' 

00 71 

POOll 

0104 ■ 


SAZ OKQ-^-1 

SKIP IF NOT SWAPPED 


' -^MSCS,',,4. iLMi9D0 071 

O 


,0072 

PD012 

CC5F 


LDA^ (TEMP) 



.‘Ml93u072, ' 


0C73 

P0G13 

A006 


AND- LPMSK+4 



H19;0 073 



00 7 4 

PQG14 

0 9FG 


INA -3 



Mi9JuG74 


o 

007 5 

PO 015 

a 131 


SAM NOTOK-’^-l 

SKIP IF COMPLETION PRIORITY LT 

3 

^^-MSGS 4.uMi90u0?'5 

O 

00'7 6 

P0016 

180D 

OKQ 

JMP4 OKI 

GO ALLOCAT.E 


4^MS0S , 4.. 3M 19 0.0 076 , 


0 0 77 

P0017 

C85A 

NOTOK 

LDA^ TEMP 

POINTER TO NEW REQUEST ' 


^^HSO’S-.4.0.Hig0 0 077''- 



0u7.8- 

P0Q18 

E8E8 

, ^ . 

LOQ^ BOTTOM 

POINTER TO LAST REQUEST ON THREAD 

“^.^MSOS uMl90 0-a.78 - 


O, ; 

0079 

PGG19 

ODOO 

, 

INQ, 0 



: -'^MSOS G;Mi9QO 079- 


00 8 0^^ 

pool A 

0141 


SQZ 1 

NOTHING ON, THREAD- 


^-MSGS ,4-. O.MigOTOa'O'",' 



008,1. 

POOIB- 

6202 


STA- PT,Q 

POINTER, ■. TO- NEW REQ. iN'iTHO. OF 

last, ^^MSOS."4.OM190a,a8,,l.'> 



OQ82 

POOIC 

0151 ■ 

^ . 

SQN 1 



■ *^HSaS •',4.-uMl'90O6"82 


.'*~S 

0083 

POOID 

68E2 


STA^ WAIT 

ONLY ENTRY ON THREAD, SO BOTH TOP- 

■ .-^MSOS '4. OMigOaOSS ' 

o 

0084 

poaiE 

58 E2 


STA^ BOTTOM 

BOTTOM OF THREAD . 


-■ ^^M.SOS 4. 0M19u,0 084- 


008 5 

POOiF 

0822 


TRA Q 



■ .-4MS0S ' 4. uMl9au085 



0086 

poaao 

0 8 0 4 


SET A 

MARK END OF - THREAD.' - 


’ »^HSOS'^ 4.0H190 06a6 


o' 

■ 0G87 

P0 021 

62D2 


STA- PT,Q 

, IN THREAD OF NEW REQ. 


^^HSGS -4. 0M19uQ087 

' o 

008 8 

P0022 

18E0 


JMP^ CORl 

GO CHECK FOR ANOTHER REQUEST 


»^MSOS '4. 0N190 0Q8 8 


0089 





3 CARDS DELETED 


Mi930089 



009 0 

P0023 

CC4E 

OKI 

LDA^' (TEMP) 

GET 1ST WORD OF PAR. LIST 


M 19 00 -390 


c : 

00,91 

P0024 

OF 44 


ARS 4 

AND UNPACK REQUEST PRIORITY 


Ml9u0391 

- o 

o 









o 

r") 

V.-- 







. 


o 
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00 92 

PDQ25 

AQ 06 


AND- LPMSK+4 


0093 

P0Q26 

GFFO 


LLS 16 


009 A 

P0027 

p4 0 0 

X 

RTJ REQALC 



P0028 

7FFF 

X 



0095 




Q = START 

1. / 

0096 




Q = 0 IF 


' 009 7 



if 

Q = -1 IF 


00,98 

PC029 

08 0 0 


NOP 0 

O 

. 00,9 9' 

P002A 

Q177 


SQM JNOGOT-^-1 

0100. 

PQ02B 

.0153 


SQN ONE-»-l 


0101 

P0 0 2C. 

EQE9 


LDQ- $E9 


010 2 

POO 2D: 

C20A 


LOA- 10, Q 


0103 

P002E' 

8208 


-ADD- 11, Q 


0104 

PG02F 

0113 


SAN JNOGOT+1 


0105 

P0030 

cell 


LOA^ (ASWAPD) 


010 6 

P0031 

0111 


SAN 1 


010 7 

P0032 

1827 

JNOGOT 

JMP^ NOGOT 


010 8 
. 0109 

P0033 

FG32 

if 

ADG- ONEBITfl5 
LOA^ (TEMP) 


- 0110. 

P0034 

CC3D 

■ ONE 


. Dill 

P0035- 

AOIB 


AND- NZERO+9 

0112 

PQ036 

0108 


SAZ DIRCAL---1 


' 0113 

PO 037 

0814 


TRQ A 


0114 

P0038 

E83 9 


LDQ=f TEMP 

r'\ 

. 0115 

PQ039 

6203 


STA- 3,Q 

0116 

P003A 

E8 00 


LDQ XCORE 



PO 03B 

00 80 




0117 

P0Q3G 

AOIF 


AND- NZERO+13 

O : 

0118 

P003D 

6209 


STA- 9,Q 

0119 

P0 03E 

40FF 


STQ- I 


0120 

P003F 

5486 


RTJ- (ACOMPR) 


0121 

P0040 

18C2 


JMP^ CORl 

O 

0122 

P0041 

0087 

P'.ASWAPD 

ADC SPACE4+2 


0124 

P0042 

0178 

OIRCAL 

SQM , DIRl+1-^-1 


0125 

P0043 

0814 


TRQ- A 

I 1 ‘ 

012 6 

P0044 

E820 


LOQ^ TEMP 

1 

0127 

POO 4.5 

6201 

> 

STA- i,Q 


0128 

P0C46 

FD21 


ADG- NZERO+15 


012-9 

P004-7 

4803 


STQ^ DIRl 

O ' 

fll30-' 

P0O48 

0 822 


TRA Q 

01r31 

•PO'0^,9 

.54F4 


RTJ- ($F4) 


0132 

P0D,-4A- 

1 0 0 0 Q 

OIRi 

HUM ■ 0 - 


01-33 

P004B 

'E870 


LOQ^' XCORE 

o 

0134 

P004C 

1885 


JMP^ ICORE 


013;&, 



if 


O'"' 

, 0137 

P 00-40? 

,€8B2 

WAIT2 

LDQ- WAIT 

0138.- 

■P004E 

700 00 


INQ 0 


' 013.9,^ 

P0 04F 

'0 1 S3 

' 

SQN WAITS 


■ "0148' 

P0050 

: 0804 


SET A 

o 

0141 

P0Q51 

68AF 


STA^ BOTTOM 


GO TO ALLOCATE CORE SPACE 

or ALLOCATEU AREA, IF REQUEST WAS SUCCESSFUL , 

SUFFICIENT CORE CAN NEVER BE AVAILABLE 

THE AVAILABLE CORE IS INSUFFICIENT AT PRESENT 

aj. af. a/, af. if. jf.af a/, a/, jf. if. ^ ^ if. if. a), if. 

ALLOCATION WAS SUCCESSFUL 
IF UNPROTECTED IN PARTI 

OR SWAPS INHIBITED , ' • ^ 

IN PARTO 

REQUEST IMPOSSIBLE 

' IF SWAP IS IN EFFECT, REQUEST IS IMPOSSIBLE ■■ 
UNSUCCESSFUL ALLOCATION 

IF ALLOCATION IS IMPOSSIBLE, SET Q15 =1 
AND COMPLETE REQUEST WITH ERROR FIELD SET 


SKIP. IF DIRECTORY CALL 

STORE ORIGIN OF ALLOCATED 
SPACE IN CALL 


STORE ORIGIN IN PHYSTE FOR 
USE BY COMPRQ , 

GO GET NEXT REQUEST 

ADDR. OF THREAD. TO :RETURN- SWAPPED ■ CORE 
IF CORE NOT ALLOCATED, IGNORE REQUEST 


M19uua92 
M193S 093 
Mi9^ j 09-r 


STORE ORIGIN AS COMP. ADDRESS 


START I/O . 

RESTORE PHYSTB ADDRESS 
GO GET NEXT ONE 


M 19 - 
119 0 
M 193 
M 19 G 
M 190 
M 19 0 
H 19 G 
M 19 u 
M190 
M 19 3 
Miga 
M19Q 
M 193 
M 19 0 
M 19 j 
M190 
H 19 G 
M19D 
M 19 u 
Mi 90 
M 190 
Mi 90 


0,09 5 
u u9b 
0 09 7 
0 098 
0 099 
010 0 
0101 
01Q2 
QIQ'3 
0104 
0 lu p 
ulO'b 
0107 
G108 
0109 
u 11 0- ' 
0111 
0112 
0113 
0,1 14 

0115 

0116 


M 19 DO 117 
M IB G O 118 
M 19 0.0 11 9 
M 190 0120 
Ml93,0i21 
M190'0122 


^^MSOS 


Ml-9'. 

■ .M192' 
’. H19S 

. ■ M193, 
: M19G. 

M190 
'■ '• M19d 

■ M190 

Migo 

'■'.M190 

ii^^Migo 


0 IEh' 
D 12 5 
012 6 ' 
0127 
012 6 ' 
0129 
ul3G 
0 l31 
C132 
013 3 
013 a 


MOVE THE WAIT THR.EAD BACK TO CORE LU "THREAD; 


NOTHING LEFT ON THREAD 
SET BOTH THD POINTERS TO -0 


»-MSOS 

^^MSOS 


. M190.013 6 
. M 190 013 7. 
M 190 013 8. 
H19GQ139 
0Hl9;Ou IaO 
0M190 0l4l 


o 

o 

o 

c 

c.) 

r\ 

C) 

/-T 

Sv.- 

o 

o 

o 


o 


o 


o 
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,0142 PQ052 14EA ' . JMP-'($EA) AMD EXIT 

0143 P0053 C202 WAITS LDA- PT,Q POINTER TO. NEXT. ENTRY ON THD. 

0144 P0054 b8AB STAf WAIT UPDATE TOP OF THD.. . 

014 5 PQ.Q55 Q 814 TRQ A 

0146 PQ056 5C13 RTJ=»^ (GTHDIT) , MOVE •; TO.: CORE LU THD. 

01h7 P0057 18F5' JMP^ HAIT2 REPEAT UNTIL WAIT THREAD IS EMPTY 

0148 P0058 7FFF X XLOG2 ADC LOG2 


015 0. ^ THE FOLLOWING 13 ENTERREO ON UN-SUCCESSFUL ALLOCATION 

ul52 P0059 C862 NOGOT LDA^ XCORE 

0153 P005A 60FF STA- I RESTORE PHYSTB ADDRESS 

0154 P005B CC16 LOA-^ (TEMP) IF COMPLETION PRIORITY IS 

0155’ P005G. ADQ6 ANO- LPMSK+4 NOT GREATER THAN 2, 

015 6'PG05D 09FC INA -3- . DONOT TRY TO SWAP. 

0157 P005E 0138 SAM NOGl-^-i 

0158 P005F E0E9 LDQ-"$,E9 IF SWAP INHIBITED, DO NOT 

0159 P006QC2GA LDA-10,Q ATTEMPT SWAP, RE-THREAD 

016G , P0061 820B AOO-. 11,Q 

0151 P.D062 0101 SAZ ; 1, REQUEST 

0162 PCQ63 1804 JHP* NOGl 

0153 P0064C858 LDA^ SWAPON 


l' '} 

016h 

P0065 

0111 

SAN 

1 



0165 

P0 066 

180G 

JHP^ 

N0G2 

GO TO NOG2 IF NOT SWAPPED 


0166 

P0067 

C80A NOGl 

LDA» 

TEMP 



0167 

P0068 

5 4 0 0 

RTJ + 

THRDIT 


j' ’v 


P0Q69 

0149 P 





0168 


0 069 P. GTHDIT 

■ EQU , 

GTHDITT^r*l) 



0169 

PO 06A 

OCOl 

. ENQ: 

CORELU 

; 


017 0 

P006B 

CEEC 

LOA« 

(XL0G2I ,Q 



0171 

P006C 

9805 

-sue^ 

TEMP 


1 

0172 

P006D 

0101 . 

, SAZ 

1 

IF TOP OF THREAD CHANGED 


0173 

P006E 

18 94 , 

JMP^. 

CORl 

TRY AGAIN ' ' 


Q17h 

P006F 

6105 . ■ 

STA- 

£LU,I 

CLEAR- SPACDR BUSY FLAG 

r'\ 

0175 

P007Q 

14EA V 

JMP- 

(ADISP) 



0176 

poa7i 

0000 TEMP 

ADC 

0 

ADDRESS OF CURRENT REQUEST 

o 

D179 

P0072 

C1C4 NOG2 

. LDA- 

TIME, I 

IF'TNTERVAL SINGE'. last SWAP 


, G180 

P0073 

0131 

SAM 

N054-*-l 

HAS PASSED, SKIP TO NOG4 


018 i- 

POO 74. 

18F2 


NOGl 



0182- 

POO 7 5’ 

CC4A N0G4 

-LDA^. 

TXUNPIO) 

SKIP ' IF''NO''uMPRGTE.CT£D' I/O' 


0183 

P0 076 

S1G2 

SAZ'. 

NOG5--^-l . 


0164 

P0077 

60 49 

STA» 

(XSPASM) 

SET WATTING TO SWAP SWITCH 

o 

018 5 

P0078 

18EE 

JMP'^ 

NOGl 



018 7 

P0079 

C0F6 N0G5 

LDA- 

HICORE 

SET UP SWAP WRITE BLOCK 

o 

0188 

PQ07A 

9QF7 

SU8- 

LOCORE 

SIZE AND START 


o 


^-^MSO'S fr . uM;i90ClH2 
■^^■MSOS 4. QM19uQi43 
^^-HSOS i*.0Mig00i44 
^^MSOS 4.UM19QQ145 
-^MSOS '4 . OHlBOOmb 
M190 0 147 
M190D148 


Ml9u0i50 

M 190 0 15 2 
.M19G0153 
. M190 0’15 4 

. M 19 0 0T55 
M 19 j 015 6 
, , , M192.0157 

'^-MSOS 4..GMi90Q158 
^^MSOS 4. uHll9fl015? 

Mig.yUioC 

’^^MSOS 4. 0M19G0ibl ‘ 
M190 0162 
H 19 00 16 3 
M 1 9 0 0 1 6 
' ' H190C165' 

M190 0156 

^YHSOS,.h. OM 190 016 7 

^^MSOS ;.4. GM19G0168 
M19 0 0169 
Hi.9.Ga-;i7..Q ' 
M190U171' 
M190Q.172 
M190C17'3 
M19'Q"0’17 4 
' ■ M 19u 0 17 y ' 
M19QQ176 


'.H 19 0 0.1 7 9 
M'190Q18j 
.H i90.018l 
M1900i82 
M190.0.,18-3 
M193:0“18 4 
M19:0185 


O 

O 

O 

o 

n 

w 

O 

o 

o 

o 

o 

o 

o 

o 


M190D187 

Higouiaa 
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PO 07B 
P007C ■ 
P007D 
PG07E.. 
■P0D7F. 
PGOa^Q- 
'P0U81 
■P0 082 
PQ083 
PQflSA 
■P0085 ■ 
POO 86 
P0087 
P0088 
P0089 
>POa 8A 


Q9FE 
■6809 
C0F7 
. 09 01 
68 0 7 
5964 
4CF0 
0098 
OQ 00 
08C2 
■-•000 0 
•00 0 0 
•00 00 
7FFF 
5302 
18DC 


OUTPJT 


INA -i 
STA« LENGTH 
LDA- LOCORE 
INA ■ 1 
■STA^ START 
RTJ- ($F4) 
ADC $4CF0 
ADC NOG20 
NUM Q,$8G2 


LENGTH 

START 


NUM 

NUM 

NUM : 

ADC; 

RTJ’^ 

JMP^ 


SWAPAR 

STLPV4 

NOGl 


PART 1 FWRITE 


P008B 

PO 08C 

P008D 

PQ08E 

P0 08F 

P0090: 

PuQ91 

•P0092.. 

PGQ93’ 

PQ094- 

P0095 

PQ096 

P0097 


0800 

OAOO 

6C33 

C83A 

6834 

C839 

0114 

0837 

5hF4 

5202 

OOCl 

D826 

1CF3 


STLPVi* 


TURNON 


NOP 

ENA 

STA4 

LDA*^ 

STA’f 

LDA» 

SAN 

RAO*^ 

RTJ- 

VFD 

ADC 

RAC^ 

JMP^ 


(XSPASW) 

LOOPl 

LOOP SET UP AND' SCHEDULE LEVEL 

LOOPFG IF LOOP NEVER RAN 

TURNON-^-1 DO NOT RESCHEDULE IT,- 

LOOPFG SET FLAG -7 

($F4) 2 LOOP SO AS TO LOCK OUT 

Nl/O^Nl/lfNB/g^Nl/O^N^r/OtNit/Z JOB PROCESSING 
LOOPEN 

SWAPON TURN ON SWAP INDICATOR , 

(STLPV4) 


TELL PROTECT PROCESSOR 
SWAP IS NOT WAITING. 


THIS ROUTINE 


;nterreo 


COMPLETION 


SWAP 


P0Q98 ' 

PD 099 

PQ09A 

P009B 

P0 09G’’ 

P009D 

P009E 

P0Q9F 

POOAO' 

PO OAT 

P00A2- 

P00A3- 

P00A4- 

■P00A5' 

P00A6 

P00A7 


■-C0F6 
09FE 
6823 
■EQF7 
.^ODOl 
‘C400 
7FFF 
4CFE 
■ 661E 
'■0 814 
09 02 
- 6201 
C8E0 
6622 
5400 
7FFF 


■NOG20 


N0G6 


LDA- 

INA 

STA^ 

LDO- 

INQ 

LDA4 

STQ^; 
STA^ 
IRQ 
INA 
STA- 
LDA^ 
-STA- 
RT J+ 


HICORE 

-1 

LEND 

LOCORE 

1 

LVLSTR 

(NDG6+1 ) 
TEMPL 
A 
2 

i»a 

LENGTH 
(ZERO) , 
RTNCOR 


UPDATE TO-P OF ALL OCATABLE AREA 


UPDATE START OF LEVEL ZERO 
PGMS IN LVLSTR TABLE 


SET UP PSEUDO THREAD FOR ALLOCATOR 


Mi9dCi89 
M190 013 0 
M1900191 
H1900132 
M 190 0 19 3 
,Ml9jul94 
»4MS0S ' 4 ., OH 19 0 0 19 5 
M19UQ196 
M190 0197 


'■-^MSOS 4. 
^»MSOS 4 . 
^^MSOS 
»^M30S 4. 
-^MSOS 4. 


’^^^?-MSOS4,. 


^^HSOS 4. 


Mi9u0l98 
M19Q0199 
Mi9Q 02^ 0 
M19Q0 201 
0H1900202 
uM 19-0 0 20 3 
aM19,0 0 20 4 
0Mi90'020-5 
0M190 02U'6 
H190 020 7 
Ml9li'u2a8 
M 190-0 20 9 
M19u 0 210 
M190021i 


H190u,212 
H190 0 213 
M 19 2 0 214 
mi90Q215 
Mi9002l6 
M 190 0 217 
;M19] 0 218 


M 19 J 0 221 

M 19 00 22 3 
M190 0 22 4 
,Hi9a;a,-22& 

• ■ ■H.l9-OiO,Z26. 

• 'H 19 0 0,^2 7 
- M 190 0228' 

M190,p,229- 
M 19 j 0.23 0 
M19Q 0.231 
H 19 0 0 232 
H 190 0233 
; M 19 '0 0 23 
H190 0235 
M190 0236 


C 

O 

o 

(■'■) 

4 ,' 

r\ 

— • 

O 

c 

c 

o 

o 

Q: 

o 


o 


o 


1_ 
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0237 

P00A8 

E0F6 



LDQ- 

HICORE 



M19u 0 23 7 


V 

0238 

PQQAg 

C80B 



LDA^ 

LENGTH 



M19U.Q238 

E.j 


0239 

POOAA 

ODFE 


N0G21 

INQ 

-1 

SET PROTECT BITS FOR THE AREA 


,M1900239 



0240 

PQOAB 

06 00 



SPB 

0 



’ M19aG240 


O ' 

0241; 

■POOAC 

G9FE 



INA - 

-1 



Ml90lj2-+1 

f") 

0242 

PO uAD 

0 101 



SAZ 

NOG22-^-l 



M1900242 

E-.-’ 


0243 

POOAE 

18FB 



JMP^ 

N0G21 



M19 0 0 24,3 



. 0244^ 

■POOAF 

E80C 


N0G22 

LDQ^^ 

XCORE 

, 1 ■, , . , 


M190 0244 


O ' 

^ 0245 

PGOBO 

40FF 



STQ- 

I 



M19Q0245 

• r'') 

0245 

•PflOBl 

C8D3 



LDA^ 

LENGTH 

SET UP SPACE REQUEST TO 


M 19 -3 0 246 

L..,' 


0247 

PO 0B2- 

09FD 



INA 

-2 

GET CORE BACK + PUT 


Mi90,C2H7 



0248 

POO B3 

6806 



STA^ 

SPACEl 

IT- ON WAIT THREAD 


Ml9a0248 


O.';, 

0249 

P0DB4 

54 F4 



RTJ- 

($F4) 

. SPACE REQUEST 


H190C249 

. r\ 

0250 

P00B5 

5400 


SPACE4 

VFD 

Nl/Q,Nl/l,N5/.li] ,N1/Q,N6/D 


H19GD25G 

E.--' 


0251 

Pfl086 

OOCA 

P 

ADC 

N0G30,, 


^,-»^MS05-. ijMl90 Q251 




POOB7. 

0000 









O' 


P00B8 

0 0 00 








o 

0252 

P00B9 

OQOQ 


SPACE! 

MUM 

0 

' SIZE 


M193C252 


O, 

0253 

POOBA 

18 69 



JMP^ 

RELl 

RESTART DRIVER IF NOT BUSY 


M19-ju253 


■- 0255 . 

POOBB' 

'7FFF 

X 

XGORE 

ADC . 

PCORE 

ZERO-'- WHEN - NOT; OS WAR RED - 


M 1.9-3 025 5 . 



025.6^ 

■PG;Q.BC- 

,00013 


SWA PON 

NUM 

0 . 


M1.90.,02-5d, 



0257 

POOBD'-' 

0 0 00 


LEND 

ADC 

0 . 

tWA OF ALL OCATABLE.-;-, STUFFED . 

BY SPACE 

M190.G: 2'5 7. 

0 

1 J 

■ 025.8 

POOBE 

■0 0 01 


TEMPL 

BSS 

TEMPL 

TEMPORAR.Y HOLD . FOR IVLSTR " 


'■M190 0 258'. 


.. 025-9- 

POOBF." 

7FFF 

X 

XUNPIO 

ADC 

UNFIO 

UNPROTECTED I70 REQUEST COUNT 

ADR ' 

M19302p9 



■ 0250 

POOCO-. 

■7FFF 

X 

XSPASW 

ADC 

SPASW 

SWAP. WAITING SWITCH ADR 


M193 0260, 


O 

,■ 0251 

POOCi 

0 8 44 


LOOPEN 

CLR 

A 



Mig:.G 261 

o 

■0262 

P0DC2 

■6807 



STA^ 

LOOPFG 



■ M19G02o2 ' 


- 0253 

P00C3 

C B 0 0 


LOOP 

NOP 

0 ■ 


^^MSOS 

4.i'r-^Hi9J0 253 



0264 

P00C4 

QBQQ 



NOP 

0 

MATCH CYCLES IN LEVEL -1 LOOP 

. s-^MSOS 

<..15^^(^190 0264 


O : 

■ 0265 

PG0C5- 

5400 

X 


RTJ+ 

IDLER 

USE SYSOAT IDLE LOOP ‘ 

^-HSOS • 

- . 1^ -^M19u 0 265 

: O 


POOCo 

7FFF 

X 








02.5 6 

P00C7 

18FB 



JMP^^ 

LOOP 



. i ^ ^M 19u G 2b o- 



0267 

P00C8 

0800 


LOOPl 

NOP 

0 


■’^^MSOS.' 

4.1«^^M19uD2q7' 



0258 

PO 0C9 

0 00 0 


LOOPFG 

NUM 

0 

FLAG TO PREVENT MORE THAN ONE 

LEVEL 2 LOOP SCKM1900256 

; O 

o 

0270 






ENTER HERE WHEN" SWAPPED 


Mi90u27Q 

• C 

0271 




* 


SPACE BECOMES 

AVAILABLE AGAIN 


M19GC271 


0273 

PQOCA 

C8BA 


NOG30 

LDA^ 

LENGTH 

STUFF PARAMTERS 

^^^^f1S0S4. UMi90Q2-7'3 


o 

0274 

POOCB 

6808 



STA^ 

LGTH 


^^^MSOSh. jMigj G27 h 

O 

0275 

POOCC 

C8B9 



LOA^ 

START 


^^.«HS034. uM19uG27 5 


0275 

POOCO 

6007 



STA^ 

STRT 


QM190 0276 



027 7 




* 



^ ^ ^ HS 

OS4. uH19G,G27 7 


/"''v 

G278 

PGOCE 

54F4 



RTJ- 

($F4) 

READ' SWAPPED AREA BACK IN 

^^^^MS0S4. UM1900278 

■ r~) 


0279 

POQCF 

48 00 


N0G3G A 

VF.O 

Nl/0 ,N1/1 »N5/ 

4,Nl/0 ,Ni*/.0 ,N4/0 . . 

=*‘»^MS0S4 . UH193 0279 



028 0 

POQDO' 

0008 

P 


ADC ■ 

N0G33 



M19G u 28U 



0281 

POODl 

0 0 00 



NUM 

0 



M19G0281 


o 

o 

o 

0282 

P0002 

08C2 



NUM 

$8C2 



H19C C282 

O 











• o 

*v,.« 
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C283 

028-+ 

0285. 

0286 

028 7 
0288 
0 28 9' 
0 29.0. 

0291 

0292 
0293'. 

029 4;.' 
0295 
G'29 6 ' 
029 7 
029 8 

0299 

0300 

0301 

0302 
• 0303 
ti 3 U "T 
030-5 
03D6 


030 8 

0313' 

0311 
0 312 

0313 

0314 

031 5 
0316 
Q317 

0318 

0319 
0 32 0 

0321 

0322 
0-32 3 

032 4“ 

0325 

0326 
0 32 7 

0328 

0329 
0 3 30' 
0331 


P00D3, 

POOD 4. 

POOD 5; 

P00D6 

PQQD7 

P00D8' 

POOD9 

POODA 

POODB 

POO DC. 

POODO. 

POOOE 

POOOF 

POOEQ 

PODEl 

Pflfl.E2 

POOE-3' 

P00E4' 

P00E5 

P00E6 

POOE7 

PQ0E8 

P0QE9 

PQQEA 


■PflOEB 
POOEC 
POOED 
POOEE 
- POOEF 
POOFO 
POOFl 
PO 0F2 
P00F3 
P00F4 
POOFS' 
‘P0GF6 
■.PQ0F7 
.•P.0QF8.' 
.-R00F9 
■:PQOFA 
;.POOFB 
'P.OOFC 
. POOFD 
^-POGFE 
.•PflOFF 
POiOO 
PQIOI 


0 0 00 

LGTH 

ADC 

fl 

0000 

STRT 

ADC 

0 

0000 


ADC 

0 

00 88 X. 


ADC - 

SWAPAR 

14EA 

AJOISP 

JMP- 

(ADISP) 

C8FE . 

N0G33 

LDA.f 

AJDISP 

68E9 


STA^ 

LOOP 

C8E3 


LOA^ 

TEMPL 

6CC2 


STA» 

(NOG6 + 1 

CO F7 


LOA- 

LOCORE 

68DF 


STA-^ 

•LEND 

E8DC 


LDQ* 

XCORE 

C2QO 


LDA- 

13, Q 

6204 


STA- 

TIME,Q 

E0F6 . 


LDQ- 

HICORE 

C8A2 


LDA^ 

LENGTH 

■ODFE 

N0G32 

INQ 

-1 

0700... 


CPB 

0 

Q9FE .. 


INA 

-1 

0101 •' 


SAZ 

NOG35-^ 

18FB .■ 


JMP». 

NOG32 

-0500 

NOG35 

IIN 

0 

68D2 


STA^ 

SWAPON 

1839 


JMP^ 

RELl 


* . THI 

S IS 

ENTERRED 

.C1C8 

T12 

LDA- 

8,1 

-0132 


SAN 

RlA-’^-l 


0103 
D1 03 
E105 
C622 
A023 
0102 
COEA 
6103 
C622 
AO 31 
0102 
1400 
7FFF 
C106 
012C 
C622 
AQ2B 
■0115 
cl 06 

coil 

0 8B2 


RIA 


R1 


Ril 


RAO- 

RAO- 

LDQ- 

LDA- 

AND- 

SAZ 

LDA- 

STA- 

LDA- 

ANO- 

SAZ 

JMP. 

LOA- 

SAP 

LOA- 

ANO- 

SAN 

LOQ- 

LOA- 

LAQ 


3,1 

3.1 

5.1 

(ZERO) , Q 
$23 

RX-^-± 

ADISP 

3.1 

(ZERO) , Q 
ONEBIT+14 
Rll-^-1 
K85T12 

■ 6,1 

R29-^-l 
(ZERO) ,Q 
ZERO+9 
R2-^-l 

6.1 

NZERO-1 

Q 


MSB 

LSB 


TURN OFF LEVEL 2 LOOP 
RESTORE LVLSTR 

RESTORE END OF ALL0GATA8LE CORE 

DELAY TIME ' ' 

RESET TIME SINCE LAST SWAP 

CLEAR PROTECT BITS IN;TH£ AREA^ 


TURN OFF SWAP'IMDICATOR 
IF DRIVER NOT RUNNING, RESTART IT 


^^^MSOSsf .■uMi9 j 0 283 
^■f,^MSOS‘4. uM 190 0 23 4 
^-^•MSOSt. UM19-- 0285 
’^^^MSOS-r. QM1900286 
• M190Q287 

M190G286 
M 190 0 28 9 
. M190 0 290 

M190 0 291 
Mi,93 0 232 
M190C293 
M1900294 
M1900295 
M190C296 
M 190 0297 
M1900298 
: M19J0 299 
’ Ml90 L 30 u 
• ' M19D0301 
M 190 0 30 2 
M 19 0 0 3 0 3 
' ’ Mi9003Q';r 

M19j 0 30'5 
H 190 0 30 6 


FROM RELEASE REQUESTS 


SKIP IF INDIRECT REQUEST ' 
UPDATE RETURN FOR DIRECT CALL 


CHECK BIT 0 (R) 

OF FIRST WORD OF REQUEST 
CHECK RETURN INDICATOR. 

IF NOT ZERO 

RETURN TO ADR OF DISPATCHER 

CHECK THE D PARAMETER OF THE 

TO DETERMINE WHICH AREA TO RELEASE 
SKIP IF- PART 0 RELEASE REQUEST 
GO RELEASE PART 1. AR.£AS„r; 

TRANSLATE RETURN PARAMETERS 


H190 0 308 

' M1900310 
^^MSOS ,4,.aMl9.00311 
■ M19QD,3i2 
Mi9.a0 313 
M193 0 314 
H 190 u 315 
M19 j 0316 
M19uu317 
M193J313, 
M19 jG 319 

RHQUEST^.^MSOS 4.uM19.032u 

0M19a0321 
u H 19 3 C 3 2 2 
UM19G0 32 3 


^^MSOS 

^^MSOS 

’^MSOS 


MASK 

SAVE 


INDIRECT 
IN Q-REG 


BIT FROM 


PARAMETER 


^^MSOS ,-4. 


^^MSOS 


OiH'19'Q,0 32 4 
H 190 0 32 5 
M1900 326 
H190C327 
M190Q'328 
GM190 0329 
MIBO'U 33u 
M 19 DO 331 


DCORE 
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C) 

o 

O' 

o 

o 




o 

o 

(D 

O 

r^, 

‘w’ 

{ I 


' 0332 
»C333 
033^ 

0335 

0336 
0 33,7 
0338 
0 33 9' 
03Afi„ 

03A1 

0342 
0 3 4 3 

0344 

0345 

0346 

0347 

0343 
0349 
Q350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 


P0102 

R0:i0 3. 

P01C,4, 

P0105 

P.Q 10 6 

P..0107, 

PO 108 

P01C9 

PQIO'A 

POlOB 

POIGC 

POIOD 

P016E 

POIOF. 

PQllO. 

Pfllll 

PG112 

P0 113 

PQ114 

poll 5 

PQ116 

P0117 

P0118 

P0il9 

POllA 

POllB 

POllC 

PQllD . 

POllE' 

POUF 

P0120 


C622 
1805 
0 8 1-4 : 
AO 11 
8106 
AOll 
09FO 
0822, 
90 0 0 
7FFF 
013E 
0814 
8622 
0 500 
98G0 
■ FFAB 
Q9FD 
0127 
0814 
0902 
9201 
0113 
C622 
09FO 
0122 
1400 
7FFF 
54F4 
52 GO 
0121 
1489 


0361 

0363 

0364 

0365 

0366 
03 5 7 
0368 
0359 
037 0 
D371 

0372 

0373 


P0121 

P0122 

P0123 

P0124 
P0125 
PQ126 
P012 7 
.PQ128 
P.0129. 
P012A 
P012B 


5 40 0 
00A7 
E8 97 
0125 
0500 
C205 
OlGl 
14EA 
GA Cl 
6205 
1800 
FED6 
0120 



LDA- 

(ZERO) , Q 


JMP» 

R29 

R2 

TRQ 

A 


AND- 

NZERO-1 


ADD- 

6,1 


AND-: 

NZERO-1 

R29 

INA , 

-2 


TRA 

Q 


SUB 

=XAREAC 

- 

SAM 

■ ERROR 


TRQ 

A 


ADD- 

(ZERO) , Q 


IIN 

0 


SUB 

LEND 


INA 

-2 


SAP 

ERROR 


TRQ 

A 


INA 

2 


SUB- 

1»Q 


SAN 

ERROR 


LOA- 

(ZERO),Q 


INA 

-2 


SAP 

R41 

ERROR 

JMP 

SCHERR 

R41 ’ ' 

RTJ- 

($F4) 

REL , ■ 

ADC 

$520 0 


ADC 

RELEAS 

R6 

JMP- 

(REQXT) 

^ ENTERRED AT LEVEL C 

RELEAS 

RTJ+ 

R,TNCOR 

RELl 

LOQ^ 

XCORE 


EQU 

^EGORE (REL 


IIN 

0 , 


LOA- 

LU,Q 


SAZ 

R£L2-^-l 


JMP- 

(ADISP) 

REL2 

ENA 

CORELU 


STA- 

■ LU,Q 


JMP 

ICO RE 


*^MSOS 


AREA RETURNED BELOW AREAC IS IN ERR OR-*^ -+3 4-^^ 


N190 
H190 
M19 0 
M19j 
OH 190 
H190 
Hi9] 
H190 
.H190 


0 33 2 
033,3 
0 33 4 
U 3 3 
0 33 6 
0 33 7 
0 33 8 
P39 
w 3 4 U 


^^43 4^^^^^ M19Cj 3^1 
M1900 342 
Ml9i 0 343 

^43!-,^^^^, M 19 0 0345 


OK TO RETURN BLOCK THAT ENOS AT 
END OF AREA RETURNED ABOVE LEND 


LEND, 63^1213 
IS AN, ERRORS', 

"^404 

HEAO.ER WORD NOT POINTING TO’IST WORD O^^AREA'*”' 

^434 


LENGTH 
SET BIT 


LESS 
1 5 


THAN TWO IS AN 
OF Q AND RETURN 


ERROR ' 

TO REQUESTOR 


M 19 u 0 34b 
H19j 0 34 7 
Mi90 03 -t 8 
M190 0 349 
M190'G35Q 
M 1900 351 
H 19 0 0 35 2 
M190u35'3 
H19G0'33 4 
M 193-0 35 5 


RELEASE AT DRIVER PRIORITY LEVEL 


OF ALLOCATOR TO RELEASE SPACE 


SET ALLOCATOR BUSY ■' 

ENTRY FRO'H DIAGNOSTIC TIMER 
INHIBIT INTERRUPTS' 


CHECK FOR WAITING .requests 


^^HSOS 

'^^MSOS' 


^^MSOS 


^^MSOS 


EQU R5(R6) 


-M19p356 
OH 19 0 0 35 7 
0H19G-0 35 8 
M190 0359 


H190 0 3,51 

M19uC3'53^ 

H 19,3 0 354' 
1 ’i^'^HigO 0 365 
H 19u 0 3b 5 
M19C..G 357 
H 190 0 35 8 
H19}03o9 
Ml9j'u37G 
H 190 0 371 
i^^Mi90u 372 

H19Q0373 


O 


0375 

0376 


¥ 


the SW4PCK 3U EROUTINE' IS ENTERED TO DECREMENT UNPIO 
WHEN UNPROTECTED I/O IS COMPLETED, BY J08PR0 AND LIBEOT 


H 190 0 3? 5 
M19a 0 376 


DGORE 


PAGE 
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n 


o 


o 

C' 

o, 

o 

c> 

o 

o 

C) 


U' 


o 

O' 

o 


0577 


037 9 
Q 3,8,0^ 
0381: 


IF' UNPIO Ed 0 AND SPASW NE u, DPCORE IS RESTARTED 


M19 0 0 37 


P.012C 

PQ12D 


0 0 00 
0 500 ^ 


SWAP3K. 


ENT 

NUM 

IIN 


SWAPCK 

;0 - 

0 


0382 P012E 54B8 


RTJ- 

(AVOLA) 

0383rP012F 0004 ' 


NUM 

4 . 

0364.'.PQ130 C8FB 


LOA^ 

SWAPCK . 

0385/’PQ131'.'04GO ■ 


EIN 


0386' P0132. 6103 


STA- 

3tl 

0367 POI33. CC8B 


LDA^ 

(XUNPIO) 

0388 P0134 OlOE , 


SA2 

SWCKEX-^-1 

03 8 9-. PQ13 5,'. 0 9FE . 


INA 

-1 

0390,. P0136 6C88 . 


STA^ 

(XUNPIO ) 

0391;. P0137' OllB 


SAN 

SWCKEX 

0392 PQ138, CC87 


LOA-^ 

(XSPASW) 

0393. P0139 0109 ■ 


SAZ 

SWCKEX-^-1: 

0 39,4’ P013A uCOA 


ENQ 

10 

039..5:-P013B C6E9 


LDA- 

($E9) ,Q 

039 6T 




0397. P013C. 0103 


SAZ 

SCHA 

0398 P013D:.>COOO X 


LOA 

=XPRTCDR 

P013E: 7FFF X 




0399 P013F.6803 . 


STA^'f 

S-CH + l 

0400 PQ14G'. 54F4 

SCHA 

RTJ- 

{ SF4) 

G401 P0141,..52C0 

SCH 

VFD 

NI/l ,N1 /1,N 

040 2 PS142r;0123' P 


ADC 

RELl 

0 40 3,. ,P’0 1434,0500 

SWCKEX 

IIN 

0 


ENTEREO^' WHEN UNPROTECTED I/Q.IS COMPLETED, 
GET VOLATILE', 


SAVE' RETURN ADDRESS 
DECREMENT UNPIO BY 1 


EXIT IF SWAP NOT POSSIBLE 

SKIP . IF NOT waiting TO, SWAP 

GET RESIDENCY OF UNPROTECTED FROM' 
EXTENDED CORE TABLE 
SCHEDULE PARTITION CORE 
DRI,VER IF UNPROTECTED 


03 ^ 1578 ' 


^^.MSOS 

^^MSOS 


M19w 
M190 
M 19 u 
,M190 
MI9Q 
M190 
M19j 
M19j 
Ml9u 
M190 
M 190 
' M19G 
M 19Q 
' Migo 
M19U 
■ Ml 9 u 
H 19G 
M193 
QM19G 
0M19G 


0379 
0 38 0 
0 381 
a 38 2 
Q ..385 
0 38 H- 
0 38 5 ; 
G o3 5. 

0387 

0388 
0 389 
0,390 
0 391 
0 39 2 
0393 
039h 
G'395 
0 396 
0'39 7 
Q398 


IS IN PART 1 
./O ,N8/G 


SCHEDULE: DRIVER IF 


: -^MSQS 
^«^'MSOS ■ 
NOT BUSY^ 
^^^MSOS 


-!■ * 


0,AG 5' 
O'A-'O 6. 
GhD 7 
0 40 8 
0409 


Q 4 II 
0 412 
0 413 
0 4-1 4 
0415 
0 416 

041 7 
041 8 
0419, 

0420 

0421 

0422 
0 423, 
0424' 
0425 


P0145' 
^P 0146 
PG 147 
P0148 


P0149 

P014A 

P0148 

P014C 

P014D 

P014E 

P014F 

P 015 Q 

P0151 

P0152 

P0153 

PO 154: 

PO 155 

P0156 

P0157 

P0158 


C103 
68 E6 
54BA' 
0400 
1CE3 


GQCO 
d 81E 
CGID 
ASil 
6811 
E800 
FF08 
■ QOFE 
0 500 
480D 
■E2 02 
ODGO 
0151 
18QA 
C622 
A 8 05 


LDA-‘ 
STA^ 
RT J- 
EIN 
JMP^. 


THRDIT 


THDNXT 


:q 

STA'^^ 

LOA^ 

AND» 

STA^ 

LDQ 

INQ 

IIN 

STQ^ 

LOQ- 

INQ 

SON • 

JMP-^ 

LDA- 

AND^ 


3»I 
SWAPCK 
(AVOLR) 

0 

I SWAPCK) 


0 

TEMPI 

(TEMPI) 

RPMSK 

REdP 

XL0G2 

CORELU- 

0 

THDX 

PTtQ 

0 

1 

THDTHS 
(ZERO) , 
RPMSK 


RESTORE 

RELEASE 


RETURN ADDRESS 
VOLATILE 


RETURN TO USER 
2 CARDS DELETED 


THREAD REQUEST IN A TO CORE LU 


QMl 9 u G 599 
aM19,j 0 40G 
H 190 0 4U i 
OMigaC-HOa 
M19uQ.4G3 
M19J'0 4Q'4 
H 19 OO 4 O 5 
M 190 u 4 U o 
Mi93 u 40 7 
M190 0 40 8 
M190U409 


Mi90a 4ll 
Mi90 0'4i2 
M19yu4l5 
M 190 0 41 4 
M 19 J u ti 5 
Ml9 J u 4io 


Q 


CHECK FOR END OF THREAD 


SEARCH FOR LOWER RP 


M 19 G 
M19C 
M19 0 
M190 
M190 
M'lg:- 
Mi9-u 
'M 190 
M19G 


u -+i 7 

0 418 
U 4l 9 
0 -»2 0 
0 421 

0 n2 2 

0.42 3 
G '424 

Q*t2 5 


o 

o 

L„..' 

■ o 
o 
o 

: O 
. O 
: O 
o 

o 

. o 

o 


o 


o 
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■0426 .P0139 9805 SUB'‘ REDP 

0427 .P015A 0135 , SAM... THDTHS- ^-1 

0428.. P015D ai04 SAZ.., THDTHS-.,^-! 

0.42 9 .P.015C, 18 F5 JMP»: THDNXT 

0430" P015D QOFO RPMS< NUM $FQ 

0-*31 .-POISE, 00 00. REQP ^ NUM ,.Q 

0432 -POISF 00 00 THDX NUM 0 

0433 -P0160 -E-8FE THOTHS LOQ^ THDX : 

0434- PQ161 C202 ., LOA- PT-,a 

0435., :P0162 E8 06 LDQ^-. TEMPI 

0436 P0163 6202 . ■ STA^PT,Q 

0437' P0164 0814 TRQ A 

0438 PQ1&5 E8F9 LDQ» THOX 

0439 PG166 6202 , STA- PT,Q 

0440 P0167 ICEl JHP^ (THRDIT) 

0441 P0168 0000 TEMPI ADC 0 


THREAD ENTRY IF NEGATIVE 
THREAD ENTRY IF E^RUAL RP 

GET next; Entry 


PO INTER TO ., PREVIOUS. - ENT RY 

POINTER TO-;' ENTRY TO ADD 
.POINTER TO' NEXT ENTRY’.' 

POINTER TO PREVIOUS ENTRY 


0443 


PGM= 0169' ( 361) COM = 0000 { 


DAT = uOuO ( 


o 

o 

o 

o 

o 

o 

o 

n 


Q 


C 

G 

O 

Q 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

Q 

Q 

u 
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o 

E Q U I V 

A L E N 

C E S 





o 

o 








o 


DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 


o 

0 0 0 0 

. I 

OQFF 

( 000255) 

0 0 5 4 1 

0119, 

0153, 02^5 

o 

0 038 

LU 

0 0 0 5 

{ 000005) 

0 367 , 

u 371 



00 38 . 

ADISP 

00 EA 

(000234) 

0175 , 

028 7, 

0318, 0.369 



0 038 ■ 

ZERO 

0022 ' 

(OGQ034) 

0 059, 

0 235, 

0315,. -0 320 ,. 0 326, 032 7, 0332, 0343, 0352, 0424 


o 

' 0036 

ACQMPR 

Q0B6 

( 000182) 

0120 

0073, 

o 

0Q39 

LPMSK 

0 0 0 2 

(0000021 

0 061, 

0 092, • 0 15 5 . ' 



Q Q39 

NZERO 

0012 ' 

(00QQ18) 

0111, 

0117, 

G128, 0330, 0335, 0337 



0039 

AFNR 

0085 

(000181) 

0056 




o 

0 0 39 : 

ANABS 

OOBF 

( 000191) 

0 0 69 



• o 

0 040 

AVOLA 

QOBB 

(000187) 

0 382 




0 0 40 

AVOIR 

0 0 BA 

(000136) 

0 406 





0041 

LOG ORE 

00F7 

( 000247) 

0188, 

0191, 

0226, 0292 



0 041 

HICORE 

0QF6 

(0 Qt);246) 

0187, 

0223, 

0237, 0297 

Q. 

•v,. 

0 041 

TIME-- 

000 4 • 

(000,004) 

0179, 

0296 



0 042 

CORELU 

0001 . 

( QOQ^OOl) 

0169, 

0 37 0 , 

0 ^17 



0 0 43 '• 

ELU 

■0005 ■ . 

( 0Q#MS) 

.3174 





0 044 

PI 

flOO'2 

(oooiao2) 

■,Q u 8 1 , 

■ 0087, 

o 

vj 

0 047 

REQXT 

00B9 

(000185) 

0 359 




0 048 

ONEBIT 

0023 

( 000035) 

0108, 

0 321 



o 








o 

o 








■ o 

o 








o 

o 








o 

o 








o 

o 








• o 

o 








o 

o 








o 

o 








. • ■ o 








. . — -- - 

- . 
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date: Gl/27/99 


C; 

' S Y H B 0 L S 


i \ 



OEF.LINE 

NAME 

ADDRESS 

REFERENCED.. AT 

Line 

NUMBER 


C) 

' ' ‘ 0 024 

ICORE 

3002 

0 0 24 » 

0 io 4 , 

0372 



0 024 

T12 

00E8 

.0 02 4 





0 0 2 4 

ECO RE 

0123 . . 

. 0024 






0 024 

LEND 

. OOBD 

0024, 

0225, 

0293, 

-0345 



0 02 5 

S WAPON ■ 

.GQBC 

0 3 25 , 

0163, 

3217, 

0 305 



0 026 ' 

STLPV4.. 

uoae . . 

0 0 2 6 , 

0202, 

0218 


' 


0 02 6 . 

LOOP ‘ 

, O0C3 .. 

0 0 26 , 

0 210, 

3 26 6, 

0289 



0 027 

OUTPUT.. 

0081^ ' , 

0 027 




O ; 

0 027 

SPACE4 

008 5 . 

0027 , 

0122 




0 3 2 7-.. 

NOG30A 

OOGF , 

■ 0027 






0 0 27 . 

REL 

OllE . 

0 02 7 






D 027 

SCH 

0141 

00 27, 

0399 





0 0 52. 

WAIT 

Q 0 0 0 ' 

.0 0 83 , 

G 'l *5 7 , 

Oi-'T 




0G53 

BOTTOM 

0001 . 

. 0 073 , 

0 0.8^, 

0141 




0 0 5 6 

CORl 

0003 

0 088 , 

0121, 

0173 




0 058 

TRY 

G 0 0 5 







0 0 67 

NOTMOT 

000 E 

. 0 063 





\ ‘ 

0 0 76 

OKO 

0016 

' QG71 






0377 

NOTOK 

0017 

0 075 




• 


0 090 . . 

OKI 

0 0 23 

Q0 76 





i "'i 

0107 

JNOGOT 

0032 . 

0099, 

Q104 




*1^,' 

0 110 

ONE 

'0034. 

■ 0100. 






0122 

ASWAPD ■ 

0041 . 

- 0066, 

0070 , 

0105 




0124 

DIRCAL • 

0 0 42 

0112 




> ‘ 

O 

0132 - 

OIRl 

G04A 

0124 , 

0129 




0137 

WAIT2 

004D 

' 0057, 

014? 





0143 

WAITS 

0053 

0139 






0 148 

XLOG2 

0058 

0170, 

0416 



'' 

f’ . , 

0152 

NOGOT 

0059 

3107 , 




'' 


0 166 

NOGl 

0067 

3157, 

0162,. 

0181, 

3185, 

0.2,03. 


0168 

GTHDIT ■ 

' 0069 

0145 






017 6 

TEMP 

0071 

0 0 6.8 , 

.0372, 

.flu 77, 

q;0 90. 

0 11 0 , . S 11,4 , 


0179 

N0G2 . 

0072 

0165 . 




Q 182 

NOGL 

0075 

. 0180 






018 7 

NOG5 

0 0 79 . 

■ . 0183 

' . 



1 ' ' 


0 198 

LENGTH 

0085 

0 190 , 

0234, 

0238 , 

0'24 6, 

3 273, 0;293 

o. 

0 199 

STA RT 

0086 

0193, 

0 275 . 


0217. , 

. TURNON 

0096 .. 

0212 






, 0223 ■ 

NOG20 

0 0 9 8 

0196 




' 


0 228 

N0G6 

0 0 9D 

0229, 

0291 





0 239 

NOG21 

OOAA 

0 2 43 








o 


^ o 

' , ' V.-' 

; O 

' ' o 

o 

o 

u’l 26 » ' '0 15'4 , tl6,bf‘0i7t 

=■;; " ' '' ’ ’ . O 

' ' ' ' ' ' : o 

c 

o 

o 


o 
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DATE 

u 2 4-4 

N0G22 

OOAF 

0 2 42 



0252 

SPACEl 

QOBg 

0248 



Q 255 

XCORE 

0 OBB 

0116, 

.0133, ■' 

0152, u2t4 

0258 ' ■ 

. TEH PL 

OOBE 

0230., 

0290 


025g • 

XUNPIO 

OQBF . . 

0182, 

038 7, 

0390 

0 26 0 : 

XSPASW ■ 

0 0 GO " 

0184, 

0 208 , 

. 0 392 

0 261 , 

LOOPEN 

OOCl ' 

3216 



Q26 7‘ 

LOOP! ■ 

0 0C8 

0209 



0 268, > 

LOOPFG ■ 

OQcg 

0 211 , 

0 213, 

0262 

0273 . 

.’HOG30 

OCCA 

0 251 



0283 . 

: LGTH. 

0003 

0 274 



0 284 

’ STRT 

0004 

0276 



0 28 7 

AJDISP 

0007 

0288 



0 288 

NOG33 

Q0D8 

0280 



02 gg 

NOG32 . 

U 0 E3 ■ 

, Q 303 



0304 

N0G35 

0 0E8 

0302 



0314 

RIA ■ 

uOEF ■ 

0311 



0 320 

R1 

00F5 , 

, .3 317 



0 324 

Rll 

OOFA ■ 

0 322 



0334 

R2 

0104 

0323 



0338 

R2g 

010 8 

0325, 

0333 


0 355 

• ERROR 

GllB 

0 3 41, 

0 347, 

0551 

0356 , 

■ R41 

flilD 

0354 



0359 . 

R6 

0120 

, 0 373 



0 3 63 

RELEAS 

0121 

0358 



0364 

RELl 

0123 

•0 2 53, 

0 3 G 6 , 

0 565 , 0 402 

0 370 

. REL2 

0128 

0 368 



0 3 7 3 

■■ - R5 

0120 




037g . 

. -SHAPCK 

012C 

0379, 

0 384, 

0405, 0h08 

0 400 ' 

. SGHA 

0140 ■■ 

0397 



0 403 . 

SHCKEX 

0143 

0388 , 

0 391 , 

0 393 

0 411 .. ■ 

. THRDIT. 

0149 

0167, 

0 44 0 


0 4ig ■ 

THDNXT 

0152 

•0 429 



0 430 ■ 

RPMSK 

Q15D 

0 4 1 4 , 

0,425 


0 431 ■■ 

REQP 

015E 

0^15, 

G'426 


fl 432 ' 

THDX 

015F 

0419, 

'0 433 » 

0438 

0 433 ^ 

TROTHS 

0160 

0423, 

0h27, 

0428 

0 4^*1 

TEMPI 

0158 

0412, 

0 413, 

0 455 


Gi/27/gg 


22k 


Q36-. 





O 

O 

o 

o 

o 


o 


o 

o 


o 
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PAGE 14 


DATE! G1/2T/99 


o 





C 


£ X T E R 

N A L S 




o 

■ DEF.LINE 

NAME 

VALUE 

referenced AT LINE NUMBER 

- O 


. 0 029 

RTNCOR 

012 2 

0236, 0363 

. r 'l 


■ 0 029 

^ SWA’PAR 

0006 

0201, 0286 



0 029 

PCORE 

COBB 

0 255 



0 0 30 ■ 

UNPIO 

OOBF 

0259 


o 

0 03 0 

SPASW 

QOCO 

0260 


0 0 30 

L0G2 , 

.0 0 5 8 

0148 



0030 

REQALC 

0028 

0 0 94 , 



0030 ■; 

L VLSTR 

009E 

, , 0228 


C'* 

0 03,0 ' .. 

, AREAC ,, 

OlOB 

,0340 

f") 

00,31.^ 

SCHERR 

one 

0 355 

•w 


0032 , ■ 

PTNALC 

7FFF 




0 033 ^ 

PTNREL , 

. 7FFF 




G 0 3 4 

K65T12 

' OOF 9 

.0 323 

O 


0 03 5 

SPCEV4 

7FFF 



00 3 5 •, 

R0PTV4 

7FFF 




0035 ■ 

■0UTPV4 , 

- 7FFF , - . . , 



f’"'] 

'0 0 3 6 

PRTCDR 

* G13E 

0 398 ■' " ■ 



0 0 37 

IDLER 

00C6 

0265 

V.-' 

o 





O 






; 0 

o 





o 

o 





o 


O : o 

Q ■ C 


O 


O 


o 


o 
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date: 01/27/99 


S Y M B 0 L S 


0038 
0053 
,0041 
G041 
016 6 
0 30 4 
0090 
0033 
0035 
0029 
0026 
0 25 8 
0052 


ADISP 

CORl 

I 

LOG2 

N062 

N0G4 • 

ONE 

R1 

REL 

SCH 

STRT 

THDNXT 

WAITE 


0038 
0 056 
GOOD 
0030 
0179 
0182 
3 110 
0320 
■0 0 27 
■ 0 027 
0284 
0419 
0137 


AFNR. 

COREL U 

I CORE 

LOOP 

NOG20 

NOGS’ 

ONEBIT' 

Rll 

RELl 

SCHA 

SWAPAR 

THDTH3 

WAIT3 


0039 
0 0 42 
0024 
0 026 
0223 
0187 
0 0 48 
0 32‘t 
0 3 64 
0 400- 
0029 
0 433 
0 143 


AJDISP’ 
DIRi 
IDLER 
LOOPl - 
.NOG 21 ' 
"N0G6 
OUTPUT 
■RIA 
'REL 2 
SCHERR 
SWAPCK 
THDX 
XCORE 


028 7 
0132 
0037 
026 7 
'0239-: 
0228 
Gu27 
3 >i 'l H 
Q37 0 
,0031 
0379 
0 h3 2 
0255 


■■,ANAaS" ' 
,.D1RCAL. 
■..UNOGOT'; 
-LOO PEN' 
.C.N0G22 
,-,NOGOT 
..OUTPV4 - 
-■:'R2 

:,’:-'RELEASr- 

"■■SPACEl.. 

■ SWA PON- 
THROIT 
XL0G2 


■O 

o 

o 

C ) 


o 

o 

o 

o 

o 

o 


o 


"'Q>0>3C) * 

-U u.2 ,4 
_ 0 03 4: 
0 26 8 

'■0.2'73. 

0 067 
0G2 9_. 
03-3 8 
■0:030- 
' li C -2 i 
0403, 
0 041 
0 2&'0 


ASWAP.O ‘ 
ELU 

LEND ■ , 
LPMSK ■ , 
-NOG3C-A-.' 
NOTOK 
PRTCDR- 
Ri-1 
REQP ' 
SPASW- 
T12 ■ 

TRY 

XUNPIO 


- 0 , 1-22 
. C'Q 4 3 
-0024 
003 9 
-uJ-27:' 
' G.Q7 7 
.03-36. 
C35b 
'o:o 3-1 
0 j 3 J 

' 002-r 

U 0 5 8 
'02p9 


• AVO-LA 
- ' tRROR 
LENGTH 
LU 

■ NOG 3 2 
NZEKO 
PT 
R6 

REQXT 

SPCEV4 

TURNON 


ij V " ^ '0 

0 193 
3 03 8 
U299 
J':3 9 
3 li H 
0 3 7 3 
0 047 
0 j3 5 
u 17 c 

u 21 i 

0C3 8 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


MCMPRQ 


PAGE i 


DATE: ul/27/99 


0 00 1 
000 2 ' 
00 0 3 
000 4 


NAM NGHPRQ DECK-ID M2C MSGS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION ',5.0 

^ SMALL SYSTEMS OIVISIONi LA JOLLA» CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 


5UMMARY-l'10M20QuOui 

M200UOQ2 

MiOO'OOQS 

M200GQ04 


00 0 7 



ENT 

000 8 

OOuQ 

P 

EQU 

Dull 



ENT 

0012 



EXT 

0013 




0014 




0015 




0016 

00 04 


EQU 

001 7 

0 005 


EQU 

0018 

0 0 06 


EQU 

0019 

0 0 08 


EQU 

00 20 

00 09 


EQU 

0021 

QOQF 


EQU 

0'0 2 2 




0023 




0 02 4 

0 0 02 


EQU 

002 5 

0 0 23 


EQU 

002 6 

' , 0012 


EQU 

0027 

' CO 22 


EQU 

002 8 

uOF4 


EQU 

0029 




003 D 




003 1 




003 2 




0033 




0 03 4 




0035 




0036- 




0037 




0038 




0039 ' 


¥• 


0040 




00 41 




0042 




0043 

POQOO 0000 

COMPRQ 

0 

004 4 

POOGl 0500 


IIN 

0045 

PQ002, E8FD 


LOQ^ 

0046 ' 

PQQD3 D4G0 


EIN 

0047 

P0004 41QF 


STQ- 

0G48 

POQGD, .OAFF 


ENA 

0049 

.PQQG,6-,'6104 


STA- 

OOSO'. 

P0007 .E106 


LDQ- 

QQ61 

P0008 C622 


LOA- 

0052 

P0009 0F49 


ARS 


COMPLETE REOUEST FOR DRIVERC 
NCMPRO 
NCMPRQ(^) 


COMPRQ 

LOGl 

PHYSICAL ' DEVISE TABLE INDECES. 

EDCLK (4 ) 

ELJ<5) 

£PTR(6) 

EREQSK 

ESTATK9) 

RETURN ( 15) 


LPMSK (2 ) 
0NEBIT($23) 
NZERO (512) 
ZERO ($22) 
AMONI (BF4) 


THIS MODULE SCHEDULES COMPLETION 
ROUTINES AND HOUSE KEEPS:' FOR DRIVERS.,', 

ON ENTRY FROM A DRIVER, .THE I, REGISTER 
MUST CONTAIN THE CORE LOCATION OF THE 
PHYSICAL DEVICE, TABLE SLOT OF THE 
SUBJECT EQUIPMENT. 

I IS SAVED AND RETURNED TO THE CALLER' AT 
CALL+1 


0 

Q 

COMPRQ 

0 

RETURN,! 

-0 , 

EDCLK, I 
£PTR,I 
(ZERO ) , Q 
9 


SAVE RETURN. 


SET DIAGNOSTIC 
CLOCK' IDLE. 


DO NOT SET ERROR FIELD' IF 
THE REQUEST WAS A MAS STORAGE 


M20C0006' 
M2C'a'C0.0 7 
M2Cu0Q0S 


M20Q0ull 

• . M2u -3 u 01 2 

M2Cu0ul3 
M 2 0 J u C 1 ^ 
M20'j0ai5 
H2 C . U G i o 
M2yu u,317 
M 2G u U 01 & 
M2DO.O,ai9 
MZGGQGZu 
, M2G0SS21 
M 2 C . j G 2 2 
H2uu,uu2 3 
M 20 j-'J-H 'Ch 
M -2 60 0 02,5' 
M 2 0 Ij u G 2 6 
M2000027 
M20 30028 
H2e30029 
M2GQ,a03C 
M2 00 0 0 31 
M2Ci-Gu32 
■ M2 OG 003 3 
' ' i‘'i20G,Q03‘+ 
,H2Qua035 
, M2 0,0 0 0,3d 

• 'JiZOO 0 037' 

M2CIi.0G38 
■"M2:0 0013:39 

,M'200 0 0.40 
,M20G0a4l 
' M2 0a0'3'4 2 
M2£iuO''aH3 
,,M20G'UOt4 
; .'M20G 00 45. 

1 ' ,' M2'0ll 0 046 
'■ - ,,M2£10 0 04 7 
M 2 OOGO 48 
M2000049 
' M2C 3 0 05 0 ' 
M20uGG5'l' 
M2LD0 G52 


NCMPRQ 


date: ul/27/99 


0082' 
0083 
0D8A 
0G8 5 
0G86 
0G8? 
0C8 8- 
00 8 9 
0090 


PUu.OA 
POOCiB 
PGQOC 
PQQCD 
PO OuE 
PODGE.: 
POO.iD 
PQQ.,11.. 
PO 012 
P 0 Q 1.3 
P 0014 
P 0015 
POO 15 
P 0 Q 17 
P 00.18 
PQ 019 
PCOIA 
PCD 1 =B 
POO 1 C 
POCID 
PQCIE 
POOIF 
P 0 02 Q 
PQ 021 
P 0022 
P 0023 
PQQ 2 . 4 - 
P 0025 ' 
P 0 0 2 &- 
PQ.D 27 
:PQQ 28 
P 0029 
PO 02 A 
'P 0 02 B 
PO a ZC 
.PC 020 
PflOZE 
P 002 F 


AQ 07 
0107 
C203 
AQ OF 
62 03 
C109 
.AOIF 
B203 
6203 
C2 01 
0112 
6202 
18 OC 
C622 
AOll . 
B032 
6622 
0814 
E2 03 
05 00 ' 
•68 03 
54F4 . 
60 00 
0000 • 
C108. ■ 
•AGIO ■ 
6108 
• £105 
■C600 X 
•7FFF X 
OFCl 
0123 
0 8 04 
0 500 
6105 
0400 
El OF . 
1622 


AND- LPMSK+5 
SAZ CC-^-1 
LDA- 3,Q 
AND- LPHSK+13 
STA-, 3,D 
LDA- ESTATl, I 
AND- NZERO+13 
EOR- 3,Q. 

STA- 3,D 
LDA- 1»D 
SAN CD-^‘-l 
STA- 2^a 
J M P ^ EE 
LDA- (ZERO), a 
AND- LPNSK+15 
EOR- ONEBIT+15 
STA- (ZERO),Q 
TRO A 
LDQ- 3,Q 
TIN 0 
STA^ CE 
RTJ- CAHONI) 

VFO Nl/0,Ni/l, 
0 0 

LDA- EREQST,! 
AND- LPMSK+14 
STA- EREQST, I 
LDQ- £LU,I 
LDA+ L0G1,Q 

ALS 1 
SAP HH-^-1 
SET A 
IIN 0 
STA- £LU,I 
EIN Q 

LOQ- RETURN, I 
JHP- {ZERO),Q 
END 


DIRECTORY , CALL- 


CLEAR. ERROR' FIELD 
, IN REQUEST AND 
REPLACE WITH 
SAME FROM .PHYSTB 


IF COMP. ADJPs. EQUAL ZtRO 
CLEAR THREAD AND 

GO ■ TO EL. 

S£l BIT 15 .OF word' ZERO: 
OF THE REQUEST 


GET ERROR WORD FROM REQ. 


■ REQUEST. AN. -INDIRECT 
N5/16,N1/G ,N8/0 

..SECONDARY SCHEO. CALL 
:.IF E IS. EQUAL TO 1 

OTHERWISE, 
ZERO THE FIELD • 


TEST L.U. TYPE 


PGM= 0030 { 48) 


COM = 0000 ( 


O 


^”-MSOS .. M2CJQU65 , 
M2 00 00 5.4 
H2D.ua 055 
M20a005b 
M 2 u 0 j u 5 / ■ 
M20 00 05 8 
M2 GO 0 05 9 
MZoO'uOoU 
M 2 u u 0 u 6 1 
M 2 u 0 u 0 6 2 
M2u0 0 do 3 
M20 0 0 064 
M2G -j J 0 6 5 
H2000066 
^ .M2000Q67 
■ ' ' MZCaOG'oB'. 

: M 2 0 J 0 0 6 9 - 

' ‘ M2000070,: 

' M2ua007i 
M2GOOj72 
• M2000073 
M 2 0 u 0 0 7 4 
■^•^-MSOS'-.uH200u075 
M2GO.O u7b 
M 2000077 
; M2&OOQ78, 
'M20..ja079 
M2000030 
‘ M2 0 0 0 u 8 1 

' - H2O0U082 

M2QG0lj83. 
M20GU084 
M20u'GQ85. 
M2UGQ086 
■ M2D30VJ87 

' M20.,fiQ-G8 8 
H200a08.9’ 
H2000Q90 


Q 

O 

o 

o 

o 

o 

C) 

o 

C‘ 

o 

o 

o 

o 


NCMPRQ PAGE 3 DATE: ui/27/99 

EQUIVALENCES 


DEF .LINE 

NAME 

VALUE 


referenced at 

LINE NUMBER 

0 000', ■ . 

I 

00 FF 

(00.0255) 




0 016 

EDCLK 

000 4 

(000004) 

0 0 49 



0 017 

ELU 

000 5 

(000005) 

.3.0 3.0, 

0 0 86 


0 018 

EPTR 

0006 

(OQ0006) 

0 0 50 



0 019 

EREQST 

000 8 

( QQQ008) 

0 0 77, 

DQ79 . 


0 0.20 

ESTATl 

0009 

( 000009) 

.0 058 



' 0 021 

RETURN 

QOOF 

( 00 0.015) 

,0 0 47, 

0 088 


0024 

LPHSK 

0002 

( OQOOQ2) 

.0053, 

0 0 5 6, 

0067, 0078 

0 02 5 

ONEBIT 

0023 

(000035) 

0 0 68 



0 02 6 

NZERO 

. 0012 

(0 0.0018 ) 

0 059 



0 027 

ZERO 

0 022 

(000034) 

00 51 , 

u 0 fa n , 

0069, 0089 

0 028 

AMONI 

00F4 

(000244) 

0 074 




NCMPRQ 


PAGE 


DATE; 01/27/99 




SYMBOLS 


DEF.LINE 

NAME 

address 

REFERENCED AT LINE NUMBER 

0 0 0 7 

NCMPRQ 

QGGC , 

0 0 07 

0 LI 11 

COMPRQr 

OOQO 

0011, 0045 

0 0 62 

CC 

0013 

■ ■■0054 i 

0066 ; 

CD 

0017 

0 063 

0 0 76 '■ 

CE 

0021 ■ 

0 0 73 

0 0 77 

EE 

0022 

0 0 65 

0 QH 7 

HH 

0 02D 

0 0 83 


M rMPPD 


PAGE 


5 


DATE! ul/27/99 



UJ' 


C.' 

o 

o 

c 

C) 

o 

o 

o 

o 

o 

C) 

o 

o 

c 

o 

.^v 


NCMPRQ 


Pi^GE 


o 


date: 01/27/99 


o 


P H A ,B E T I 

CAL 

S 0 


: AMONI 

‘ ^ 0 028 ' 

GC 

0 0 62. 

CD 

o ■■ 

EREQST 

' 0019 

ESTATl 

0 0 20 

HH 

RETURN 

. 0021 

ZERO 

0 027 



o 

c* 

/’* '''l 

o 

C) 

o 

o 

o 

o 

o 

o 

o 


RT OF SYMBOLS 

. 0 0'66 CE u076. COMPRU 0 011 

0087 I OjjO LOGl 0012 


lO t 


0 017 
3 02:; 


E^TR 
OME cIT 


U 0 1 8 
uu2. 


EE 03 77 ELU 

NCMFRQ 0a07 NZEKO 


c 

o 

i^J 



o 

o 


c 

o 

o 


NFNR 


PAGE 


1 


DATEJ Qi/27/99 


0 00 1 




NAM 

NFNR 0ECK-I0. ,M21 MSOS 5 . 0 

S'J;1MARY-11^M21CDGj1 

0 30 2 




HASS 

STORAGE OPERATING SYSTEM VERSIOl'j 5.. 0 

M.21G 0-3 0 2 

00 03 




SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

Mail, W 3 03 

000 4 




COPYRIGHT CONTROL DATA CORPORATION 1976 

H21GGu04 

00 0 6 




FINO 

NEXT REQUEST-NONrBUFFERED 

M210C'G-G5 

000 7 




ENT 

NFNR 

• ■ . M 21 j EG or 

0 0 0 8 


OGOO 

? 

EQU 

NFNR(^) 

M213 0 00 8 

0011 






■ 'H21GQyil 

0012 






M210 L 012 

0013 



¥ 


THIS PROGRAM ' FINDS 'THE .NEXT R.EQUEST 

M21C0 013 

0014 



if. 


FOR A GIVEN PHYSICAL DEVICE. 

M210 0,014 

0015 





IT .IS ENTERED FROM ALL DRIVERS ANO 

M210.G015 

0016 





RETURNS AS, FOLLOWS 

’ M213 0 016 

001? 






,■ M21i.0ai7 

0018 



if. 


CALL+1 IMPLIES NO REQUEST FOUND 

■’ M210Q.Q18 

0019 





CALL+2 IMPLIES’ a REQUEST IS READY 

M21G0Q19 

002 0 



if. 



M210 0 020 

0 0 2 1 





WHEN A REQUEST IS: FOUND, FNR SETS 

M21&0021 

0022 





ALL POSSIBLE INFORMATION IN THE ' 

M2100U22 

0023 



3$. 


PHYSICAL TABLE SLOT BEFORE RETURNING. 

M2100 023 

0024. 






H2i:Ol:2- 

002 5 





FNR IS ENTERED WITH THE CORE LOCATION' 

M2lJ'ai;2 5. 

0026 



if. 


OF THE PHYSICAL DEVICE TABLE SLOT IN I. 

^ M213'0O26 

0027 



, ^ 



H2ioaa2? 

0028 






■ M2i: 0 028' 

0029 




ENT 

fnr( 

M2100U29 

0C3Q 




ENT 

FINDRQ 

MZlii G 0 3, 0 

0031 




EXT 

L0G1,L0G1A ,L0G2 

' , M21L 0,031 

0032 




EXT 

ALTSUB SUB. TO SET Q=ALT. IF LU IN Q IS 

DOWN ' M2iQ0a32 

0 0'3 3 






M210Q'a33 

003 4 





PHYSICAL DEVICE TABLE. 

,.M2i'0 0:03 4 

0 0.3 5 


00 05 


EQU 

ELU (5) LOGICAL UNIT = L.U . 

M2iO'0'G'35 

0 0.3 6 


.00,06 


. EQU 

EPTR(6) CALL .'PARAMETER LIST 

LOG. M.210 8'03 6 

0037 


CO 08 


EQU 

£REQST{8) 

' H210C337 

0038 


DO D9 


EQU 

ESTATl (9) STATUS KD .1 . 

'' ' M2 10 y 038 

0039 


OOOA 


EQU 

ECCORtlQ ) CURRENT I/O WO.LOC. 

M21G0039 

uu4G 


00 G8 


EQU 

ELSTWD(ll) LAST+i WD.LOC. 

. MZIO-C u hC 

0041 


0 3 0F 


EQU 

RETURN(15) 

. -652 . M2100041 

0042 



■V- . 



M21yyU42 

0043 



if. 



H210Q0^3 

00 4 4 

; j . 

0 0 02 

‘ ' '■ ■■ 

EQU 

LPM.sk (2) 

' , ' M210a044 

0045 


0022 


• EQU ■ 

ZER0{$22)-, 

H210 0,0 4 5 

0046 



If. 



M2iu 0 045 

0047 


0 0 -23 


EQU 

ONEBIT{$23) 

' M211J.0 047 

0048 


0 0 BO 


EQU 

ASABStlBO) 

‘ ■ M210'0ij48 

0049 


OOBF 


EQU 

ANABS ($BF) 

H 210 DO 49' 

0 0 5 0 






M210 0 050 

0051 

POQOO 

0 800 

FNR 

NOP 


M2100051 

0052 

PG 001 

0 50 0 


IIN 

0 

M21C 0 05 2 


nfnr 


PAGE 


2 


date: jl/27/99 


0 0 5 3 

P0002 C8FD 

LDA^ 

FINDRQ 

SAVE RETURN ADR 

0 .0 5 4 

P0003 610F 

STA- 

RETURN,! 


0 0 5 5 

PO QO 4,.OCOO 

ENQ 

0 


0056 

P0005 410A 

STQ- 

ECCOR.I 

LU ASSIGNED TO DEVICE 

005 7 

POOQfa E1Q5 

LDQ- 

ELD , I 

0058 

PO 007= GO 00 

INQ 

0 


0059 

P0008 0147 

SQZ 

AD-^-1 


0060 

P0009 181A 

JMP^ 

CAA 



M 21 Q 0 u 5 3 
^-632 . M21Gu05^ 

’ H 21G b 0,5 5 
' M2lb.435d 
M21G 0 05 7 
' M210D058 

' ' ' M21jG. 059 
M21ii0a&0 


0062 POODA 5aG0 X AC 
POQOB 7FFF X 
0063,- PG.OCC’ C600 X 
■ POOOD' 7FFF X 
0064 'PQG0E..'90FF ■ 

006'5 POQOF-fllQ? 
fl0 6'6 POO‘IO-C1DA AD 
DO 6-7' POO IT" 0 822 
006:8 P0012 9C49 
uQo'9 P0’013':.'0 129 
0Q7i0 P0014.- CDOl 

0071 PCG15' 41CA 

0072 P0016 13F3 


RTJ ALTSU8 ' 

LDA L0G1A,Q 

SUB- -l'. 

SAZ ' AE-^-1 
LDA- , tSGOR, I 
TRA Q 
SUB^ iALOGl) 
SAP EXIT-’-l 
INQ 1 

S T 0,- EGCOR » I 
JMP» AC 


IF LU =v D IS ^DOWN , ■ SET _ Q = ALTERNATE LU 
INTERRUPTS AR€ ENAE-LED 

IF THIS L.U.' USES THIS'.' DEVICE, GO TO AE 
SEARCH 'ALL LU FOR THIS DEVICE 

MAX LU' HO 

IF SEARCH IS COHPLETEp, 60 TO EXIT 
SAVE LU NO FOR SEARCH 


M2100052 

M2i u j b 6 3 

H 21 ii C 0 0 4 
M2 10^0:00 5 
M 2160 056 
M2ia'0;067 
H210 0 0.68 
M2130li69 
' M21GUU70, 

H210 0u7i'' 
M21G'D 072 


00 7.-4 POQ-i-TOElG A ^ AE 
0C7:5 PO 018 ‘•0 50 0 
0076. P00i9'.41Q5 

0077 POaiA.ClOF 

0078 P001B'68E4 

0079 POOIG 1807 


LDQ- ECCOR,I 
IIH 0 
STQ- £LU,I 
LDA- RETURN,! 
STA^ FINDRQ 
JMP^ CAA 


REQUESTED LOGICAL UNIT . ' , ■M?ii0074 

‘ ■ M2lw 0,0/2 

ASSIGN THIS L.U. TO THE DEVICE H2iud,a7D 

'^632 M213U077 

M2 1 j 0 0 7 3 
H2100Q79 


OOSl POOID' 0500 ' . EXIT 

0082 POOIE OAOC 

00 8 3 POO IF 5105 

008, u P002Q ElOF 

CG35 P0G2l04e0 

0086 P0G22 1622 


IIN 0 
ENA 0 
STA- ELU,I 
LDQ- .RETURN, I 
EIN 0 

JHP- (ZERO),Q 


NO FURTHER REQUESTS FOR THIS 
FREE THE DEVICE 

RETURN TO ADR. OF CALL +1 


DEVICE M21G0.J81 

M2iGG082 
MPlGGOBo 
^632 ' M21JG03- 

M210008D 
M213 0 086 


0088 
008 9 


* 


DEVICE IS ASSIGNED TO A L.U, (I.E. , THE' L.U. ADDRESS IS IN 
WORD ELU IN THE PHYS DEV TABLE, AND IN Q) . 


M21C GG86 
M21 J 0 039 


0091 P0023.C600 X 
P0Q24 7FFF X 

0092 P0025 0900 

0093 P0025 0116 


GAA LDA+ LOG2,Q 

INA ’ 0 
SAN C8-»^-l 


IF THE THREAD 13 NOT EMPTY, GO TO CB 


M21UU j91 

M21GG 032 
H21j. 0 0 93 


0095 




THE THREAD IS EMPTY 


M21G u G3 5 



NFNR 


PAGE 3 

DATE: 01/27/99 




f""-, 

0Q97 P0027 CE34 


LDA^ (ALOGDiQ 

, CHECK THE TYPE 0/1 .BIT 


M2i0'0 09 7, 

o 


0098 P0028 OFCl 


ALS 1 



M, 2 .ip.oas 

. M21-PQ-99 


. 0099 P0G29 C122 


SAP 2 





■ 0100 P002A 0400 


EIN Q 



M 2,10,015 0 


o 

0101 P002B 18E4 


JMP^^ AD 

continue' SEARCH IF LU SHARES 

A DEVICE 

M210u'10l 

r-\ 

0102 P002C ISFO 


JMP^ EXIT 



H210Q102 

■ L_.-' 

o . 

ClOi^' P002D 6106 

CB 

STA- EPTR»I 

SAVE AODRES'S OF TOP 'REQUEST 

IN , THREAD 

4* OMZiOulG 4 

■ o 

Q105’P002E 0822 


TRA Q 

■ M 210 010 -5 


010 6'-P002F.,C202 


S'. LDA- -2,Q 



• ' M 210 010 6 



Oie.7:.>:‘P:OQ3fl- €105 


■ LOQ-ELU,!- 



■M 210 010 7 


o.;; 

0108-' PG031 0400 


EIN 0 



M210G108 

r\ 

01C9' PQ032 '6EF1 


STA^ tCAA + l),Q 

UPDATE THE THREAD 


, H 210 010 9' 

' O 


0110 PC033 C108 


LDA- EREQSTtI 



M21j0110 



0111\ P0 034.-- A01B. 


AND- LPMSK+14 



M2100111 


o 

0112 P0035;'B032 


EOR- ONEBIT+15- 

SET REQUEST IN PROGRESS BIT 


■ M2100112 

■ o 

■■ 0113;- P0036 6108 


STA- EREQSTiI 



M 210 0113 


0114 P0Q37 C109 


LDA- ESTATltl 



M2i0C114 



0115 PQ038 -AOZC 


AND- ONEBIT+9 

CLEAR STATUS WORD EXCEPT FOR 

M.M. ' BIT 

M 21 3 Oil 5 


n, 

, 0116 P0039-6109 


STA- ESTATl, I 



HZluUlib- 

o 

V. 

0117 '.P0D3A E106 


LDQ- ERTR,I 



, M210G117' 


0118 P003B C622 


LDA- {ZERO), a 



M 210 Gil 8 



0119 P0Q3C AOOO 


AND =NS3E0Q 

EXTRACT REQUEST. CODE 


M21UU119 


O 

PG03O 3EOO 






c 

0120 P003E 0117 


SAN CCX-^-1 



M21QDi2D 


0121 P0D3F C201 ■ 


LDA- i,a 

; DIRECTORY CALL 


M21G0121 



0122 ' P0040 ^610A 


STA- ECGOR,I 



M2i00i22 


p, 

- 0123 P0Q41 C204 


. LDA- 4,Q 

. SET STARTING 


M21u0i23 

o 


0124' P0042 -ElOF . 


LDQ- RETURN,! 

AND FINISHING 

^632 

M21G0124 


Cl25: Pflu43, 810A 


ADD- ECCOR,I 

ADDRESSES FROM 


M 210 G 12 5 



012S:.P0fl44 6108 


STA- ELSTWO, I 

THE DIRECTORY 


■ HZluSlZb 



. 0127 PQQ45 1201 


JHP- 1,Q 



M 210 0127 

o 


0128' P0S46 E2C3 , 

OCX 

LDQ- 3,Q 



M 210 012 8 

, . 

G129 P0G47 0F69 


LRS 9 



M2100129 



' 0130 P0048 A007 


AND- LPHSK+5 

MASK -FOR REQUEST CODE 

^^MSOS 

4. .71210 013 0 


o 

0131 P0O49-0FF0-, 


• LLS 16 



M 21 J u 13 i 

' o 

0132 P004A; A0 26 


AND- ONEBIT+3 



M210Qi32- 


013:3 P0 048 ODFE 


INQ - -1 



M21GU133 



0134 PG04C 014D 


SQZ CBG-»-l 

READ 


M2100134 


\ 

0135 ■ P004D -ODFE - 


INQ -1 



M21CG135 

• o 


0136 -P0D4E' 014A 


SQZ CBF-*-l 

WRITE , 

' 

■ M2i00l36 

v_.-' 


0137 P004F ODFD 


INQ -2 



M21Q-Q-137 



01-38, P0050 0147 


SQZ caE-»-i 

FREAD 


H210Q136 



0139 . PQ 051.- 0OFD 


INQ -2 



M 2100 139 

o 


,0140 ;PQ05,2: 0-144, ' 


SQZ CBO-^-1 

FWRITE 


- M21Gul40 


0141 P0053- 0DF7 - 


INQ -8 

MOTION 


M210ui^l 



0142 , PQ054 0-159 


SQN GO 

ALL OTHERS 


M210G142 



0143 P0055 1800 


JHP GDI 



MiilG 0 Ih-3 

, o 

L/ 

PG056 0010 ' 






o 







: O 

o 







O 

r") 







O 





...... ... , . ... 



- _ . _ - _ _ . . . . - . . ... 





V--' NFNR PAGE 4 DATES 01/27/99 


O; 

; .014 5 

.PG.Q57; 

0901 


CBD 

INA 

1 

. FORMAT' WRITE CODE = 3 


M2ljul45 


: . oi^t6 

■P0G58 

0901 


C8E 

INA 

1 

FORiiAT., READ' CODE = 2 


M21G 0,146 



0147 

P0059 

0901 


CBF 

INA 

1 

WRITE. CODE = 1 


H 210 01^,7 



0148 

P005A 

1802 


CBG 

JMP^ 

CBJ 

READ CODE = 0 


M 21 u oms 

C- 


0150 

P005B 

7FFF 

X 

ALOGl 

ADC 

LOGl 



M21UU150 

O 

0152 

P0Q5C 

B1G9 


CBJ 

EOR- 

ESTATl, I 



■ N 210 015 2 

o 


0153 

P0 05D 

6109 



STA-, 

ESTATl, I 



M2lJDip3 


'w 

015 5 






GET THE 

ABSOLUTE VALUE OF N AND S FROM THE 

RE QUEST 

M21U015 5 

Q 


G157 

poo§e' 

;■£! 06 


CO 

LDQ- 

EPTR,I 



:, ,v •,M-21,C015 7 

o 


0158 

poo5f. 

C622 



LDA- 

CZER0!,Q . 

GET FIRST WORD' OF REQUEST 

^^MSOS 

4 ,:IM2i0 015 8 


0159 

PQ060 

A031 



AND- 

ONEBIT+14 

MASK FOR. 0 PARAMETER 

^^MSOS 

•4 . CM210 0159 



0160 

P0061 

,0106 



SAZ 

CDA-^^-l 

A = Q 0 PARAMETER NOT SET — PART 0 

^‘^MSOS 

M..UH2100160 



0161 

P0062 

■C205 



LOA- 

5,Q 

GET THE STARTING ADDRESS 

^^MSOS 

4, uM 2100161 

o 


0152 

P0Gb3 

610A 



STA- 

£GC0R,I .. 

SAVE IN POT 

^--MSOS 

w# L'H^1.Q0 JLd2 


0163 

P 0 06-+ 

8204 



ADD- 

4 ♦ Q 

ADO NO OF WORDS TO FORM LAST-4-1 


4. u M2 10 016 3 



0164 

P0065 

61 OB 



STA- 

ELrSTWD,! 

SAVE IN' POT 

^^HSOS 

•T . JM 210 016 4 



0165 

P0066 

EIGF 


CDl 

LDQ- 

RETURN,! ■ 

PICK UP RETURN .ADDRESS 


M 210 016::' 

r-i 


. 0166 

P0067 

1201 



JMP- 

1,Q 

RETURN, TO CALL•^2 

^^-MSOS 

, - . 0 M21Q 0 lo 6 



0167 

P0068 

■54BD 


CD A 

RTJ- 

(ASA8S) 



M 21 ij u i b 7 



0168 

P0069 

'410A 



STQ- 

£GCOR,I 



M210 01o8 


o,\ 

0169 

P006A, 

•El 06 



LDQ- 

£PTR,I 



M210.0169 

; o 

017 0 

PO 06B- 

54BF 



RTJ- 

{ ANABS) 



_ M 2100 17 0 , 


0171 

P006C 

ClOF 



LDA- 

RETURN, I 

PICK UP THE RETURN ADDRESS 


■ ' ■■H2Iufl'l7l 



0172 

POQ60 

410B 



STQ- 

ELSTWO, I 



M21UG172 


o 

017 3 

P 0 06E 

0822 



TRA 

Q 



M2100173 

: O 

017 4 

POO 6F 

ClOB 



LDA- 

, ELS TWO, I . 



H21-jfll7 4- 


0175 

P0 070 

■810A 



ADO- 

ECCOR,! ■ 

PLACE LAST-H ADDRESS IN ELSTWO 


M210 017 5 



0176 

PQ071 

0121 



SAP •, 

OAA-^-1 



' M2130176 


O',;,. 

0177 

P0 072 

AOll 



AND- 

■LPMSK+15 



M210uir 7 

: O 

0178 

PQQ73, 

610B 


DA A 

STA- 

ELSTWO, I 



M210 0178 


017 9 

P0074. 

1201 



JMP- 

1,Q 

RETURN TO CALL 2. 


M21J0179 


, 

0180 








M21GU180 


0 

0181 


OOGO 

p 


EQU 

FINORQt FNR) 



M2100181 

Pi 

' 0182 





END 




M21u0l82 


o ' 

PGM= 

007 5 

{ 

L17) COM = 000 0 ( 0 ) ^ 

'DAT = 0000 { C) 



' O 

o 











0 

o 











; O 

Q 
r "'i 











, C 
< ) 



NFNR 


PAGE 


5 


date: Oi/27/99 


c 



E Q U I V 

A L E N 

C E S 




C' 

DEE. LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER ' 


0 0 u 0 . 

I 

OOFF 

( 000255) 

0 0 64 



0 0 35 

ELU 

00 0 5 

( 0 00,005) 

■ 00.57 , 

0 076, 0 083 , 0^107 


0 0 3 6 

EPTR 

.000 6 

(00.0006) 

-010^, ■ 

0117, 0157, .0169 


0 037 

EREQST 

00 0 8' 

(0Q,Q,SQ8) 

•.>■0110, 

'0113 .■ 


.0038 ■ 

. ESTATl 

'00 09 

(000009) 

'.0114, 

0116, U152, 0l5'3 


Q.G39. 

ECCOR 

.. OGOA 

{ OQODIO) 

■ 0 0 56, 

Q u.6i6 , '3, 0:7 1 , Lb 7'H , 0'.12 2,0 12 5 


Q Q4Q ■ 

ELS TWO 

■ OOOB 

( OOQull) 

0126, 

0164, ,;0172,, U'l/. — , 0173 


0041' 

RETURN 

. ODOF 

(GQ0015) 

‘0054, 

0077, ' 9084, 0124, 'G'165, 0171 

r~; 

0044 

LPMSK 

■ 000 2 

(000002) 

■ 0111, 

013 0, : 0'177' 


0 04'5 

ZERO 

• 0022 

( 000034) 

■ .;0086, 

0118, 0158 


0Q47 

ONEBIT 

0023 

{ 0D0035) 

0112, 

0115, 0132, 0159 


0 048 

A SABS 

0080 

(000189) 

0167 


0 

0 049 

ANABS 

flOBF 

(000191) 

0 170 



o 

o 

o 

o 

•0 

o 

o 

o 

o 


: C> 

C' 

o 

, 016Z, Q16S» 0175 , 

c 
^ o 
o 

: 

■ o 

: O 
: O 
; O 

■ o 
c 
o 


NFNR 


PAGE 


6 


DATE: .1/27/99 


S Y M B 0 L S 


DEF .LINE 

NAME 

ADDRESS 

REFEREN 

CEO AT 

LINE - NUMBER 

OOG7 

NFNR 

uOG 0 

0 0 07 

0181 


0 029 

, FNR 

OOOC 

0 0 29. 

0G78 

0 0 30 

FINDRQ 

OQOQ 

00 30 , 

0 05 5, 

0062 ■ 

AC 

GOQA 

0 072 



0 066 , 

AO 

DGlfl 

0 0,59 , 

0101 


0 0 7 4 

AE 

0017 

0 065 

C. 1 0 2 


0 081 

EXIT 

OOID 

0 0 69 , 


0091 

CAA 

0023 

0 0 50 . 

0 079, 

0109 

0104 

CB 

002D 

0 093 



0128 

ccx 

0046 

0120 



0145 

CBO 

0057 

0 140 



014 8 

CBE 

0058 

0138 



0147 

GBF 

0059 

0136 



0148 . 

CBG 

005A 

0134 

0 097 


0 15 0 . 

ALOGl 

D05B 

00 63 . 


0152 

OBJ 

^ 005C 

0148 



015 7 

CD 

005E 

^ 01 42 



0165 

GDI 

0066 

0143 



016 7 

COA 

0068 

0160 



0178 

OAA 

0073 

0176 





o 

o 

Q 

O 


O 

O 

C) 

C) 

o 


r'j 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NFNR 


PAGE 


8 


DATES Oi/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H 

SOLS 



AC 

0 06 2 

AD 

0 066 

AE 

■0 074 

ALOGl 

■' 0150 • 

ALTSU8' 

003 2 

CBD 

0145 

CBE 

0146 

CBF 

0 147 

CBG 

■ 0148 

CBJ 

015 2. 
0036 

DAA. 

017 8 

ECCOR 

0 0 39 

ELS TWO 

0 0 40 

ELU 

' ' 0 0 3 5 

EPTR 

FNR 

ZERO 

0029 

0045 

I 

0 000 

LOGl 

0031 

LOGIA 

, 0031, 

L0G2 

0031 


o 

o 

o 

o 

r') 

O 

o 

o 

o 

o 

o 

o 

C) 


A NA BS 

, 0049 

A SABS 

G'548. 

CAA 

u L 9 '1 ' 

' r q 

ccx. 

0128 

CD 

.L157 

COi 

j lb 5 

CDA 

cREQST 

0 037 

ESTATl 

003 8 

EXIT 

u ^ 8 1 

FINDRa 

LPHSK 

u 0 -f -f 

NFNR ' 

0007 

ONEbIT 

0 0*7 

RETUR''! 


o 

o 

c 

C'* 

o 

o 

,.-*N 

o 

o 

o 

o 


ADEV 


PAGE 


DATE: 01/27/99 


0 0 0 1 
000 2 
00 03 
00 0 4 
00 0 5 


* 


NAM ADEV DECK-ID M22 MSGS 5.0 

ALTERNATE OE.VICE HANDLER . 

MASS STORAGE OPERATING SYSTEM ytRSION g.. 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


S J M H A R Y - 1 3 2 ^ ^ 

M22u0 302 
M220u'uO 3 
H22uQ0u4 
M 22 j 0 u U 5 


00 0 7 
,000 8 

OQIQ 

0011 

0012 

0013 

G014 

Q015- 

0016 

0017 

Qoia 

0019 

0020 
G021 
0022 
0G23 
0024' 
002 5 


00 00 P 


00 DA 

0 0 05 
OOGE 
2 012 
OOEA 


ENT 

EQU 

ENT 

ENT 

EXT 

EXT 

ENT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EQU 

EQU 

EQU 

EQU 


0026 

0 0 46 
0053 . 
0086 


0027 

00F4 
0 0 02 
0 023 


0 02 8 

0 0 05 
0 0 06 


0029 



0009 


003 0 



0 0 31 ' 

0 0 02 


0032 



0 033 


3f 

003 4 



0 03 5 



0036 



0038 



Q039 


if. 

00 40 


if if 

0041 : 



0042 



0043 


■V- 

0044 



0Q4 5 




EQU 


HEX TO ASCII CONVERSION ROUTINE 


ADEV 
ADEV (^ ) 

OEVERR, ALTDEV 
GONVER 

ALTERr'' TABLE USED TO SAVE ERROR WORDS 

ALTSUB ALTERNATE LOGICAL UNIT SUB. 

QUMALT DUMMY ALTERNATE LU NO. 

LOG! , LOGIA, L0G2 
RELBYQ 
SWTCH 

■UMPIO ,UNPIOF 
SYFAIL 
■NNdO) 


^ ^MSO S 
^^MSOS 


.1^- 
. . 1 ^ 


UNPROTECTED I/O FLAPS ^^HcOS 

SITE FAIL LOCATED IN SYSDAT {$18FF) 

MAX NO ’OF ALTERNATES IN A SIMGLt CHAxN 
COMMUNICATION REGION ADRS 

FNR{$85) 

LEVEL(14) 

N'ZERO (S 12) iDISP ($EA ) 


EQU TEN t $46) ,ZROBIT ($33 ) , COMP ($86) 
EQU AHONI ($F4) ,LPMSK(2) ,0NEBIT($23) 


PHYSICAL, DEV TABLE WORDS 
ELU(5) ,EPTR(6) ,ESTAT1 (9) 


CALL PARAtiETER WORDS 

EQU PT(2) 

THIS MODULE IS ENTERRED FROM A DRiVcR WHEN A 
DEVICE HAS FAILED. IT ATTEMPTS TO SWITCH TO AN 
ALTERNATE IF POSSIBLE. FAILING THAT, IT, RtQUESTS^ 
OPERATOR ACTION. IT IS ENTERRED VIA A JUMP WITH 
Q SET AS FOLLOWS 

BITS 0-5 ERROR’ CODE 
BITS 6-15 LOGICAL_U,NIT__NyMBER; 

if. - w w w w w w ^ 


^ ^ ^ 


THE ABOVE DOES NOT APPLY ,IF Q IS MINUS ./ CERT AI N DRIVERS HAVE 
EXCPEDEO THE ERROR CODE Held IN Q, SO- THESE DRIVERS; NOW PASS 
Q THE LOGICAL UNIT IN THE UPPER 8 BITS AND THE ERROR CODE IN 
THE LOWER 8 BITS. BIT 15 IS SET AS A FLAG. 


IN 


M222 u -J u 7 
H22u 0008 

M22C 0010 
M220fiflll 
M2200012 
M22D 0 013 
M 220 0 0 It 
M2 2,3 0 315 
H-122 0,u.316 
^M2 20 0 01 7 
M 22 D 0 3 1 8 
j M 2 2 0 u u 1 9 
M22 3 uu2b 
M220 uu21 
M2200322 
M220u023 
M 22 0 0 02 t 
M22^GQ25 

M22.3026 


M 2 2 3 0 ii'd 7 


. H22j 3 0 28 
■ M223 t:029 


H 22 3 0 03 0 
M22u G u31 
M22bu332 
M 220 0 05 3 
M 223 0,03 T 
M22 3 3 0 3 5 
M 2 2 0 0 3 3 6 

M22Sa 038, 
M 2 2 j u Li 3 9 
,M22Gaa4i. 
H22D b u4l 
/H22j0042. 

M2cLi.ibbT3. 

M220 3 0t4 
M22^ 0045 


ADEV 


PAGE 2 


DATE: 1.1/27/99 


0 0 46 
0 0 47 

00,49 . POOOG 54F4 
0 05 0 POQGl 5'20E 
0051 P0002 0004 P 
GQ52 P0Q03 14EA 


if- V- V- ^ >r if- a- V- if- if- if- if- if- If. tf. if. if- -if. If-ififlfif if if if If if ^ if if if if if if ifif if If if If if if If If if If If lflfiflf^ If if If if ^ if if If 


M 22 0 u 0 HO 
H22U0047 


ALTOEV RTJ- (AMONI) SCHEDULER REQUEST 

VFD Nl/0 ,N1/1 ,N5/9,N1/Q ,N4/0 ,X4 /LcVEL 
ADC ALTGO 
JHP- (DISP) 


\ .M22Q0a49 

^^^MSOSH.’0H2,2,0.u'J5i3 
.'OMZEO uOSl 
M220u052 


0 0;5 4 
QQ55 
0 0 5-6' 
00 5 7 
0058 

005 9 

006 0 
0 u 6 1 
0G62’ 
0 0 5 3 
GO 6 4 
0 0 6 5 
CQ66, 
0067 
0063'^ 
0059' 
0 370', 
0071 
0072' 
0073 
00 7 4 


P 0 0 G-- 


P Q 0 07 




THE 

ERROR COD 



CODE 

ARRANGES 


if- 

AND 

THE ERROR 

0163 

ALTG3 

SQP 

ALTO 

0 814 , 


TRQ 

A 

B032 , 


EOR- 

ONEBIT+15 

1806 


JMP«^ 

ALTl 

0A3F 

ALTG 

ENA 

$3F 

08B4 


LAQ 

A 

0F26 


QRS 

6 

GFA8 


QLS 

8 

0 8 74 


EAQ 

A 


PQQOD 

POOGE'. 

POOOF 

PCOIG 

POQll 

P0012 

P0013' 


685F 
OF 48 
0111 
14EA^ 
£85E 
CE5G 
0102 


ALTl 


ALT 2 


STA* 

ARS 

SAN 

JMP- 

LOQ^. 

LDA^ 

SAZ 


SAyERR 

8 

ALT2 
(DISP) 
QISAV 
(ATAB) , Q 
ALT5-^-l 


STRIP FLAG 


SEQ FOR LU AND ERPiOR CODE IN Q 


TWO FORMATS, SO TH.E FOLLOWI ‘J GH22,a 0 05 4 
3 REGISTER TO Hf;VE THE,;LU IN THE UPPER 8 BITS M 220CG55 
IN THE LOWER 8, -.BITS. , ' ; M£2O0a56^ 

M22JuJ5'7 
M22GU058 
M 22 COO'S 9 
M22,0y06 0 
■ , , H22,3 0'o51 
M22,3,U’u62 
H 22C’0 065 
‘ M223 0 0,04 

M 22 u 0 u o 5 
H22L 0 06& 
M22E0 067 
M220 0 u63 
M2200 069 
M22u0070 
M22Cuj71 
M22u0,u72 
, M 22.3 0 0 73 
M220 0 37 4 


SAVE LOGICAL 
CHECK FOR LU 


UNIT 

ao 


AND ERROR CODE 


CHECK FOR SPACE IN ERROR WORD TABLE 


00 7 6 

POO 14 

5400 

X 

RTJ^- 

SYFAIL 


P0015 

7FFF 

X 



0077 






0079 

P0Q16 

40FF 

ALT5 

STQ-, 

I 

008 Q 

P0017 

E855 


LDQ^ 

SAVERR 

0081 

P0018, 

0F28 


QRS 

8 

0082 

P0Q19 

•4859, 


STQ» 

HASRLU 

QG83 

POOiA 

5C53 


RTJ^ 

(XALTSB ) 

008 4 

POOIB 

4856 


STQ» 

HASHED 

008 5^ 

POOIC 

C850 


LDA» 

SAVERR 

0086 

POOID 

0FC8 


ALS 

8 

0087 

POOIE 

OF 68 


LRS 

8 

0088 

POOIF 

68 4D 


STA^ 

SAVERR 

0089 

P0B20 

E851 


LDQ» 

HASHED 

0091 

P0021 

CE52 


LDA^ 

{ ALOGl) ,Q 

0092 

P0Q22 

6838 


STA^ 

HAS7 

0093 

P0Q23 

AQOO 


AND 

= NS9FFF 


P0024 

9FFF 





IRRECOVERABLE ERROR,- HANG 
INCREASE SIZE OF TABLE ALTERR 

I = QISAV , , . 

IF LU SPECIFIED IS ALREADY 00$-IN 

THEN GET LU OF ALTERNATE THAT FAILED 

Q = LU THAT FAILED, A = ERROR WORD- 

CHANGE LU NO IN ERROR WORD 
SAVE ERROR WORD 

MARK THIS LU DOWN 


■N22J,Q075 

M22U0077 


M22UJ 079 
M22 3 u 0 8 U 
M22.0u81 
H 22d U 0 8 2 
' . H220a083 
' M220 GQ84 
M22Sj'aQ3 5 
' M22a01J86 

' ,,M22u 0,087,„ 

■ ' - M220 0 388 

M22QQ 069 

■ ''M220 0 09i' 

• M223 0 09'2 

M22a0093 


3 


date: 01/27/99 


AOEV 


PAGE 


0094 P0Q25 BQuQ 
PQG26 6000 
CG95 P0027 6E4C 
0096 P0028i'5C45 

0097' poazg; 0156 

0098 .;PQD2,A. E847 
0099' PO 02B. C8 2F 
0100 P002B'6E47 
010 1 POQ2D' CE65 . 

010 2 P0 02E' 60FF 

0103 PQ02F 182C 

0104 P0030 4860 HAS4 


EOR =NS60QQ 

STA^ (ALOGl) ,Q 
RTJ^ (XALTSB) 
SUN HAS4-^-1 
LDQ^. HASHED 
LOA^. HAS7 
STA^ (ALOGlStQ 
LDA^ (ALOGlA),Q 
STA- I 

SCHNC 
STQ» HA3LU 


MARK LU DOWN AND SET TOi TYPE I 


M 220 0 09-^ 


IF LU, = Q IS DOWN, SET Q = ALTERNATE lU 
FAILED LU 

RESTORE LU L,OGl STATUS 


NO ALTERNATE ASSIGNED ^^NSOS 

SAVE ALTERNATE LU 


M22.0_95 
M22j0.096 
' M 220 0 09 7 
, ■ M22D 0.098 

M22U0099 
' <H220 0'ia0 

M220ul0l 
: . H22001Q2 
w.i^^M220G103 
H220 0104 


0106 
0107 
010 8 


HA3LU NOW CONTAINS THE LU OF THE ALTERNATE 
» HAS'RLU contains THE ORIGINAL REQUESTED LU 

^ AND HASHED CONTAINS THE LU THAT FAILED 


M 220 G 10 6 
H2230107 
M2H0G1G8 


0110 P0031-E840 
Gill . P0032 £E60 
0112, P0G33 0206 

0113 P0034'60FF 

0114 P0035 E830 

0115 PGQ36 0500 

0116 P0037 CE5C 

0117 P0038 6102 

0118 P0039, COFF 
0119' P003A 6E59 


LDQ^. HASHED 
LOQ^ {ALOGlA),Q 

LDA-r EPTR,Q LOCATION OF CURRENT REQUEST 

STA- I 

LOQ’- HA3RLU REQUESTED LU 

IIN 0 

LDAf {AL0G2),Q RETHREAO THE REQUEST 

STA- PT,I 
LDA- I 

STA^ (AL0G2) ,Q 


M220G110 
M2200ill 
M22U0112 
H 2200113 
M 22a oil 4 
M220o 11 
M 220 oil 6 
H22 j; 117 
M22oull8 
M22ooll9 


0121 P0038 0400 

0122 P003C E835 

0123 P003D CE55 

0124 POQ3E:60FF 

0125 P003F' 0844 

0126 P0040 6105 


EIN 0 
LDQ»' HASHED 
LOA^ iALOGlAj^Q 
STA- I 
CLR A 
STA- £LJ,I 


LU THAT FAILED 
I = POT, ADR OF FAILED 0£V. 
CLEAR FAILED DEVICE TABLE 


M 220 0121 
M22oQ12 2 
H 220 0 l2 3 
M22fl012^ 
M22G0125 
M22aGl26 


0128 ,P00h1 ,E84F 

0129 P0042 CE31 
013,0 PQii43 A041 

0131 , PQ044 BO 31 

0132, P0045. 6E2E 

0134 P0046vEC28 
0135' PQG47. C825 

013 6 P0048 9E26 

0137 P0049 0103 

0138 P004A 9DFE 

0139 P004B 0142 

014 0 PQ04C 18 FA 


LDQ» HASLU 
LOA^ (ALOGl) ,Q 
AND- ZROBIT+14 
EOR- 0NE8IT+14 
, ,STA- (ALOGl) ,Q 

• LDQ^ (ATAB) 
HAS3 LOA^ SAVERR 

SUB^ (ATA8),Q 
SAZ HAS3A-^-l 
INQ -1 

SQZ HA33B-^-l 
JMP^ HAS 3 


SET ALTERNATE TO TYPE 1 


SEARCH TABLE FOR THIS E.RROR 
SKIP IF END OF SEARCH 


M22U0128 
M22G0129 
H.22U013Q 
M22GQ131 
M22j u 132 

M 220 013 4 
'M22&G13 5 
M22a0136 
M22QQ137' 
M22G 0138 
H 22 00139 
H22:j0 140 


ADEV 


PAGE 


DATES Oi/27/99 


'■ I 


o 


uiAl POOAD 681F -. : HAS3A ,;STA»/-SAVERR-. 


SET SAVERR;. =’, G .IF ERROR- IS ALREADY IN TAB-LE ,,H22GGiAl 


/ 




o 

o 

o 

o 


G143 

014 4 
0145 
0146' 
0147- 
.0148 
0149 

01 5 G 

0151 

0152 
Q15 3 
0154 
015 5 
0156 


0153 
0l5'9v 
016 0 
016-1 
016 2. 
0163- 

0164 

0165 

0166 
G16 7 
0168 
0169 
0170- 
0171 


Pfl 04E 
PQ04F 
PQ050 
P0 051 
PC 05,2 
P0Q53 
P0 054 

P0055 
POOSB 
P0057 
P0 058 
P0059 
Pfl 05 A 


E8 42 
EE 43 
0500 
C205 
0101 
1808 
0814 

6805 
C.8 1C 
6205 
54F4 
2000 
0000 


P 0 05 B 
P0Q5C 
P005D ■ 
P005E 

P005F 

P006Q' 

P0Q61 

P0062 
P0063 
PO 064 
P0Q65 
P0 066 


G834 
0115 
0 804 
6831 

54F4 
52-+4 
-0 0 74 P 

E8 CD 
-C8Q9- 
0111 
14EA 
6E08 


HAS38 


HAS6 

V- 


HAS? 


SCHN3 


LDQ^ 

LDQ^ 

IIN 

LOA- 

SAZ 

JMP^^ 

TRQ 

STA^^ 

LDA» 

STA- 

RTJ- 

ADC 

NUM 


HASLU 

{ALOGIA) ,Q 

0 

£LU,Gl 

HAS6-^-l 

SCHNC 

A 

HA37 

HASRLU 

ELU,Q 

CAMONI) 

$2000 

0 


-UU OF ALTERNATE 


IF THE ‘ALT- DEV, NOT- BUSY 
SCHEDULE THE DRIVER, 

GO TO SCHDL LVL 4 SECTION 


SET DEVICE BUSY 


SCHEDULE DRIVER VIA'PHYSTB 


»^MSOS' 


^USOS 




' M22Qu 
H229 0 
‘ M22u0 
H220 0 
M22u0 
^M‘22-u0 

M22JU 

M220 0 
H22Q0 
N22ufl 
M22.G 
M2200 
-M22Q 0 
H220fl 


143- 

144 - 

1,45 

l4S 

i-t? 

148-- 
1^9 
15 u 

151 

152 

153 
15 4 
,15 5 
15 o 


lda^- FLAGX 
SAN SCHNX-^-1 
SET A 
STA^ FLAGX 


IF NOALT 
SCHEDULE 
SET BUSY 


SECTION NOT 
IT AT LEVEL 
FLAG 


BUSY 


RTJ- CAMONI) 

VFD N1/0,N1/1,N5/9,N1/Q ,N‘-/-^,N4/4 
ADC NOALT SEARCH FOR MORE 


ENTRIESON COMP 




^MS0S4. 

’•MSOS4. 


SCHNX 


LDQ-» 

LDA^ 

SAN 

JMP- 

STA« 


aiSAV 

SAVERR 

1 

IDISP) 
(ATAB) , 


Q 


0172, 

P0067, 

■ODFE 



INQ 

-1, • 

01'7,3 

P0068. 

01 51 



SQN- 

1 

017 4 

P0069 

EGOS 



LDQ^ 

(ATAB ) 

0175 

P006A' 

4805 



STQ^ 

QISAV 

0176 

PGG6B 

14EA 



JMP- 

(DISP) 

0178 

poaec 

OOQG 


SAVERR' 

AOC 

0 

0179 

P0Q6D 

015E 

P 

XALT3 0 

AOG 

ALTSU8 

G18 C 

P006E 

7FFF 

X 

ATAB 

ADC 

ALTERR 

0181 

PG06F 

aoQi 


QISAV ■ 

NUH,. 

1 

0182, 

P007'fl 

0001 


a2SAV 

NUM 

1 

0183 

P0 07'l 

oaol 


HASHED 

BSS 

HASHLOdT 

0184 

P0072 

00 01 


HAS RLU 

BSS 

HASRLU ( 1) 

013 3 

P0073 

7FFF 

X 

ALOGl 

ADC 

LOGl 

0187 





MESSAGE OUTPUT 

0188 





HAVE 

NO ALTERNA 


INDEX TO ALTERR TABLE 


EXIT IF SAVERR = 0 
SAVE ERROR WORD IN TABLE 
UPDATE AND- SAVE,: INDEX TO 
SKIP IF NOT END-OF TABLE 
SIZE OF TABLE 


SUB. TO SET Q=ALT. IF LU 
ADR OF. ERROR WORD BUFFER 
INDEX FOR. READING IN TO 
INDEX FOR READING' OUT OF 


ALTERR TABLE 


IN Q. IS DOWN 
TABLE 

ALTERR TABLE 
ALTtkR TABLE 


AND 


HANDLING OF DRIVERS THAT 
IS DONE AT LEVEL 4 


M22J 0138 
M 220 0159 
M 2200160 
M 22 0 0,151 
M22G0162 
M 22 flu 16 3 
0 H 22 fl fl 1,6 4 
0M22,'u'0'16 5 
M22u0l66 
M22flfll67 
M2200158 
M2£0 0169 
M2'2a0l70 
M22Q0171 
M2200172 
M220fll73 
H2 2u u 17 4 
H 220 017 5 
M 2200176 


M22G 

M22i: 
M22D 
H22Q 
M2 2 0' 
M220 
M220 
M22Q 


017 8 

0179 

018u 

0181 

Q132 

a 18 3, 
ai84 
0185 


M220ei87 
M 220 018 8 


c": 

O 

O 

o 

O 

o 

C) 

o 

o 

o 

o 

c 

o 


o 


o 


ADEV 
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date: 01/27/99 


019C P0074 E8FB 

0191 P0075 0500 

0192 P0076 'CEF7 

0193 P0077Q112 
G194 

0195 P0078 6817 

0196 P0Q79 14EA 


NOALT LOQ^ Q2SAV 
IIN 0 

LDA^ (ATAB),Q 
SAN NOALTX-^-1 

■f- 

STA^ FLAGX 
JMP- (OISP) 


GET NEXT ENTRY FROM ALTERR TABLE 
INHIBIT INTERRUPTS 


SKIP 'IF ENTRY FOUND 
OTHERWISE 
CLEAR BUSY FLAG 
EXIT 


H22yUl9 0' 
H 220 01 91 
H22DQ192 
H22D0193 
M 220 0 19 4 
M22UG13 5 
N 220 0196 


0198 

0199' 
02G 0 
0 201 
0202 

0203 

0204 

0205 

0206 
0207 
020 8 

0209 

0210 
0211 
0 212 
0213 
021.4 

0215 

0216 
021 ? 


P007A 

PO 07B ' 

P0G7C 

P0 07D' 

P0 07E 

P007P 

P0080 . 

P0081 

POOB2 

PQ08,'3 

P0 0 84 

POO 85 

PQ086 

PQ087 

P0088 

P0089 

P008A 

P0088 

P008C 

P008D 

P008E 


6800 NOALTX STA- NOHOLD 
0 0 78 

0400 EIN 0 

■OF 48 ARS '8 

686A STA=^ NOLU 

OAOO ENA 0 

6EE0 STA» {ATAB),Q 

G0EE LOA^ Q2SAV 

09FE INA -1 

0111 SAN 1 

CCE9 LOA^ (ATAB) 

68EA STA^ Q2SAV 

E862 LDQ"^ NOLU 

CEOB LOA^ (A 

60FF STA- I 

CEE9 LOA^ fALOGl) ,Q 

AOOC AND- LPMSK+10 

0822 TRA 0 

5CF0 RTJ^ (XALTSB) 

0156 SON NOA'--^-l 

1822 JHP*^ N03 


SAVE LU 

CLEAR ENTRY FROM TABLE 

UPDATE INDEX TO ALTERR TABLE 

SKIP IF NOT END, OF TABLE 
SIZE OF TABLE 


SET UP 
BASE POT 


IN I 


Q = LU OF FIRSt^ ALTERNATE 
SET Q= ALT. IF LU, IN Q IS DOWN 

NO ALTERNATE ASSIGNED 


^^'^^MSOS-. uM22jfll98 


M22U0199 
H22o0 200 
M22J0 201 
M2200202 
M220C203 
M220C204 
M223 020 5 
H22302UB 
M.22j0 2G7 


M220 0208 
H22jU'209 
H220G21G 


M220e2ii 
H2200212 
M2200213 
H220 0214 
M 220 0 2-1 5 
M22y 0216 
M220 0217 


0219.PQ08F 0001 FLAGX BZS 

0220 P0Q9.G 00 01 HASLJ BSS 

0221 P0091 0001 HOLOAL BSS 

0222 P0092 7FFF X ALOGIA ADC 

0223 P0Q93 7FFF X AL0G2 ADC 


FLAGX (1) 
HASLU (1) 
HOLDAL(l) 
LOGIA 
L0G2 


M220 u 21 9 
H220 G22 0 
H2Z^ G221' 
M220 0222 
M2200223 


0225 


^ THIS SECTION OUTPUTS THE MSG IF THE ALT IS OK 


M22. u225 


0227 P0094 48FC NOA 

0228 P0095'.e808' , 

0229 P0096 soil 

023G P0097 0106 
0231 P0098 CAFF 
0232.^ P0Q99 68 03 ; - 

0233-.P0 09A EOFF 
0234. PO 09B 54F4 

0235 P009C 5200 MRINA' 

0236 Pfl09O 7FFF X MAS3Q0 

0237 P009E C84A NOB 


STQ^ HOLOAL 
LOA« MA33QG 
FOR- LPMSK + 15 
SAZ NOB 
LDA- (I) 


STA». HRINA 
LDQ- I 
RTJ- ISF4) 
NUM , $5200 
ADC RELBYQ 
LOA^ NOLU 


SAVE ALTERNATE LU 


GET ,PDT ADDRESS . , . ^,^.MSOS 

SCHEDULE HAS300 Af, DRIVER PL ' (MASQRV) ^^MSO$L . 
RELEASE DRIVERS CORE IF ANY 
LU THAT FAILED 


M22: 0 22 7 
H220 G'22 8 
M220 G229 
M220 U23G 
M22-J 0231 
M22v 0 232 
4M22 0 0 23 3 
M220O234 
CM 220 0 235 
M2230236 
MZ2y 0 23 7 


DATE: 01/27/99 


0238 

0239 
0 24 0 

0241 

0242 
024.3 
0244 


P009F 

PO.OAO. 

POOAl 

P00A2 

P00A3 

P90A4 

P.D 0 A 5' 


5B4A 
68'55 
C852 
AOOA 
53 46 
6856 
esEB 
5843 


C252 POOAF 14EA 

QZ5^ 

0 25 5 


RTJ^ 

STA’^ 

LDA» 

AND- 

RTJ^ 

STA^ 

LOA^ 

RTJ* 


CONVRT 

HASMSl+1 

NOHOLD 

NZERO-8 

CONVRT 

HASMSH- 6 

HOLDAL 

CONVRT 


O ' 

0246 ■ 

RQ0A7 

6857 

STA^ 

HASHS24- 

024 7 

P00A8 

54F4 

RTJ- 

(AMONI) 


0248 

P00A9 

4CF4 

VFD 

N1/D»N1 


0249 

POOAA 

0 0 74 P 

AOC 

NOALT 

o 

G250 

■PGOAB 

0 0 00 

NUM 

0 ,$18FC 

0251 

POO AC 
POOAD 
POOAE 

18FC 
flOOC 
0QF4 P 

ADC 

HASMSl 


CONVERT LU 
STORE IN 
ERROR WORD 


TO ASCII 
MESSAGE 


CONVERT ERROR CODE TO ASCII 
AND STOR IN MESSAGE 
ALTERNATE LU 

CONVERT ALTERNATE TO ASCII 
AND STORE IN MESSAGE 
ALTERNATE LU MESSAGE 
3,Nl/utN h/15 ,N-/..r 
SEARCH FOR MORE ENTRIES ON 


JMP- <DISP) 


WAIT FOR COMPLETION 


THIS SECTION IS.' ENTERED AT LEVEL -r 
WHEN NO OPERATIONAL ALTERNATE EXISTS 


025 7 
0 25 8 

0259 

0260 
0261 
0262’ 
0 26.3- 
0264- 

0265 

0266 
0267 


0268 


POOBG 
POOBl 
P0082 
P00B3 
P00B4 
■ P0 0B5' 
POOBfa 
.P0087 
P00B8 
P00B9 
POO BA 
POOBB 
POOBC. 
POOBD- 


0838 

5838 

6843 
■C840 
AOOA 
5834 

6844 
5hF4 
4CF4 
0 0 G Q 
0 0 0 0 
18FC 
0007 
0 0F4 


LDA^ NOLU 

RTJ^ CONVRT CONVERT LU TO ASC.II AND 

STA» NOMESl+1 STORE IN MESSAGE 

LDA^ NOHOLO 
AND- NZERO-8 

RTJ^ CONVRT CONVERT ERROR CODE TO ASCII 

STA^ NOMESl+6 AND’ STORE IN MESSAGE 

RTJ- (AMONI) TELL THE OPERATOR 

VFD Ni/0 »Nl/i, N5/6,Nl/0 ,N-^/l^, Nh/4 
ADC 0 

NUM 0,$18FS,7 


AOC NOMESl 


027 0 


REQUEST ACTION BY THE OPERATOR 


0272 POOBE. OAFF 

0273 PQQBF'6845 

0274 P00C0;'54F4 
0275- P00C1V4CF4 
0276 PG0C2 0000 
Q277 P0QC3 0000 

P00C4 18FC 
PQ0C5 OQD4 
0278 POOC6 0100 


ENA -Q. 

STA» BUF 
RTJ- (AMONI) 

VFO Nl/0iNl/l» N5/6,N1/Q,N-/15» N4/4 
ADC 0 

NUM 0,S18FC»4 


ADC N0MES2 


o 


: O 

: 

o 

C'^ 

o 

r"\ 

o 

o 

o 

■ 

• o 
o 
’ o 


o 


ADEV 


7 


date; oi/27/gg 


PAGE 


0280 ^ GET OPERATOR INPUT VIA COHNENT INPUT MEDIUM M 2200280 



u282=P0QC7 54F4 



RTJ-,' 1 AH ON I) 


M220,0232 


028 3i-POQC8vA8F4 



VFD .. Nl/0.Nl/l.N5/4,Ni/Q,N ^/15,N*+/-* 

, 0M22U.U 283 

D 

028 4 POOCg -OOCF 

P 


ADC. N05. 


■ ' . UH220-U 23n 


; 0285 POQCA.OOOO 



NUH' u,$l8FD 

» 1 

M22EQ285 


. PQ QCB. 18FD 
POOCC: 0 0 01 



ADC BUF 


, - 

o 

0286 POOCO 0104 

P 



' ^-^HSOS-. uM22G028d 

028 7 POOCF 14EA 



JMP- (DISP) 


M2200287 


G 28 g 



AT THIS riMEt 

' T:HE LEGAL OPTIONS IN BUF CAN BE 

M 22 10.269 

, 

02,90 



1. RP 

- REPEAT REQUEST ' 

M22,u,J29Q 


0291 



2. CU 

- CONTINUE' - KEEP- DEVICE UP 

' M2afi'C,291 

r'""! 

0292 



3. CO 

-CONTINUE - MARK' DEVICE OPHN 

M2230292 


0293 



., 4 OU 

- DELETE JOB - KEEP DEVICE :UP 

M2200293 


0294 



,, ' 5 DD 

- DELETE JOB - MARK DEVICE DOWN' 

M22D0294 


0295 





M22'j 0 29 5 

o 

029 6 


-V- 

ANYTHING ELSE 

CAUSES REPETITION OF THE ACTION 

M220U296 

029 7 



PRINTOUT. 


H2 EGG 29 7 

r'-. 

V.'' 

0299 POOCF '0161 


N05 

SQP . 1 

NO 10 ERROR 

^^‘‘MSOS ■'r.l!^^M2200293 

Q3,0C, -POOOfl" 18E0 



JMP^^ NO 2 

10 ERROR OR TIMEOUT, REPEAT 

-^HSOS -r.l^^M22Guou: 


030'1' POODl C833 



LDA^ :BUF 

CHECK DATA INPUT 

M22D,u 3Q1 


0302 'P0OD2 9833 



SUB^ RP 


M22,0 u 3u£ 

O, 

0303 PC0D3 0112 



SAN NOo-^-i 


M22GG3G3 

. 030*+ PO0D4 1800 



JMP, A 

ITS REPEAT 

H22,00 3Q4 


P00D5, 0 0 33 







030 5’ POOO-6 8330 


N06 

AOD^ CU 


M22i'G30 5 

o 

030o P00D7 0112 



SAN N07-^-l 


M22005G6 


0307 PD0D8 1800 



JMP B 

CONTINUE 

M22JU3G7 


POQ09 0 0 43 







,0308 PQODA 0911 


N07 

INA Sli 


M22G0,3D8 

('***'/ ■ 

• ^ 0309 POODB 0112 



SAN N08-^-l 


M22j 0 309 


,0310 ROCOC 1800 



JMP C 

CONTINUE DEVICE DOWN 

M22G0310 


PQOOD 0048 






r ■ 

,0311: POQDE 9829 


N08 

SUB^ OU 


M22Gu 311 

Q' ' 

0312 POODF 0112 



SAN N09-»-l 


M22uG 312 

,0313 POOE0.1800 



JMP ,0 

, , JOB DELETE 

M220a 313 


POQEl, 0065 







, 031'4 PQ0E2 0911 


Nog 

INA $11 


H22GU314 

O, 

0315' P00E3- 0112 



SAN NOIQ-^- 

1 

M 22i. u 31 b 

..Q316.,P00E4 1800 



JMP E 

JOB DELETE DEVICE DOEN 

M22j u 316 


,PQ0E5 QQ73 







0317,:P00E6 OBOO 


NOIC 

NOP Q 

DONT KNOW - TRY AGAIN 

' M22ju317 

o 

0318 .P0QE7 18D6 



JMP^ N02 


M22Gu 316 


, I 


O 


NOLU 


^••^MSOSO . G’^^‘M220a 22 0 


O 


O 

C 

c 

o 

O 

o 

o 


o 

o 

c 

o 


o 


0320 P00E8 QOQl 


BSS NOLU(i) 


o 



date: Gi/27/99 


HEX TO: ASCII- CONVERSION 
A-REG =- S09 TO $63 ON ENTRY* *, 
ROJTINE CONVERTS TO DECIHAL 
AND RETURNS WITH ASCII CHARS IN A 
THE a-REGISTER IS NOT SAVED 


P00E9 OQOO CONVRT NUM 0 

PGOEA 0500 IIN 0 

POOEB OCOO , ENQ 0 

POOEC 30A6 DVI- TEN 

POOED 0FC8 ALS 3 

POOEE 083A AAQ A 

POOEF -8000 AOO =N$3030 

POOFO 30 30 

POOFl 0400 EIN 0 

P0DF2 1CF6 JMP^ (CONVRT) 


HEX TO ASC CONVERSION 


MSB IN A, LSB IN Q 


TWO ASCII CHARS IN'.A-REG 


PGi]F3 

POOF^t 

POOFS ■ 

P00F6 

P00F7 

POOFS 

P00F9 

POOF A' 

POOFO 

PQOFC 

POOFO 

POQFE 

POOFF 

POIGO 
POiOl 
PQ1G2 
P01D3 
■ PO i 04 
' POlO 5 
■P0106 
P01G7 


0 0 01 
,4C2C 
2 0 20 
2 0 46 
^+149 
4C45 
4420 
2020 
20 00 
41 4C 
542C 
2020 
20 00 
00F4 
4143 
54 49 
4F4E 
20 00 
00 01 
■5 2 50 
OEFB 
0111 


NOHOLO BSS NOHOLD(l) 
HASMSl ALF 7,L, FAILED 


NUM' $ 2000 
HASM32 ALF 3, ALT , 


NUM $20 00 

P N0ME31 EQU NOMESl (HASMSl) 
NOMES2 ALF 3, ACTION 


NUM $20 00 
ess BUF(l) 

ALF. 1,RP 

NUM $EFB ■ ■ 

NUM- $111 

THIS ROUTINE PROCESSES THE REPEAT OPTION 


P0108 
PQ109 
POlO A 
POIOB 
POIQC 
PQIOD 
POIGE 
POlOF 
PO 110 


E8 00 
FFDE 
■GE51 
■:0 8 22 
,680E 
C206 
■ 60FF 
E8 00 
FFD7 


LOQ NOLU 

LOA» (6L0G1A ) 
■ TRA Q 
STA^ A1 
LOA- EPTR,Q 
STA- I 
LOQ NOLU 


P.O.T. ADDRES3"TO Q ■ 
SCHEDULE DRIVER DIRECTLY 
REQUEST PARAMETER ADDRESS 

LOGICAL UNIT 


u 


M22DQ 32 2 
-':M22G0o23 
; H 220 0 32 4 
M22 0G'32 5 
M22 j 0 32 6 

' M2200323 
; N 220 0' 32 9 
M220 0'350 
M2200 331 
M22Q0 332 
M22G0353 
M223 0 33-i 

M2200335 

N2230336 


M2230338 
M22u0 339 


M22Q0 340 
M22uG 341 


M220 0 342 
M 22G 0343 
M22- 0 


H22u0345 
M 225 0 3irb 
M220 0347 
H22i)0 3t8 
M22 j u 34 9 
M22u0350 


M22 00352 

.M220Q353 
6 3 ■''".I'Alf ; M22D0 35 4 
&5.^1417.'. ■:M22a0355 
6‘5^1-+1/' M22 jQ35o 
65^1417 '".M22Q 0357 
'65-^'mi7 'M 220 0 33 8 


c. 

O 

C 

O 

O 

o 

O 

C) 

c> 

C) 

o 

C) 

o 

o 





ADEV 



PAGE 9 

DATEJ 01/27/99 


( 

o 

0359 

POlil 

Q5Q0 


UN- 

0 


65-1417 M22ju359 

o 

Q'36j 

P0112 

CE4A 


LOAD 

(BLOG2) , Q 

RETHREAO THIS REQUEST 

65-"l4i7; M220G360 


0361 

P0113 

6102 


STA- 

PT,I 

TO THE TOP OF THE THREAD 

65-1^17 M22'0u3bl 



. 0362 

P0114 

COFF 


LOA- 

I 


65=^1417/ M2200362 


o 

0365 

P0115 

0400 


EIN 

0 


65^1417.. M 22 4 0 36 3 

o 

G36t 

P0116 

6E46 


STA^ 

(BL0G2) , Q 


65-1417" M22uC3d4 


0365 

P0117 

EE44 


LDQ^ 

(BLOGIA ) ,Q 

PYSTAE ADDRESS TO Q 

65-1417 M220 0 6d5 


o 

■0367' 

P.0118 

5 4 F4 

AO 

RTJr 

(AMDNI) 

REPEAT \THE REQUEST 

M 22 j 0 36 7 

o 


0363 

P0119 

20GO 


ADC 

$ 2 o:-o 

INDIRECT 

' ^-^HSOS^. 0M22Q0568 



0369 

PQllA 

OOQQ 

A1 

NUM 

0 


M2200369 



0370 

POllB 

1C42 


JHP- 

{ANOALT ) 

RETURN TO SEARCH ALTEP.R FOR MORE 

ENTRIES M22ju37u 

o 

o 

0372 




THIS 

ROJTINE IS 

ENTERED VIA THE CONTINUE OPTION 

M2220372 

Q 


0374 

POllC 

E8 00 

B 

LOQ 

NOLU 


M2230374 


.*— s 

1 


PQllD 

FFCA 





H22J.0375 


( 

•>> 

037 5 

POllE 

CE3D 


LDA^ 

(BLOGIA ) ,Q 




0376 

•POllF 

60FF 


STA- 

I 


M220037& 



0377 

P0120 

54B6 


PTJ- 

(COMP) 

COMPLETE THE REQUEST 

M2200o77 


o 

0378 

P0121 

COFF 


LDA- 

I 


M22UU378 


0379 






^-^^^^^,-^‘ -M22ij 0.379 



0380 

PG122 

68F7 


STA^ 

A1 


■ M2200380 



G381 

P0123 

EOFF 


LDQ- 

I 

Q = ADR OF P. D.T. . 

M 220. 0 381 


o 

0382 

P0124 

18F3 


JMP^ 

AO 

SCHEDULE THE' DRIVER INITIATOR 

M22j 0 382 

o 

o 

' G38h 




THIS 

ROUTINE IS 

ENTERED TO MARK DEVICE DOWN AND 

H 22 0 0 384 

o 

038 5 




REPORT THE ERROR 

TO ALE CALLERS. 

M223 0'385 


038 7 

P0125 

E8G2 

C 

LOQ-’ 

NOL U 

LOGICAL UNIT NO. TO Q 

126-505 

o 

'■J 

0383 

PG126 

0 50 0 


IIH 

,0 


■ M22E0 388 


038 9 





4 CARDS DELETED 




0390 

PQ127 

CE34 


LOA^ 

(BLOGIA ) ,Q 


M2200393 



0391 

PQ128 

60FF 


STA- 

I 


M22 a 0 39 4 

o 

1 1 

0392 

PQ129 

C109 


LDA- 

ESTATl, I 

SCHEDULE 'ALL COMPLETION 

M 220 0 395 


0393 





ADDRESSES IN THE THREAD 

H 22 j G 39 6 



039 ■=+ 

P012A 

6800 


STA 

NOHOLD 

WITH ERROR INDICATORS 

M 22 j 0 39 7 


o ■ 


PQ12B 

FFC7 





M220 0 393 

o 


Q395 

P012C 

54B6 

Cl 

RTJ- 

(COMP) 



0396 

P012D 

54B5 


RTJ- 

(FNR) 


M22G 0 399 



0397 

PG12E 

18 05 


JMP^ 

02 


M22ua-.D0 


o 

0 39 8 

P012F 

C800, ■ 


LDA 

NOHOLD 


M22- u ‘tOl 

■ O’ 

P013G 

FFC2 








0399 

P0131 

6109 - 


STA- 

ESTATl, I \ 


H 2200 402 



040 0 

P0132 

18F9 


JMP* 

Cl 


M22y.G 40 3 


o 

Oi^Ol 


0133 P 

G2 

EQU 

C2(-) 


126 - 50 

■ o 

o 









o 

C) 









o 


AOEV 


PAGE 10 


date: ji/27/99 



0 hO 2 

P0133 

E8B4 

1 

0 40 3 

P0134 

CE26 


0404 

P0135 

AO 40 


0405 

P0136 

B030 


0 40 6 

P0137 

6E23 


0407 

P0138 

C8Q0 



PQ139 

FF63 


0408 

P013A 

6809 

C) 

0409 

P0138 

8 0 11 


0410 

P013C 

0108 


0 411 

P013D 

C4FF 


0 412 

P013E 

68 04 

I <L 

0 413 

P013F^ 

■0 814 


. 0414 

P0140' 

EOFF 


0415' 

P0141 

54F4 


0416 

Pfll42 

5200 

o 

0 417 
0418 

PD143 

0 ODO 


0419 

P0144 

0822 


0420 

P0145 

1C18 

o 





0422 




0423 








0 42 5 

P0146 

5802 

o 

04 2 6 

P0147 

18D4 


0428 

P0I48 

fl 0 00 


0 42 9 

PQl49 

C400 



PQ14A 

7FFF 


0430 

P014B 

8400 



P014C 

7FFF 


. 0 431 

P014O 

0112 


0432 

P014E- 

1800 



LDQ» 

NOLU 



LD,A^ 

(BLOGl) 1 

» Q 


AND- 

ZROBIT+13 


EOR- 

ONEBIT+13 


STA^ 

(BLOGl) 1 

-Q 


LDA 

MAS300 



STA’- 

MRIN+1 



EOR- 

LPMSK+15 


SAZ 

C3-^-l 



LDA- 

tI3 



STA* 

MRIN 



TRQ 

A 



LDQ- 

I 



RTJ- 

($F,4) 


MR IN 

NUM 

$520 0 



ADC 




TRA 

Q 


C3 

JMP^ 

(ANOALT : 

) 



THIS 

ROUTINE IS £N 


BASIS 

OF THE ERROR. 

0 

RTJ^^ 

JK3JB 


JMP* 

B 

JKSUB 

NUM , 

0 


LDA 

UNPIO 


ADD 

UNPIOF 


SAN 

D 1-^-1 

DO ' 

JMP 

N02 


o 

o 


POl^tF; FF6E 

0433 P0150 C4Q0 01 
P015.1' 7FFF ,X 

0434 PQ152 0101 ■ ^ 
0^35 PQ153 18FA . 
0436 PQ154 54F4 
0t37' PO'155 ,5202 . 

0438 P0156 7FFF X 

0439 P0157 ICFO 


LDA SWTCH 

SAZ 1 
DO 

RTJ- (A40NI) 
NUM $5202 
ADC JBCNCL 
JMP^ (JKSUB) 


LOGICAL .UNIT, NO. TO Q 
TURN ALTERNATE INDICATOR, ON . 
THIS EFFECT lyELY HARKS .THE 
DEVICE DOWN SINCE THERE 
IS NO ALTERNATE. 


SKIP IF NOT IN CORE. 
(A) = 1ST WORD OF POT. 

SAVE Q 

GET POT ADDRESS 

SCHEDULE NAS300 . 
PROGRAM MOOIFIEO 
ItT HMEXEC 
RESTORE Q 


TERED' TO KILL A' JOB ON THE 
THE DEVICE IS LEFT UP. 


SCHEDULE JBKILL 
GO TO CU ROUTINE 

DU'AMO^DD ONLY: LEGAL 

FOR UNPROTECTED:I:/0 REQUESTS 

IF JOd processor NOT IN, GO 
BACK TO ACTION TYPEOUT 

IS LI3EDT IN 

NO 

SCHEDULE JOBKIL AT LEVEL 2 
RETURN' 


o 


o 


Q441 
0 44 2 


^ THIS ROUTINE IS ENTERED WHEN THE DEVICE IS TO 

^ BE SET DOWN AND THE JOB DELETED. 


L2 0^5'^ 51 V 

12 3 j 5 1 ^ ^ ^ 

1 2 6 ^ 5 j 3 1 * ^ ^ 

12b^5'j 5 l'’^^ ^ 

M220Ah 03 
M22 j Q 40 6 
M 22u 0 hO 7 
M22ju4D8 
M22 j 0 40 3 
^^MSOS -.t.i^-M22UU 4l0 
«-rf-5SOS 4.i'^’M'i22au 411 
M 226 u nl2 
^ ^ H S 0 S 4 • j M 22 li 4 4l 3 
M 2 2 1' u -t 1 4 
^^HSOS 4.1^^M22 uD-.13 
^^HSOS i'^-’'H22;j a 4l 6 
M2200 417 


H220u^l9 

H220G-T20 


M2200422 

M2200423 


M22C0423 
^^MSGS' 4. ,:;M22u0 42d 

^^MSOS 4. 6M22J G -^27 

M22 0G 42 8 
M22i.-0 42 9 

H22ij L 43 0 

M22u G .t31 
M22j 0 432 
M 22 a 0 43 3 
M22G 0 434 
M 220 a 43 b 
M 220 0 -t5 3 


M220G 43 3 
M 220 0 43 9 


O 


O 

O 

o 

o 

O 

O 

O 

O 

o 

o 


o 

o 


o 


o 




ADEV 
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date: 01/27/99 


0444 P0158 58EF E 

0445 Pfl 159. 18CB 


RTJ^ JKSUB 
JMP» C 


SCHEDULE JBKILL 
GO TO DU ROUTINE 


M220 4 1 

M229 0 442 


0447. PQ 15A 00 73 X BLOGl ADC 
044.3 P015B 0092 X BLOGIA ADC 

0449 P015C 0093 X BLOG2 ADC 

0450 P015D 0074 P ANOALT ADC 


LOGl 

LOGIA 

LOG2 

NOALT 


M22-0GH‘t4 
M22C 0 44 :;> 
H 220 0 ~r46 
H22u0 *t47 


0 45 2 
0453 


0000 P OEVERR EQU DEVtRR( ALTDEV ) 
00E9 P EQU CONy£R{ CONVRT ) 


;T 22'j u >tt9 
H22uU45t] 


ADEV 
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date; Ji/27/99 


CA56 

0457 

0458 

0459 
0^60 
0451 
0 462 
0463 


¥ 

* 


THIS SUBROUTINE IS ENTERED TO DETERMINE 
IF A GIVEN LOGICAL UNIT (IN Q) IS OPERATIVE 
RETURN IS WITH Q = INITIAL LU OR ITS FIRST 
QPERATTVF ALTFRNATF. 

IF THE INITIAL LU IS HARKED DOWN (INOPERATIVE) 

1) Q = LU OF THE OPERATIVE ALTERNATE, OR 

2) a = 0 IF NO ALTERNATE IS ASSIGNED, OR 

3) Q = DUMALKD OR DUMMY) IF ALL ALTERNATES ARE DOWN 


M22a0 v53 
H 22 3,0' 45 4 
M22Q,Q,455 
M 220. 045 6 
M 22b 0 45 7 
M 220 0 458 
M2200 459 
M22Q0 460 


0h 65 P015E DOuO 
0466 PQ15F 0500 
0,467 PG16Q OAOA 

0468 PQ161 6810 

0469 P0162 014B 

0470 P0163 CFF6 

0471 PG164 CFC2 

0472 P0165’ 0128 
047.3 P0166' 0F42 
:0474 , P0167 AO QC ■ 
0475 PO 168 0822 .■ 
0476- P0169 €308 
0^77 P0'16A 09FE 

0478 .PD16B 6806 

0479 P016C 0113 

0480 P016D E8G5 

0481 P016E 0400 

0482 PG16F ICEE 

0483 P017Q 18F1 . 

0484 .P0171 0000 ’ 

0485 P0172 7FFF X 

0486 


ALTSDB NUH 0 

TIN 0 

ENA ■ NN, 

STA^- COUNT 

■LOOP SQZ EXIT-^-1 

LOA^ (8L0G1) ,Q 
ALS 2 

SAP EXIT-»-i . 
ARS 2 

AND- LPM'SK + 10 

TRA Q 

LOA^ COUNT 
INA -1 

STA^ COUNT 
SAN OK-'^-l 

LDQ^. H 
EXIT EIN 0 

JMP^ (ALTSUB) 
OK JMP^ LOOP 

COUNT NUN 0 

M A DC DUMALT 

END 


Q = INITIAL LU ON ENTRY, I IS SAVED 
SET INITIAL VALUE OF COUNT 
EXIT IF NO ALT LU EXISTS, 0=0 

EXIT IF LU Q IS OPERATIVE 

Q =. ALTERNATE LU 


CONTINUE IF MAX NO OF ALTERNATES NOT EXC 
OTHERWISE SET 0=0, OR DUMMY LU 


EEDED 


LU TO BE USED IF ALL ALTERNATES ARE DOWN 


M 220 U 462 
M2200463 
M 22u 0 -to “f 
M22: G^6;j 
M 22 j G 46o 
M22JC no 7 
H22GCh68 
M22G 046 9 
M2200 470 
M22O.0 h71 
M2200472 
M22G0473 
M220D474 
M220 0-r75 
M2200n7b 
M22G0477 
M2230‘i78 
M22jun79 
M22Q0n8D 
M22o 0481 
M22a0 482 
H22u0 483 


PGM= 0173 ( 371) ■ COM = 0000 ( ' 0) ' OAT = 0000 ( C) 


fl nF\/ 


PAGE 13 


date: Gl/2-7/99 



o 



E Q U I V 

A L E N 

C E S 


'■■3 

DEF.LINE 

NAME 

VALUE 


r''\ 

ODGO' 

I 

OOFF 

(00,025,5) 

o 

0021 

NN 

000 A 

( 0 00,010 


0 Q23 

FNR 

00B5 

(oao-iai) 


0 024 . 

LEVEL 

QCQE 

C 0 0 ffQ'14) 


0 0-2-5, . 

NZERO 

0012 

(000018) 

1^/ , 

0 02 5 - 

DISP 

OGEA 

(CQ0234) 


0026 

TEN 

QQHb 

( 000070) 


0 026'. . 

ZROBIT 

0033 

(000651) 


0026 

COMP 

OGBc 

( 000182) 

1. ) 

0027 ' 

AMONI 

0GF4 

(000244) 


- 0 027 

LPMSK 

0002 

(QQ02 02) 


0027 

0NE8IT 

Q023 

(0060,35) 


0029 . 

ELU 

0 0 Q 5 

( 0 03005) 


0029 ‘ 

■ EPTR 

00 0 6 

CODGO-0 6) 


0 029 ' 

ESTATl 

000 9 

(003009) 


0031 

PT 

000 2 

( 0QD002) 


o 


REFERENCED AT LINE NUMBER 


00 79 , 

0102, 

Q113, 0116, 

012 4, 

0 211, 

0 467 

, .1 




0396 





QG5Q 





02i^l , 

Q 261 




0052, ■ 

u G 71, 

0 17 3 , 01 7-6, 

3196, 

' 0 25 2 , 

0 331 




' 

g 130 , 

-fli't G 4 




0 o77 , 

03-95 




0 0 49, 

0 icj, 4 , 

0 163 , C 2 " 7 , , 

J D T 5 

0 2 7 A , 

0213, 

0229, 

G-tU9, ’ 04(' 4- 



■QG59, 

Q131, 

Q“05 



0125 , 

•j Im-6, - 

0153 



0112, 

0356 




0 392 , 

0399 




0117 , 

0 361 






O 

o 

o 


o 


u 3b i I li 39 1 » 


c-11, 


„i.- 


0'231» ti233» Q 3p7 G 362 f uo7o> Uo7‘-> 
Li 2 87 ' 

1282, 0367, U “So 


o 

o 

o 

C'\ 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

n 


o 


r _) 
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date: 01/27/99 

C... 

c 

S Y M B 0 

L S 




o 

o 

DEF. LINE 

NAHE 

ADDRESS 

■ REFERENCED AT 

LINE NUHBER 

o 

o 

■ 0QQ7 

ADEV 

0 0 0 0 

.0 0 0 7 


o 

0 010 

DEVERR 

0 0 0 0 

0010 




0010 

ALTOEV 

0000 

• G 0 10 1 0 45 2 




coil 

CONVER 

00E9 

0 0 11. 


o 


OQIL 

ALTSUB 

015E 

, Gul4, 0179, 

0 482 


, 0 057 

, ALTGO 

000 4 

,0 0,51 



0 062 

ALTO 

0008 ■; 

0 057 




0068 

ALTl •, 

GOOD 

, ' . 0060 


n 


0 0 72 

, ALT2 ■, 

0011 

.0 0 70 



0079 , 

. ALTS ■ ■ 

Doie 

0 074 




010 4 

HAS4 

0 u 3 G ■' 

0 097 




G135 

0141 

HAS3 

^ 0047 

0148 


n 

o 

' HAS3A . 

0 0 4D 

0137 


0143 • 

HAS3B 

004E- 

0139 




0149 

HAS6 

0 05 4 

0147 , 




0156 ■ 

HAS7 

005 A 

0092, .0099, 

0151 



Q 158 

SCHNC . 

, G05B 

0103,- '0148 


o 

■s~«* 

016 7 

. SCHNX 

0062 

■ 0159 




0178 

. SAVERR 

.0060 

0068, 0.080., ■ 

0085, 0088, '013 5,, ul4l, 

0168 


0179 

■ XALTSB ■ 

006D 

0083, .'0096, 

8215 

0203, G20 7 . Q 

Q; 

.. , 0 180 ' 

■ATAB 

Q06E 

0 0 73, 0 13.4, 

0136, 0171, 0174, £192, 

0181 

i GUSAV ■ 

OO&F 

0 0 72,, 016 7,.. 

017.2 


.0182 

Q2SAV 

C 0 7 C 

Q19Q, 0204, 

0208 



‘ 0183 

■ HASHED 

C071 

0084, 0089, 

0^098 , ■ 0 liu, . 0,122 


O. . 

.0184 

HASRLU 

C072 

0 082, .ull--, 

0152 , 

o 

0,18 5 , 

ALOGl 

0073 

.0 0 91 , uu95. 

0100, . 0129, 0132, 0.212 



0 190 

NOALT 

0074 , 

■ 0165, 0249, 

0 *i'5 0 



0198 

NOALTX. 

0 0 7 A 

■ 0193 ' • 


; O 

o 

0 219 

FLAGX 

u C 8 F 

0158, 0161, 

0195 

0 220 

HASLU 

0090 

0104, 0128, 

0143 . 


Q 221 

HOLDAL 

0091 

0227, 0244 

0123, 0144, 0210 



0222 

ALOGIA 

0092 

0101, 0111, 

■ O 


0223 

AL0G2 

0093 

0116, 0119 



0227 

NOA 

0094 • .• 

0216 



0235 

MRI NA 

009C , 

0232 




0 236 

MAS300 

0090 

0228, 0407 


. o 


0237 

NOB 

009E 

0 230 



0257 

^ N03 

.OOBO 

, 0217 

0 432 


0272 

NO 2 

0 0 BE .• 

0300, 0318, 



0 299 

NOS 

OOCF 

0 2 84 


o 

o 

0 30 5 

N06 

00D6 

0 303 


o 






■ o 

o o 






o 

C) 






. . 

. , - - - _ . .. 


ADEV 
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DATE: Ll/if7/99 


0 308 

N07 

OQDA 

0 306 




0 311 

NO 8 

OOOE 

0 3og.-, 




0 31A 

N09 

00E2 

0 312' 




U.317 

,:NO10 

00E6 

0315 




0 32 0 

NOLU 

G0E8 

0201, 

0.2C9, 

0 23? , 

0257, .0,352 

0 328. 

' CONVRT 

0 0E9 , 

0 238, 

02^*2, 

0 2 45 , 

0 2.5 8, 0 26 2 

0338 . 

, ■ NOHOLO 

0UF3 

0198 , 

' C 24u , 

0 2,0 0 , 

0 39^, ;-39 8 

0339 . 

HASHSl’ 

. OOF 4 

9239, 

0 2.43 , 

0.251, 

0 3 43 

0 341 

HASMS2 

DOFC 

. 0246 




0343 

NOMESl 

QQF4 

, 0259, 

0263, 

...0258 


0344 , 

N0MES2 

U 10 0 

0278 




0346 

BUF 

0104 

0273:, 

0286, 

'0301 


05ii7 

RP 

010 5 

• 3 302 




0346 

CU 

0106 

„0305 




0349 

DU 

0107 

0 311 




0 352 

. A 

0108 . . 

. 0 3 04 




0367 . 

AO 

0118 

. 0 382 




0369 

A1 

OllA 

..0355 , 

0380 



0 374 

8 

.,ullC 

0 307 , 

0 42 6 



0 387 

C 

012 5 

0310 , 

0 4-45 



0 395 

Cl 

Q12C .. 

0400 




C 401 

C2 

0133 

.0397 




0 -rl6 

HRIN 

0142 

J 4 0 8 , 

0 412 



0 420 . 

C3 

0145 

. .. ,.0 410 . 




0 42 5 

0 

0146 

0313 




0 42 8 ' 

JKSUB 

0148 

.. .0 425,. 

0 43 9 , 

0 444 


0 .^32 

DO 

014E 

..Q435 




0 433 . 

□ 1 

0150 . 

. 0 43-i; 




0444 

£ 

. 0158 

0316 




0 447 

BLOGl 

015A 

0403, 

0406, 

0470 


0448 

BLOGIA 

015 B 

Q353, 

0365, 

0375, 

',0 390 

0 449 

8L0G2 

Q15C 

0360 , 

0364 



0i*50 

AMOALT 

015D 

03 70 , 

0 420 



0,469 

LOOP 

0162 

0 483 




0 481 

EXIT 

016E 

0469, 

0.472 



0 483 

OK 

017Q 

0479 




0484 

COUNT 

0171 

3 468, 

0476, 

0478 


0485 

H 

0172 

0h80 





0 '3 5 8 » L- 5 7 
0.33 6, O^tS 


tvM 



ADEV 
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date: 01/27/99 


: X T e R 

N A L S 


DEF.LINE 

.■NAME 

VALUE 

0012 

JBCNCL 

015 6' 

. 0 013 

ALTERR 

■Q06E 

0 015,, 

OUMALT 

0172 

0016 

LOGl 

■.■■015A 

0 016 

LOGIA 

• 015 B 

0016 

, L0G2 

015C 

0017 

RELBYQ 

009D 

0018 

-SWTCH • 

0151 

0 019 ■ 

■UNPIO 

014A 

0 019 ' 

U NPIOF 

014C 

0 020 

SYFAIL 

0015 


REFERENCED AT LINE NUMBER 

,0 h38 
,0180 
■0 485 ' 

-- 0185, '■■0A47' 

0222 , 0448 

0223, 0449 
0236 

0 433 
■ ■ . 0 429 
0430 
0 0 76 


ADEV 


PAGE 17 


QATEJ Gl/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



A 

0352 

.. AO 

. 0367 

A1 

0 369 

ADEV 

0 0 07 

ALOGi 

0185 

ALT2 

0072. 

ALT5 

. 0 079 

ALTDEV 

0 010 

ALT ERR ’ 

0U13 

ALTGO 

u G 5 7 

8 

■ 0 37,4 

BLOGl 

. 0 ‘-ihl 

BLOGIA 

. 9 448 

BL0G2 

04-49 

8UF 

0 0.4 6 

COMP 

0026 

COMVER' 

0011 

CONVRT 

0 328 

COUNT 

0484 

CU 

0348 

DISF - 

0 025' 

DU 

, 0349 

DUMALT 

0015. 

E 

0 4 ' 

ELU 

0029 

FNR 

0 023; 

HAS 3 

0135 

HAS3A 

0141 

HAS3B 

0143 

HAS-r 

010 4 

HAS MSI 

■ 0 33 9 

HASMS2 

. 0 341 

HASRLU 

0184 

HOLOAL . 

0221 

I 

.0000 

LOG 1 A 

0 016 

L0G2 

0 016 

LOOP 

0 469 . 

LPMSK 

0027 ., 

M 

048 5 

N01Q‘ 

;','Cl317 

. N02 

0272 

N03 

0 257. 

,N05 

0299 ■■ 

N06 

• 030 5 

NOALT r 

■ 0 19 0 

NOALTX, 

■ 0196 

NOB 

0 237 ^ 

NOHOLD 

-033 0 

,N0LU 

' 03 2 0 

ONEBIT ■ 

' 0027. 

PT 

0 031 

QISAV 

0181 

Q2SAV ' 

0182 , 

REL8YQ - 

0017 

SWTCH 

0018 

SYFAIL 

0 020 

TEN 

0 026 

•UNPIO 

0019 

UNPIOF 

0019 


o 

o 

C) 

Q 

c 

o 

o 

o 

o 

o 

r-\ 


ALOGIA 

0222 

AL0G2 

G223 

ALTSUB 

0 QI 4 

AHONI 

0:27 

C 

u 387 

Cl 

0 3 9 3 

D 

0 42 5 

Di 

043 2 

EPTR 

0029 

ESTATl 

0029 

HASS 

0149 

HAST 

015 6 

J3CNCL 

,0012 

JKSUB 

0428 

MASS 0 0 

0236 

MRIN 

0 416 

NOT 

0 30 8 

N08 

0311 

NON ESI ■ 

. 03h3 

NOME 3 2 

034 4 

RP 

0 347 

SAVERR 

0178 

XALTSe 

0179 

ZROBIT 

0 9 2 6 


ALT. 

0 .^62 

ALT! 

0 h 

ANOALT 

G -:5 0 

ATAB 

io b 

C2 

i, -j 1 

3 3 

. ; 2. 

Dl 

0 453 

DEVERR 

Ij u 1 L. 

EXIT 

0 481 

FLAGX 

j£19 

HASHED 

0 163 

HASLU 

,■ 22 . 

LEVEL 

092- 

LOGl 

0 '9 Id 

MRIHA 

0 23 5 

NM 

.. u2l 

N09 

0 31 “t 

MOA 

u 2 2 / 

NZEKO 

u 'j 2 -. 

o.< 

. -83 

SCHNC 

G 15 8 

SGHNX 

„ i 0 7 


C'-- 

■**..*' 

O 

O 

/^v 

o 

o 

r‘', 

C) 

o 

o 

o 

o 

o 

o 


RDISP 


PAGE 


date: 01/27/99 


COOi 
GOG 2. 
00 0 3. 
000 4 
00 0 5 


000 7 
000 8 
000 9 
0010 
QOll 
0012 
0 0.13 
0014 
0015' 
0016 


0018 
0 019 
0020 
0 021 
0022 

0023 

0024 

0025 

0027 

0028 
0029 
0Q'30 
0 031 
0032 
0 0 33 
QG3 4 

-003 5 
0036 
QC37 
0038 
00 39 


Af 

Af. 


NAM R0I3P DECK-IO 1123 HSOS 5.C 

SCHEOa.LER-OISPAT.CHE.R' FOR REENTRANT, FORTRAN: LIBRARY 
HASS STORAGE' OPERATING SYSTEll VERSION 5.C , 

SMALL SYSTEMS DiyiSION, LA JOLLA, ' CALI FQRNIA 
COPYRIGHT CONTROL DATA -CORPORATION 197o 


SUMMARY-llcH23C-uOJl 
■ N^3ub.jj2 
HEO-f wuuo 
H23QQa04 
H2.3Jui.u5 


.. Tf' TLJi”’ C*AMjZT «XAA\iC‘AC' 


THIS VERSION OF THE SCHEDULER/0 ISPATCH EH IS TH 
^ AS THE NDISP PROGRAM HIT'H ■ THE ’ ADDITION A L CAPAB 

- TO -SAVE DR RESTOJ^E THE F.QRTRAN. SCRATCH ■ .ARE A ($ 

^ $£5) AND ■ THE'. PORT-RAM 'IIBSARY TEMPORA^RY CELLS T 

=1^ MUST SE SAVED- 'FOR: REENTRANCY . . THIS PROCESS OC 

^ ON CHANGES OF PRIORI T.Y LEVEL WHICH WOULD GIVE 

^ , TO ANOTHER F.ORTRAN, USER. ' THE FNASK AND'FLIST 

» ‘ SECTIONS OF SYSDAT MUST BE PRESENT IN THE SYST 


E SAME 
ILITY 
C5 TO 
HAT 
CURS 


^^MSOS 

^^MSOS 

^^HSOS 

’-MSQ.S 


CONTROL^'^HSOS: 
^^MSOS 
EM. -^^MSOS 


4.1*<^H230 

i- . 1 Y J.| 2 j; u, 

4. .I’V.^l.MR'B.j 
H • i'^’„^M,23 0 

4.i?^rM23a 

4.1^'^M'23G 

4.1^'^-M23U 

4«l^-^M2'3i3 

4.1=^^M230 


0 G 'D 7 " 
u 1 G S . 
0QG9 
0 ulG 
fl all 

aoi2 

0 G13 
G.G 1 4 
0015 
0 015 


00 00 P 


.0 0 08 
0 0 09 
0012 
GO Q1 
00 02 


ENT 

EQU 

ENT 

ENT 

ENT 

ENT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EQU 

EQU 

EQU 

EQU 


RDISP 

RDISFt^D 

DISPXX,SCHTQP 

T9 

T18 

T19 

SYFAIL 

SCHERR 


SITE FAIL' LOCATED IN SYSDAT f$18FF) 
SCHEDULER ERROR ENTRY I N' TRVEC 


^ ^MSGS ■ 
'^-^HSGS- 

-■^MSOS . - 


• U 


M23BGQ18 
M23jOQ19 
M2300 02C, 
■M23u 0 521 
,M23ju 02 2 
jH23CGu23 
M2.30 0 02^ 
M2 3u j 02 3 


SCHSTK 

FLIST 

FLIST 

FMASK 

SAVLU, 
K65COR 
£17811 
F17311 
SV781L 
RGS-GHD 
PIS C HD 
XAJl) 


, SCHLNG 
(0) CONTAINS 
LIST 


CKTHRO 


LENGTH OF LIST 

OF LOCATIONS TO- BE SAVED ON LEVEL 
MASK CONTIANING BITS SET FOR EACH LEVEL 
PSUEDO REENTRANT CODE. 

■If 


CHANGE 

USING 

? ¥--¥■ if 

SOS - . 


($C8) 
{ 9) 
(18) 
,XI (2) 


1781-1 WES 

17 81-1 OP-E.RATING .MODE 
LOCATION USED TO SAVE 


M2 3 0 
H23G 
H23j 
H 230 
M233 
M230 
u M 2 3 J 
M230 


0 32 7 
0 02 8 
0 J 2 9 
0030 

0 u o 1 

0 032 
0 0 3 3 


1781-1 REGISTERS 


REQ CODE FOR SYS 

XR(3) ,XPL , XL (5) 


DIRECTORY FROM PART 


H 230 0-035 
0'036 
0 037 
B 03 8 
0 039 


M230 

M230 

M230 

M2Sa 


o 

o 


/ 'I 
V..- 


o 

o 


o 


o 


o 


o 


OG 4 0 - 

0 0 03 
DO 04 
0 0 0 5 
0 0 01 
0 0 02 

EQU 

PC(l) ,PT(2) ,Pd;{3) 

M23 J 0 U4U 

: O 

0041 

00 03 ' 
0 0 02 
0003 
0 0 0 4 

EQU 

VI{2),VRi3),VPL(4) ,VPTR{5) 

H23jG.-41 

: O 

0C42 

• ■ 0005 

0 0 06 
CG 07 

EQU 

VTPE{6) , VTMP( 7) 

M25 3 0 u 42 

, O 


o 


RDISP 


PAGE 


DATE; 01/27/99 


0 0 43 

G 0 02 
3012 
0 0 22 
0 023 


0044 

0 OBB 
C 0 BA 


0 0 4 5 

OOEF 



0 0B4 

0 0 eg 


0014 6 

0 0B3 
U0B7 


0 0-4 7 

0 0C5 



0 0 21 


0048 

0 OEB 


0049 

0104 


00 5 0 



0 0 51 



0052 



0053 



005 4 , , 



0055 



0056 POGOO 

FFFF 

s 


0 0.5 7' 

0053 
0059, 
0 0 6 D 
oo&:i' 
GO 6.2 
00 6.5 

00 6 4 

0 0 6 5 
Q j b 6 
005-7 
00 63 
0 0 69: 
00,7 5 
Qu7i: 
00 7 2 
0075 
QQ7h 

0075 

0076 

0077 
GQ78 
0 079 
00 80 
0081 
0082 
0 0 8 3 
00 8 ^ 
008 5 
0 L* 8 6 


PQOOl 5800 
P00Q2 0170 


P0003' 

PO Quit 

PQQQ5. 

POO 26 

P0Q07 

PQQG8 

PQ009 

POOOA 

POOGB 

POGOO'. 

POOCO- 

POOOE- 

POOGP- 

POOlO' 

POOH 

P0012 


E0B8 
ODFA 
0500 
C2fli^ 
QFCl 
G F41 
60EF 
G8F5 
0900 
0107 
CCF2 
AQ 06 
0821 
90 EF 
0102 
0131 


PQQ13 1812 


POOIA C203 
P0015 6C3A 
PQ016 C202 
POO 17 6 OFF 


EQU LPMSK{S2),NZERO($12),ZEROU;22) , ON EBIT ($23) 

EQU , AVOLA ($88) , AVOIR ($SA) 

EQU PRLVL ($dF) , TOHPT ($04 ) , arEQX T ( SB 9) 

EQU C0UNr($B8),AHASKT($97) 

EQU FC0M($S5) ,F1 (SE5-FC0M+1 ) 

EQU ,ASYS0R($E8> 

EQU COHEXT($104) 

UPON COMPLETION OF A' PROGRAM, THE DISPATCHER 
DETERMINES THE PROGRAM OF HIGHEST PRIORITY 

WAITING FOR EXECUTION. IT MAY EITHER BE IN THE 
INTERRUPT STACK OR THE SCHEDULER STACK. 


DISFXX RTJ 


$FFFF 

RESRTN 


LOQ- COUNT 
INQ -XL 
TIN 0 
LOA- XPL.Q 
ALS i .. 

ARS 1 
STA- PRLVL 
LOA^ SCHTOP,, 

INA ,0 , 

SAZ '^RESJNT-.^“--l 
LDA^ (aCHTOP) 
ANO-:^ LPMSK + 4 
TRA M 
SUB- PRLVL 
SAZ R£3INT-^-l 
SAM RESINT-^-1 


JMP^ SGHSTC 
HIGHEST PROGRAM- IS -IN -THE INTERRUPT STACK. 


SCHEDULE STACK TOP 

RESTORE COHH REGION IF A FORTRAN USER, HAS 
JUST TERMINATED. 

AO JST STACK 

REMOVE BIT 15 

IF 'SCHEDLER STACK -IS ■ 

EMP.TY, CHECK TNT. STACK 
LOAD FIRST’ WOPO 
ISOLATE PRIORITY 
SAVE TEMP. IN .M . , 

GO TO INTERRUPT STACK 

GO TO SCHEDULER STACK REMOVAL 


IF -DISPATCHER , IS RETURNING CONTROL TO AN INTERRUPTED 
PSUEDO: reentrant LEVEL, CQOm REGION MUST BE RESTORED BEFORE 
LEVEL CHANGE 
RESINT LOA- XR.Q ' 

STA^ (ACOMEX) 

LDA- XI, Q RESTORE I 

STA- I 


M23yOL 4-0 

M233p 144 
M23U0G-5 

H2350 J4fa 

M235G 047 

M2SC.Q 0 4 8, 
M235 0 049 
M230 0050 
M2300U51 
M2300 052 
M23 u u U p 3 
M2300 054 
M23u0055 
M23J 0 05 p 
M 23 0 0 u5 7 

M23D0058 
M2 30 0 G5 9 
M 2 3 ^ GO 6,0 
M23b0>j6i 
M 2 3 6 u u 6 2 
M 23 - u j 6 5 
M 2 3 0 O' j 6 T 
H230uu65 
H 2500066 
M230uG'o7 
M23 0.u.0bb 
H23C0069 
H23ufllj70 
M23o0a7l 
M 1 0 U.7 2 
M2330073 
M23u 0 07 4 
-.H233GG75 
H 23 0 0 0 7 6 
H23fla077 
;M23auu7S 
M233 0 0 79, , 
M230G'u80 
H230u081 
H230OO32 
M2300083 
M23 0 0 08 4 
M230 0 085 
H 23 GO 03 6 





■RDISP 

PAGE 3 

date: 01/27/99 


r''] 

QOB 7 




,7 CAROS OELETED 

. M 2 0 G u ’j B 7 


OQsa 

P0018 

C204 

LOA- XPL,Q 

GET PRIORITY LEVEL + OVF 

-■'^^MSOS 6M23. a 08 3 


0C89 

P0019 

A032 

AND- ONEBIT + 15' 


^--'!‘MSOS GM23C u 089 


0Q9 Q 

PDOIA 

OlAO 

SOV 0 

CLEAR OVERFLOW FAULT 

ff^MSOS' 4'. OM230 0 09G 

C'] 

0091 

PGOIB 

0102 

SAZ RESA-^-1 


--MSOS ■ CM23G0u91 


009 2 

PO OIC 

■QAIO 

ENA 16 


-■^^MSOS 4.UM23G0 092 


0093 

PQOID 

■ 80 11 

ADO- LPMSK + 15 


"^^MSOS. 4. 0M230G093 


009 if 

POOIE 

40B8 

RESA STQ- COUNT 

RESTORE TOP OFMNTERRUPT STACK , 

» + MSOS ':4, DH23G0 094 

f ': 

009 5 

PQOIF 

C2 01 

LDA- XA,a 

RESTORE VALUE OF A 

^"^MSOS -t,.,uM23 j G u9d 


0096 

-P0020 

■EOEF ^ 

LOQ- PRLVL 

GET NEW. PRIORITY LEVEL 

' ^^MSOS 4.LM23uGQ9b 


0097 

P0021 

E6B7 

LDQ- . (AHA3KT ) ,0 

RESTORE MASK 

M23uOG97 


0098- 

P002 2 

0811 

TRQ H 


M230G098 


0099’ 

P0023 

E4B8 

LOQ- (COUNT) 

RESTORE Q 

M2330099 

o,. 

0100 

P0024 

OE04 

EXI COMEXT-SlOO 


. , M23JG10Q 


0101 



■V 


:M230 0101 


0102 



^ HIGHEST PROGRAM IS IN 

THE SCEDULER THREAD. 

M23G G102 


010 3 





M23uD103 

■■w/ 

OlGit 

P0025 

080A 

SCHSTC TRM Q 

PRIORITY TO Q 

, M2300104 


0105 

PO026 

40 EF 

STQ- PRLVL 

SET NEW PRIORITY 

M23GG105 


010 6 

P0027 

C6B7 

LOA- (AMASKT)tQ 

AND MASK 

M23Gui0b 

p’, 

0107 

P0Q28 

0821 

TRA M 


M23UU107 


0108 

P0029 

E806 

LOQ^ SCHTOP 

STORE HEW POINTER 

M23 3 0 10 8 


0109 

PQ02A 

C2Q2 

LOA- PT,Q 

TOP OF SCHED.LER 

M23u u 109 


OllQ 

PG02B 

6804 

STA-*^ SGHTOP 

THREAD 

H23Q0110 

P‘, 

0111 

P002C 

40FF 

STQ- I 


' ' M230ulll 


0112 

P0020 

5800 

, ,,.RTJ SAVE 


M2300112 



PD02E 

01 03 





Q115 

P0Q2F 

Q500 

, IIN / 0. 

' 

H230U113 

" 

flll'^ 

P003Q 

EOFF 

, LDQ- I •' 


M 230 Oil 4 

N>v-' 

0115 

PG 031 

0814 

TRQ A " 

TEST IF PRIMARY SCHEDULER 

M2300115 


0116 

P0032 

981E 

SUB^ ASCHD 

CALL WAS MADE. 

M 2 3 u li 1 1 6 


0117 

PQ033 

'0138 

SA'M SGHSEC-^-1 . 


H23G0117 

O ' 

0118 

P0034 

981D 

- SU8^ ASCLNG 


H 25 3 0 118 


0119 

PQ035 

0126 

SAP SCHSEC---1 

■ • • ! ' 

M230 0119 


0120 

P0036 

C0B4 

LDA- TOMPT 

IF PRIMARY GALL RELEASE 

M2300120 


0121 

P0037 

6202 

STA- PTfQ, 

STACK POSITION AND PLACE 

H23G0121 


0122 

P0038 

40 84 

STQ- TOMPT 

ON EMPTY THREAD. 

M23UG122 


0123 

P0G39 

C201 

LDA- PC,Q 

LOAD ‘ABSOLTE .ADDRESS 

M2360123 


0124 

PO 03A 

6C15 

STA^. (ACOMEX ) 

STORE INTO COMEXT 

M23GG12‘+ 


Q125 

P0038 

1811 

JMP» SCHXIT 


M230O125 


012 6 

P00 3C 

C622 

SCHSEC' LDA- (ZERO),Q 

TEST IF ABSOLTE OR 

■ , M230Q126 


0127 

P0Q3O 

A031 

AND- ONEBIT+14 


^^MSOS -t.£M23D0127 


012 8 

P003E 

' 0102 

SAZ SCHA-»-l 


^^MSOS V.UM23Q0T28 


G129 

PGG3F 

C201 

LOA- PC»Q 


+ +H3D:S' 4. GM23'Qul29 


0131«’ 

POOuO 

18 0 9 

‘ JMP^ SCHIA 


^^MSOS -f . 0M230.Q 130' 


0131 • 

PQ041 

C622 

SCHA - LDA- (ZERO),Q 


^+MSOS wM23G0l3i 


0132 

PQ042 

AQ28 

AND- ONEBIT+8 

' RELATIVE' 

M230Q132 


0133 

PQ 043 

0101 

. SAZ SCHl-^-1 

CALL. SKIP IF :ABS0LUTE 

M 23 0 Q 1-3 3 

px 

013h 

P0044 

Q81h 

, TRQ A 

ADDRESS 1ST WD OF GALL 

M23D 0 13_4 

w 

013 5 

P0045 

AOll 

SCHl AND-. LPMSK+15 . 

. 

M 250 G 15 5 


013 6' 

PQ0ii6 

8032 

ADD- ONEBIT+15 


M23QQ136 


015 7 

PQG47 

8201 

AOO- PC,Q 

ADO REL. ADDRESS OR IF 

M 230 013 7 

o 

0138 

PQQ48 

AOll 

AND- LPMSK+1 5 


M230 0158 


u 

O 

C' 


o 


r-': 






O 

o 

O 

o 

o 

o 


o 



--HSUS tJM23a0139 
H23j0140 
M23G 01-tl 
M23I].Q1^2 
M230G143 
' M230 014-4 
M230 01^5 
M230 014D 
M23Q 014/ 

M 23 0 0149 
M230 015Q 
M230G151 
M23D 0152 
M23C 015 3 
M2300154 
M2300155 
M23 0 0 1^ to 
M 230 015 7 
H2300158 
M230 G 1^9 
M2300 16G 
■,^-MSOS :*.GM230G161 
. H2300162 

.^.^HSOS 4. U-M23GG16S 
«-^HSOS 4.0M230 01d 4- 
M23u 0165 
H2313 0166 
-.l^-H23G0lar 
-^MSOS -,l^^-M23G0i68 
^^MSOS 4.i^^'-M25D016g 
M230 0 170 
M234U171 
, , ' M2300172 

■ ^.^MQO'S v.l'f ^-M230 0173 
»^MSOS -t. aM23U017<4 
^^HSO'S t^H23uul7-3 
^^HSOS .4.£.M23a0176 
M2300177 
^^MSOS -t.l^^^M23 0 017 8 
. ■ M230 0 179 

;^.*HSOS 0180 

»^MSOS 4.CM2300181 ' 

4. 0M23Q 0182'. 
^^MSOS -- .i^-M230Q183 ' 
^^MSOS 4. 0H2300184 ‘ 

H 23 0 0 18 5 
H23U013 b 
M23u0187 
-^^HSOS-. iM23a0i88 


^^HSOS 4.1^^M250 0189 
M 25:^^19 0 


C 

O 

o 

u 

Q 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

o 


C ' 
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r'\ 

0191 

P 0 07.0 

A007 



AND- LPMSK+5 



M25b019i 

o 

V.- 

0192 

PO 071 

09F6 



INA -RCSCHD 

CALL 


M230ul92 



0193 

P0072 

0102 



SAZ SCH2-^-l 

GO 


M230 C 193 



0194 

P0073 

0500 



IIN 0 

. TO 


M23D0i94 



0195 

PQ074 

181C 



JMP=»^ SCHED2 

SCHED2 


M23 j 0 19t> 

C'^ 

{ / 

0196 








M230D196 



0197 





PRIMARY SCHEDULAR- CALL 


M23aC197 



019 8 






- IMPLIES RC=9 - 


M23a0l96 


’l ' 

019 9 





ABSOLUTIZE AND TRANSFER TO STACK 


M23'jQi99 

• C"''' 

( 1 

020 0 ■ 








' M23002UO 



020 1- 

P0 075 

C106 


SCH2 

LDA- VTPE»I 

REQUEST WORD BIT 14 

^+MSOS 

^..I'^^MZSuO 201 



02C2 

P0076 

A031 



AND- ONEBIT+14 


+^HSOS +.GM2300202 



U203 

P0077 

0 IIB 



SAN ABS-^-1 


+ ^MSOS +.LiM23G02a3 

o 

\ ) 

02Gh, 

P0078 

C106 



LDA-.VTPE,I 

REQUEST. WORD BIT 8 

++MSOS 

4.1*+M23UQ204 



0205 

P0 079 

A028 



AND- ONEBIT+8 



M230G205 



02 0'6 

P007A 

0108 



SAZ A3S-^-l 

SKIP ON ABS CALL 


H230 0 2G 6 


O 

020 7 

P0078 

B1 06 



EOR- VTPE, I 


++HSOS 

4.1- + M23D020 7 

o 


0208 

P007C 

6106 



STA- VTPE, I 



M23j 0208 



0209 

P0 07D- 

0814 



TRQ A 



H 23 u 0 20 9 



0210 

P007E 

AO 11 



AND- LPMSK+15 



H230 Q2ia 


.'*"■( 

0211 

P007F 

8032 



ADD- ONEBIT+15 



M230 0 211 

Ti 

' 


0212 

P008Q 

8107 



ADO-' VTMP,I 

ADD REL COMPLETION 

^+MSOS 

h.1-^^-H23uu212 



0213 

PO 08 1- 

AOll 



AND-- LPMSK + 15 

1 


M 23 00 213 



021P 

P0082 

6107 



STA- VTMP,I 



M230 0214 



, 0215- 

P0083 ' 

0500 


ABS 

IIN' 0 ' 



H230D215 

o 


0216 

P0084 

E0B4 



LDQ- TOMPT 

FIND EMPTY IN STACK 


M23G0216 


0217 

P0085 

0000 



INQ fl . ' 



M2300217 



0218 

P0 086 

01 52 



SQN S3-^-l 



M231I0218 



0219 

P0087 

5400 ■ 

X 


RTJ+ SYFAIL 

SCHEDULER STACK HAS OVERFLOWED 

- HANG 

M2500 219 

{■"■'I 



P0088 

7FFF 

X 








022 0 

P0089 

C2Q2 


S3 

LDA- PT,Q 



H230 022u 



0221 

P0D8A 

6QB4 



STA- TOMPT 



M23SG221 


l' ' 

0222 

PD08B 

4105 



STQ- VPTR,I 

STORE NEW POINTER TO 


M23ii 0222 

C) 


0223 

P008C 

C1G6 



LDA- VTPE, I 

' PARAMETER LIST 


M23G0223 



Q22 4 

P008D 

6622 



STA- (ZERO), a 



H2300224 



0225^ 

PQ08E 

C107 



LDA-' VTHP,I 



M23D 0 22 5 


r\ ' 

0226 

P008F 

6201 



STA-,' PC,Q 



M23C0226 


w , 

022 7 

P0G90 

C4FF 


SCHE02 

LDA- . (I) 

STORE Q 


M233G227 



0228 

P0091 

62 03 



STA-' PQ,Q 



M230G228 



0229 




jf 

, 



M2300229' 



0 23 0 





' SEARCH FOR 

STACK POSIT'ION ACCORDING 


M230 u 230 

, c 

V.-- 

. 0231 





. TO PRIORITY 

OF THE REQUEST. 


H2SGG231 



0232 








M2300232 



0233 

P0092 

0500 



IIN ' 0 



M2300233 


r\ 

0234. 

P0093 

EO 00 



LOQ =XSCHTOP 

POINTER TO SGHT0P IN Q 


M230 Q23‘4 

o 


poo9^ oeco p 



C235. 

P0 095 

•O'DFD 

INQ 

-2 

' ^ STORE PO.INT6R 

H23u023S 



'■ 0 23 6 

P0Q96 

4106 

THREQ'l STQ- 

VTPE, I 

M23G0236 


O ■ 

0237 

P0Q97 

C202 

LOA- 

PT,Q 

POINTER TO NEXT ENTRY 

H 23'G G 23 7 

o 


0 2.3 8 

■PC 0 98 

0900 

INA 

0 


H23GC2S5 


0239 

'P0D99 

0106 

SAZ 

THREAD 


M23UC239 



' 0240 


* 


THREAD INTO Q 

M230Q 24G 


o 

0241 

P0Q9A 

G822 

TRA 

Q 


M 23 j U 2+1 

' o 

Q 








o 

C) 








■ C) 
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0242 

'0243- 

0244 

0245. 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0252 

0263 

0264 

0265 
026 6 
0267 
026 8- 

026 9 

0270 

0271 

0272 
0 27 3 

0274 

0275 

027 6 
0277 
027 8 

0279 

0280 
0 281 
0282 
0283 


PQQ98 
P0Q9C 
P0090 
PO 09E 
P009F 


POOAO 
POOAi 
P00A2 
PQ0A3 
P0 0A4 
P00A5 
P0GA6 
P00A7 
P00A8 
POOA9 
POQAA 


P00A8 
POOAC 
POQAD 
PO QAE 
POGAF 
POOEO 
PQOBl 
P00B2 
P0083 
P00B4 
P00B5 
P0 0B6 
P0GB7 
P00B8 
P0QB9 
PQ 08A 
PCOBB 
POOBC 


C622 

A006 

9104 

0131 

18F6 


El 06 
C202 
El 05 
6202 
0814 
El 06 
6202 
C4FF 
Aflll 
64FF 
14B9 


AOll 
SOEB 
0500 
6 1 Op 
C622 
0F49 
AB07 
G9F6 
0104 
09F6 
0102 
0 AOO 
6202 
E105 
C202 
0102 
1400 
7FFF 


THREAD 


0IR2 


LDA- (ZERO) , Q 
AND^ LPHSK+4 
SUB- ypt,i 
SAM THREAD-^^-i 
JMP» THREDl 

THREAD NEW 


VTPE,I 
PT,Q 
VPTR, I 
PT,Q 
A 

A/TPE,I 

PT,a 

(I) 

LPMSK+15 

(I) 

(AREQXT) 


CARD DELETED 

SKIP TO THREAD NEW ENTRY 
IF ITS PRIORITY HIGHER 


ENTRY 


1 CARD DELETED 

POINTER TO PRECEDING ENTRY 
POINTER TO NEXT ENTRY 
STORE INTO NEW ENTRY 


STORE NEW POINTER 
IN PRECEDING ENTRY 
PICK-UP USERS Q REGISTER 
REMOVE THE SIGN BIT 
PUT IT BACK 


DIRCAL 


PROCESS DIRECTORY CALLS 


LPMSK+15 GET SYSDIR ADDRESS 

A'SYSOR 
0 

VPTR,I 

(ZERO),Q PICK UP REQUEST CODE 

9 

LPMSK+5 

-RGSCHD 

DIR2-^-l ■ IF NOT SCHEDULE REQUEST CODE 
-PISOHD+RCSCHO 

DIR2 SKIP IF- REQ/CODE .18 

0^ „ MUST BE A SECONDARY CALL 

PT,Q CLEAR THREAD IN USERS REQUEST 

VPTR, I Q = SYSTEM DIRECTORY ADR. 

2,Q. 

DIRi-«-l 

SCHERR 


NOT SCHEDULE REQUEST CODE 



02 8 4 

POOBO 

C622 DIRl 

. LDA- 

(ZERO),Q 

0 

0 28 5 

POOBE 

0122 

- SAP 

DIRIA 


0286 

POOBF 

140 0 X 

JMP 

SCHERR 



POOCO 

0 0 BG -X 




028 7 






0288 






0289 

POOCl 

A016 DIRIA 

A NO- 

■■NZERO-i-4 


0290 

P0OC2 

8104 - 

ADD-: 

VPL.I 


0291 

PO0C3 

6622 

STA- 

(ZERO),Q 

0 

■ G2 9 2 

PG0C4 

OF 49 

ARS 

9 


CHECK IF UK ro 
OK, CONTINUE 
SCHEDULING HAS 


SCHEDULE 


BEEN DISABLED 


REPLACE PRIORITY 
IN OIRCCTORY WITH 
CALL PRIORITY 


MASS MEMMORY CALL 


,M23w 0242 
.. M2300243 
' M 230 0 244 
M23D0245 
M23 j 0 246 
. M23DQ247 

M2300248 
. , M2300249 

, M230 0 25Q 

H23D0251 
" M23u0 252 
■ -M2300253 

' M25QU254 
M2300255 
M23DG25 6 
M23Q0257 
M23 0 u 25 8 
M230 C259 
M23GG 260 
M2300261 
, M230G262 
MZ3G0263 
M230,0264 
M23j0265 
M23uQ256 
M23j0257 
M2300268 
H2300259 
M2ou U 27 u 
M23G0271 
M25u0272 
^■^MSOS ^.:jM2S0G27S 
M23j 0,27 4 
M230O275 
M 2,3 0 0 27 6 
H 230 0.27 7 
. M233G278 

M23aC279 
M 230 0 28 0 
M2300281 
• . M23G0282 

^-MSOS 4.CH23.0Q2S3 

-*^^^HS0S4. GH23a0264 
»^^HSUS-. LM23GQ285 
^'^•MSOS 4.eH23u0 28 6 

C,M23u 0 28 7 
-^^HSQS4. GM23 Q,u28 8 
GH23UU289 
M 23 0 0,29 0 
■ M230 0 291 
M 23^ 0 292 


O 

O 

O 

W 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0293 

POOC5 

A007 



ANO- 

LPMSK+5 


^^^MSOS -r.uM230 u293 

0294 

P00C6 

OlOC 



SAZ 

MASCAL-^-1 

GO TO DIRECTORY CALL 

M 23 0 0 294 

0295 








H2300295 

0296 








' H230Q296 

0297 






CORE RESIDENT DIRECTORY CALL 

M2300297 

0298 








M23 j 0 298 

0299 

P0QC7 

0 8 04 



SET 

A 


M23G 0299 

0300 

P00C8 

6202 



STA- 

PT,Q 


''.M230 0 30 0 

0301 

P00C9 

0400 



EIN 

0 '• 


M230 0 30 i 

0302 

POQCA 

COEF 



LOA-. 

PRLVL 


M 23 GO 30 2 

030 3 

PCOCB 

9104 



SUB- 

VPL,I 


M 23 0 0 30 3 

0304 

PQOCG 

0125 



SAP 

S5-»-i 


M230G304 

0305- 

POOCD 

C622 



LDA- 

(ZERO) ,Q 

SAVE WORD 0 OF DIRECTORY ENTRY 

M2 3 3 u 3b 5 

0306 

PO ecE 

61 06 



STA- 

VTPE, I 


M23'J 0306 

030 7 

POOCF 

C201 



LDA- 

PC,Q 

SAVE SCHEDULED ADDRESS 

M23 u u 30 7 

0308 

PQODQ 

6107 



STA- 

VTMP, I 


M23j 0 308 

030 9 

PCODl 

182B 



JMP^ 

HILVL 


M230 u 309 

031 0 

P0002 

18 ED 


S5 

UMP-f- 

SCHE02 


M230031C 

0311 








MZou 0311 

0312 




^ V- 


MASS MEMORY 

DIRECTORY CALL. 

M23Q0 312 

0313 








M23003i3 

0 31 -t 

P0003 

C4FF 


HASCftL 

LDA- 

(I) 


M 23 0 0 31 4 

0315 

POOO^ 

6104 



STA- 

VPL,I 

SAVE Q TEMP IN VOLATILE 

^433-^^^'^M23ju315 

0316' 

P0GO5 

5400 

X 


RT J 

CKTHRO 

CHECK THREAD - bUSY. REJECT REQUEST (Q 13 = 1^*^^ M23Gu31fa 


POO 06. 

'7FFF 

X 






031 7- 

POOD.?'.- 

•C104 



LOA- 

VPLtI 


M230.U317 

0318 

P 0 00,8' 

6203 


. . /■ 

STA- 

3,Q 

MOVE PARAM TO DIRECTORY. SLOT 3 

, M233u 318 

0319 

P00D9 

C622 



LOA- 

(ZERO) , Q 


'^433^^^''^, M23au319 

0320 • 

POODA 

AOOO 



AND 

= N£FQ 

SAVE RED PRIORITY 

’^.433^^-^ M23uG32L 


PG0O8 

OOFO 







0321 

POQDG 

6104 



STA- 

\/PL,I 

SET UP REQUEST PRIORITY IN VOLATILE 

M 23 0 0 321 

0322 

PQODO 

C622 



■LDA- 

(ZERO),Q 


^^MSOS . ‘,..uM2330C22 

0323 

PO ODE 

A031 



AND- 

0NEBIT-H4 


^^MSOS -r,. .0M23OG'32 3 

0324 

POODF 

0102 



SAZ 

MASCQ-»-i 


-^MSOS 4.UM230G324 

0325 

POQEO 

1400 

X 


JMP 

KoSCOR 


'^^MSOS 4.OM230D325 


POOEl' 

7FFF 

X 






0326 

PO 0E2 

OCOl 


MASC3 

ENQ 

1 


, ^^MSOS C. 0M23b 0326 

0327 

P00E3 

1400 

X 


JMP 

SAVLU 

SET UP THREAD. TO .CO, RE ALLOCATOR 

.^433-^^^ M23L0327 


PQ0E4 7FFF X 


THREAD REQUEST TO LOGICAL UNIT 1 


0328 


M230 0 328 



f '' 

' 
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r'''- 

. 0330 







^HSOS t . UH23G G 33G 

o 


0331 




PROCESS ENABLE 

SCHEDULE CALL ^ 

^^•>HSQS4. OM2300 331, 


0332 



V- 




^-^HSOS,. GM23J J 332 



0333 


00E5 P 


EQU 



^»^MS0S4. 0M2300333 



0334 

P00E5 

0822 


TRA 

Q 


M230 0 334 

■ o 


0335 

P00E6 

C108 


LDA- 

8,I’ 

PICK UP INDIRECT FLAG 

H23 00335 


0336 

P00E7 

0132 


SAM 

ENSCH 

SKIP IF INDIRECT 

M 233 0336 



0337 

P00E8 

D103 


RAQ- 

VR, I' 


■ H23J0'33 7 


C\ 

■ 0338 

P0 0E9 

D1G3 

, , 

RAO- 

VR,I 

UPDATE RETURN ADDRESS 

M23j 0 33 8 



0339 

POOEA 

C622 

ENSCH 

LDA- 

(ZERO) , Q 


M23Q0339 



0340' 

POOEB 

AO OA ' 


AND- 

LPHSK+8 


^MSOS -..i: N23Gu340 



0341 

POQEC 

0116 


SAN 

OISCH 

DISABLE request' 

’^MSO'S 4.0 -M233G341 


C'': 

0342 

POOED 

E201 


LDQ- 

PC, a 

GET SYS DIR INDEX 

^'-^MS0S-..i;M23uu342 



0343 

POOEE 

FOES ■ 


ADQ- 

ASYSDR 

CALCULATE ADDRESS 

^-^NSQSn. CM230 u545 



0344 

POOEF 

G622 

- 

LOA- 

(ZERO) ,Q . 


^^*MS0S4. wM230G344 



0345 

POOFG 

AQll 


AND- 

LPHSK+15 

CLEAR DISABLE BIT IN DIRECTORY 

^^^^MSOSh. GM23003n5 


T", 

03t+6 

POOFl 

6622 


STA- 

(ZERO) , Q 


' ^^-^HSOSt . .M230 0 3-rb 

o. 


0347 

P00F2 

14B9 


JMP- 

(AREQXT ) 


^-'^^^HSOS^r. 0H230 0347 

V,.' 


0348 







^-^HSOS-t. UM23G 0348 



Q349 




PROCESS DISABLE 

SCHEDULE CALL 

^^^MSOS-,. 0M23uG349 


O 

0350 







, ^^^MSOS4. 0M23j0350 

' C' 

0351 

P00F3 

E201 

OISCH 

LDQ- 

PC,Q 

GET DIRECTORY INDEX 

^HSOS 4.0 H230u351 


0352 

P00F4 

FQEB 


ADQ- 

ASYSDR 

CALCULATE ADDRESS 

^^'^MSOSh. 0M25GD 352 



0353 

POOFS 

C622 


LDA- 

(ZERO) , Q 


^-'«HSOS-r. GM230U353 



0354 

■ P00F6 

■0500 


IIN 

0 


69^‘l->66 t'1230G354 



035 5 

P00F7 

AO 11 


AND- 

LPMSK+15 


69^1366 M23G0355 

1 


0 35 6 

POOFS 

0400 


EIN 

0 


69^1566 M23D0356 



035 7 

P00F9 

8032 


EOR- 

ONEBITf 15 

SET DISABLE BIT IN DIRECTORY 

&M234U357 


C) 

0358 

POOFA 

6622 


STA- 

(ZERO ) , Q 


^»^HS0S4. uM23uG358 

o 

0359 

POOFB 

14B9 


JMP- 

(AREQXT ) 


uM23j 0 359 


0360 






M2300360 



0361 





SCHOLE REQUEST IS OF HIGHER PRIORITY 

H 2 3 w u 36 1 


O ' 

0362 





THAN CJRRc 

NT LEVEL. 

M23DG362 


' 0363 







H2300363 

L.-’ 


0364 







M230,03&4 



0365 





PUT REQUESTOR ON INTERRUPT STACK 

M230 Q 365 


o. 

0 366 







H23u036fa 

: O 


0367 

PflOFC 

0500 

HILVL 

IIN 

0 


M235U367 


0368 

PGOFO 

E088 


LOQ- 

COUNT 


H 230 0 368 



0369 

PQOFE 

CQEF 


LDA- 

PRLVL 


H23;;Q369 


{^\ 

0370 

POOFF 

6204 


STA- 

XPL,Q 

SAVE PRESENT LEVEL , 

M23G0370 

O 


0371 





ADJUST VR TO RETURN TO REQUEST 

EXIT ■ M23G0 371 


0372 

PQIOQ 

CO 89 


LOA- 

AREQXT 


M2300 372 



0373 

POICI 

6203 


STA- 

XR,Q 


M23Q0373 


o 

0374 

PQ102 

COFF 


LDA- 

I 


M23 D 0 37 4 

O 


0375 

PQ103 

6202 


STA- 

XI, Q 

SAVE I 

M230 0 375 


0376 

P0iCi4 

0D05 


INQ 

XL 


H 2Su 0 376 



0377 

■P0105 

40 B8 


STQ- 

COUNT 

SET NEW BASE 

M2310 3'7 7 



0378 

P0106 

£1 04 


LDQ- 

VPL,I 


M2300378 

C 


0379 

P0107 

40EF 


STQ- 

PRLVL 


M23GQ379 


0380 

P0108 

C6B7 


LOA- 

(AHASKT ) ,Q 

SET NEW LEVEL AND 

M23GC3SG 



038 1 

P0109 

0 821 


TRA 

M 

MASK 

M23uu381 


o 

o 

0382 

POlOA 

0 400 


EIN 

0 


H23GG382 

o o 

C) 









o 
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0383 

038A 

0385 PQIGB 5826 
D386 

.0337 POIGC E1G5 

0388 POIOD 0500 

0389 PDIOE C&22 

0390 PGIOF QF49 

0391 PQliQ A007 

0392 POlll 09F6 

0393 : P0112 G102 

0394 P0113 0844 

0395 P0114 6202 

0396 P0115 C106 

0397 P0116 A031 

0398’^P0117- 0102 ■ 

0399 -P0118- C107 ■ 
040 0 PQ119 1809 ' • 

0401 POllA C106 

0402 PQllB A02B ■ 

0403 POilC 0 101 

0404 POllD 0814 

0405 POllE AOil 

0406 POUF 8032 
0407- P0120 8107 
0408 P0121 AOll 
0-+09 P0122 6CD0 

PG123 FF2B 
Ohio P0124 it8C7 
0411 -90125 E4FF 
0-412 P0126 C4FF 

0413 P0127 AOll 

0414 P0128 64FF 

0415 P0129 C802 
U4l6 P012A Qt04 

0417 P012B- OQQD 

0418 P012C FFFE 

0419 PQ120 FFFE 

0420 P012E 7FFF X 

0421 P012F 7FFF X 

0422 P0130 0000 

0423 

0424 

0 42 5 P013i-,00 00 - 
0-426 P0132.0500 

0427 PQ133.E0EF 

0428 P0134 CGFA 

0429 P0135 A223 
, 0-.30 PQ136 0104 

0431 P0137 0814 

0432 P0138 98F4 

0433 PQ139 QlQl 
G434 P013A 0121 





RTJ^ 

SAVE 



IF SECONOAI 


LDQ- 

VPTR,I 


IIN 

0 


LDA- 

(ZERO) ,Q 


ARS 

9 


AND- 

LPMSK+5 


INA 

-RCSCHD 


SAZ 

PRI HRY-^--i 


CLR 

A 


STA- 

PT,Q 

PRIHRY 

LOA- 

VTPE, I 

, 

AND- 

0NEBIT4-14 


SAZ 

S6A-»-l 


LDA-. 

- VTMP, I 


JMP^ 

S6B 

S6A 

LDA- 

VTPE, I 


ANO- 

ONE8IT + 8- 


SAZ 

S6-^-l 


TRQ 

A 

S6 

AND- 

LPMSK+15 


ADD-- 

ONEBIT+15 


ADD- 

VTMP, I 


ANO- 

LPMSK+15 

S 6B 

STA 

(ACOMEX) 


STQ« 

PASSA 


LDQ-'. 

(I) 


LDA- 

(I) 


AND- 

LPMSK+15 


STA- 

(I) 


LDA» 

PASSA 


EXI 

COHEXT-$10 

PASSA 

NUH ■ 

0 

FTOP , 

HUM 

-1 

FLEVEL 

NUM 

-1 

ALIST 

ADC - 

FLIST 

AFMASK 

ADC ‘ 

FMASK 

TEMP 

ADC 

0 



SAVE PERSI 

>!■ 


RETURNS I 

SAVE 

0 

0 


now' at requested LE-VEL, save COKNON DATA, 
LEVEL JSING PSUEDO REENTRANT LIBRARY 


extract-request code 

IF SECONDARY CA LL , ( RC . NE . 9 ) 

clear thread in call 

FIND PLACE TO GO 


FOR REL AND ABS MODE 
15 BIT ARITHMETIC 


62 4 

62h 

ili 

MASK OFF UPPER 81 1'''" 

624 
62 4 

0 CLEAR OVERFLOW AND 


IF REQUEST, AT 


■^MSQS 




\SOS 


».^MSOS 
^>MSOS 
«*HSOS 4, 
^^MSCS 
»^MSOS 


«^^MSOS 


M2 3-a 
M2 3 4 

M 2.3 0 
M233 
M230 
H23G 
.M230 
H23u 
uM230 
M23G 
M23Q 
M23'J 
M230 
4.1,’f,^M'1230 


..GM230 
4.-uM23 0 
l«^^^M23u 
4. GM23U 
4.i^^M23G 
M23 j 
M230 
M230 
M230 
M 23 j 
4. 1«^-M230 
M23G 
^^MSOS -.uM230 


u 3 8 3 
0384 
0 385 
■0 386 
0 38 7 
0 38 8 
0 389 
0390 
y 391 
0 39 2 
0 393 
0394 
0 395 
0 396 
0 39 7 
0398 
0 399 
C 40 G 
0 40 1 

0 iu2 

QtG3 
0 40 4 
u 4 O 5 
0 40 5 
0 4 O 7 
0 40 8 
0 409 


■^624 


GO TO NEXT PGM 


HABLE REGION IN PUSHDOWN STACK 
UNCHANGED , Q CONAINS I 


IIN 

LOQ- 

LDA^ 

AND- 

SAZ 

IRQ ■ 

SUB^ 

SAZ 

SAP 


0 

PRLVL 

lAFMASK) 

0NE8IT,Q 

JEXIT-^-1 

A 

FLEVEL 

JEXIT-»-l 

SAVO-^-i 


M23j 
M230 
M230 
M23 0 
H23G 
M230 
H 23 u 
M23ii 
M23Q 
M230 
M23Q 
M230 
M230 
M23G 
M230 
M230 
M230 
, N230 
■ H23Q 
M23Q 
H23J 
M23 0 
M23Q 
H231 
M233 


u-t10 

G 4II 
G 41 2 
b -.13 

b 414 
Q,4l5 
0 4I o 
0 41 7 
0 4 I B 
0419 
0 42 Q 
a 421 
0 42 2 
0423 
0 42 4 

Q%2 5 
0 42 6 

O427 
0-1-2 8 
0 429 
G 43 0 
0 431 
0 432 
G 43 3 
0 43 4 


RDISP 


PAGE 10 


DATEj Cl/27/99 



G43 5 

P0138 1CF5 


JEXIT 

JMP^ (SAVE) 

I 

0436 

P013C CCFl 


SAVO 

LOA^ {ALIST) 


0437 

P013O 0926 



INA FH-5 


0438 

P013E 68 04 



STA^ CALL 

0 

0439 

P013F E8ED 



LDQ''- FLEVEL 

, 0440.. 

P0140 C8EB 



LDA^ FTOP 


0441 

P0141 54BB 



RTJ- lAVOLA) 


0442 

‘P0142 0 0 00 


CALL 

ADC 0 

r"> 

0443 

■P0143 C8ED 



LDA^ SAVE 


0444 

P0144 6103 



STA- 3,1 


0 44 5 

P0145 COEF 



LDA- PRLVL 


044 6 

P0146 68E6 



STA^^ FLEVEL 


0447 





■w'' 

0448 

0449 

P0147 COFF 



LDA- I 


0450 

PQ148 68E3 



STA^ FTOP 

r'' 

0 451 

P0149 0904 



INA 4 


0 45 2 
0453 

P014A 60FF 



STA- I 


0454 





O) 

0455 






0456 






0457 





r"\ 

0 45 8 
045 9 

P014B 0400 



EIN 0 

0460 



If- 

IF 1761-1 OM SYSTEM 


0461 

0462 

P014C 'C4 00 

X 


LDA E17811 



PQ14D 7FFF 

X 




0463 

P0.14E 08 22 



TRA Q 


0464 

PCI 4 F BOll 



EOR- .Sll 


. 0455 

P0150 0106 



SAZ SV781E 


0 46 6 

P0151 GD 06 



INQ 6 

0 

0467 

PQ152 COOO 
P0153 0QC8 



LDA =XSV781L 


04&'8 

P0154 OBOO 



NOP 0 

/"“'I 

0469 

P0155 03FE 


, , 

OUT -1 


Q470‘ 

P0156 5854 


. . . 

OL1781 


0471 

0157 

■P 

SV7.81E 

EQU SV781E{^) . 


0472 

P0157 0C20 



ENQ Fl-1 

• 

U 

0 473 

P0158 C2G5 


SAVl 

LDA- FCOHiQ 

0474 

P0159 66FF 



STA- (13,0 


0 47 5 

• P015A OOFE 



INQ -1 


0 47 6 

P015B 0171 



SQM SAV2-*-l 

Q . 

0477 
Gu7 8 

P015C 18FB 


4 

JMP^ SAVl 


0479 

PQ150 ECDO 


SAV2 

LOQ^ (ALIST) 


048 0 

P015E 18 09 



JMP^ SAV4 

{ I 

o^-ei 

PG 15F 0500 


SAV3 

UNO 

I 

0432 

P0160' 48CF 



STQ- TEMP 


.0483 

P0161 EECC 



LOQ« (ALIST) ,Q . . 


0484 

P0162 C622 



LDA- (ZERO),Q 

/ i 

0485 

P0163 E8CC 



LDQ'^ TEMP 




SAVE. OLD FLEVEL- FTOP .IN VOLATILE 

ACQUIRE VOLATILE, 

NO WORDS. = F1+F2+A 

VOLATILE WILL BE RETURNED BY 

THE DISPATCHER BEFO RE , D POPPING LEVEL) 

SET UP NEW PRIORITY LEVLE 


SET UP NEW FT OP 


, STOP IT AND SAVE IT'S REGISTERS 
PICK UP 1781-1 WES 
SAvi IN^ Q 

CHECK FOR UNPATCH EO 

BYPASS SAVE IF. NO 1T8;1-1 

SET Q FOR 1781-1 STOP COMMAND ($XXX9) 

SET A FOR 1781-1 SAVE LOCATION 


STOP 1781-1 
EXECUTE DELAY 


MOVE PARTI OF LIST TO VOLATILE C4l. 


MOVE PART 2 OF LIST TO VOLATILE 
LOCATION 


'M22aO-rS5 
M23D0L3O 
M 23i u -i-S ? 
M23QG438 
M23QGA3 9 
M23a 

MZSOG^tAl 
M23Q0 AA2 
M 23 C 0 4 3 
M2 30 0.4h'4 
M2300 h 45 
M230 G-t4b 
M2300-.47 
M230 0448 
M23QQ449 
M2300 h5G 
H2300hH 
M 23 0 0 4:? 2 
M 23 0 0 *+5 3 
M233 Q t54 
M23 J Q 45 5 
M2300456 
M 23 0 C 7 
M23a0 h 53 
M2300 459 
M23004b0 
M23QD461 
M23aQ 462 

M230 0 463 
M 23Q 0 464 
M23 ii D 4b 5 
M23uG 46b 
M23J Q-f67 

H233 0 4D6 
M230G4&9 
M23 j 0 47 0 
M2300 471 
M2300 472 
M23Q 0475 
M23 3 0 474 
H23D0 47 5 
M230 0 47b 
M 23 0 0 47 7' 
, M23C 0 478 
M23a0479 
M 23 u 0 48 0 
M 23 a 0 48 1 
H 23 3 0 48 2 
M 23 0 0 48 3 
M230 0 48-4 
M 23 u 0 48 5 


C) 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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P016A 

P0165 

P0166 

PQ167 

P0168 

P0169 

P016A 

PQ16B 

PG16C 

PG16D 

P016E 

P016F 

P0170 

P0171 


6320 
0 400 
ODFE 
0142 
0171 
18F5 
EOFF 
QDFB 
C203 
0500 
68C2 
E2 02 
40FF 
ICBF 


P0172 0000 
PQ173 0500 


P0174 
P0175 
P017 6 
P0177 
P0178 
PQ179 
PO 17A 


E3B7 
0 174 
EOEF 
CCB7 
A223 
0111 
1CF7 


SAV4 


SAV6 


RESRTN 0 

IIN 


STA- F1-1,B 
EIN 0 
INO -1 
SQZ SAV6 
SGM SAV6 

JHP* SAy3 ■ ' 

LOQ- I 

INQ -4 

LDA- 3,Q 

IIN 0 

STA"^ SAVE 

LDQ- VltQ 

STQ- I 

JHP^ (SAVE) 

RESTORE AND RETURN ROUTINE 

RESTORE COMH REGION ONLY IF A FORTRAN USER LEVEL JUST 

TERMINATED, 

0 0 
IIN 0 


RXIT 


LDQ^ FTOP 
SQM RXlT-»-l 
LDQ- PRLVL 
LOA-.CAFMASK) 
AND- ONEBIT,Q 
SAN RESu-«-l 
JMP^ (RESRTN) 


RESTORE PERISHABLE REGION FROM PUSHDOWN SIACK 


P017B C8F6 
P017C E8AF 
PQ17D 6203 
P017E 0D04 
P017F 40FF 
P018C 0400 


RESO LOA’- RESRTN 
LDQ^ FTOP 
STA- 3,0 
INQ 4 
STQ- I 
EIN 0 


P0181 

P0182 

P0183 

P0184 

P0185 

P0186 


0C2G 

C6FF 

62C5 

OOFE 

0 1 71 
18F3 


RESl 


, ENQ Fl-1 MOVE PART 1 OF LIST 

LOA- (D,Q COMMUNICATION REGION' 

STA- FCOMiQ 
INQ -1 
SQM RES2-^-l 
JMP» RESl 

IF 1781-1 ON SYSTEM, RESTART IT 


PQ18 7 C400 
P0188 OI 4 D 
PG189 0822 
P018A BOll 
P018B 0106 


X RES 2 
X 


LOA E17811 

TRA Q ' 

EOR- $11 
SAZ LD781E 


PICK UP 1781-i EQUIPMENT CODE 

SAVE -IN Q ' ' ■ . 

CHECK FOR UNPATCHED 
BYPASS RESTORE IF UHPATCHED 


M2o j 0 p 3 ii 
M230 0 53b 


r'\ 
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o 

0538 

P018C 

0DQ2 


iNa 

2 

SET Q FOR 1781-1 RESTART 

COMMAND 

M 23 u 0 55 8 

c 

0539 

P018D 

CQ 00 


LDA 

= XSV781L 

SET A TO ADDRESS OF SAVE 

LOCATION 

, M230 0 539 



. P018E 

00C8 








054Q 

PG18F 

0800 


NOP 

0 ' ' 



M23G0540 


o 

C5i+1 

P019Q 

03FE 


OUT 

-1 - 

RESTART 1781-1 


H 230 0 541 
' ' M23 0 0 542 

o 

G542 

P0191 

5819 


RTJ» 

DL1781 

EXECUTE DELAY ROUTINE 



0543 

P0192 

EC9B 

LD781E 

LOQ^ 

(ALIST) 

MOVE PART 2 OF LIST 


M2530543 



0 544‘ 

P0193 

1809 


JMP» 

RES4 


M2300544 


O 

0545 

P0194 

0500 

RES3 

IIN 

0 

LENGTH IS IN FLISKO) 


M23a 0 545 

O 

0546 

P0195 

489A 


STQ^ 

TEMP 


M230 0 546 


0547 

P0196 

C320 


LDA- 

F1-1,B 

START OF PART2 IN VOLATILE 

M230 Q 54? 



0 54.8 

P0197 

EE96 


LOQ- 

(ALIST) »Q 

> LOCATION OF DATA 


H23u054S 



0549 

P0198 

6622 


STA- 

(ZERO) ,Q 

RESTORE DATA 


M2300549 

/^\ 


0550 

P0199 

£896 


LDQ^ 

TEMP 



M23D 0 55 0 

V.' 


0551 

P019A 

0400 


EIN 

0 



M23JC551 



0552 

P019B 

ODFE 


INQ 

-1 



M2380 552 


T') 

0553 

PO 19C 

0 1 42 

RES4 

SQZ 

RESTT 



M 23 00 55 3 



Q554 

PO 19D 

0171 


SQM 

RESTT 



M230 0 554 



D 55 p 

P019E 

18F5 


JMP^ 

RES3 



M 23 0 0 55 5 



055 b 








M23 3 0 5p6 


Pi 

0557 

PO 19F 

0 500 ■ 

RESTT 

IIN 

0 



^^MSOS 4.C.M230 up57 

o 

V..'’ 

0553 

PDIAG 

EOFF 


LOG- 

■I 



H23j 0558 


0559 

POlAl 

ODFB 


INQ 

-4 



M233 0 559 



0560 

PQ1A2 

40 FF 


STG- 

I 



M230 0 56G 


r'''* ' 

0561 

PD1A3 

C2Q3 


LDA- 

3 tQ 



H23 3 0 5o 1 

C' 

V-', 

0 56 2 

P01A4 

68CD 


STA» 

RESRTN 



M23UQ 562 


C563 

P01A5. 

54BA 


RTJ- 

(Al^OLR) 



M23Q u 565 



0 56-4 

P01A6 

48 86 


STQ^ 

FLEVEL 



M23Q0 564 


o 

0 56 p 

POIA 7 

6884 


STA^ 

FTOP 



H230 0 565 ■ 

c 

0566 

P01A8 

0 400' 


EIN 

0 



M230 0 POc 


0567 

P01A9 

1CC8 


JMP» 

(RESRTN) 



H 23 3 0 PO 7 



0 5 5 8 



if. 





M2330568 



. 0569 








M23G 0 p69 

■ o 


■ 057 0 



V- 

DELAY ROUTINE FOR 

1781-1 STOP/RESTART 


-M 23 u 0 57 0 


05 71 



4 





M233 0571 



. 0572 

■-POIAA 

OBQQ 

DL1731 

NOP 

0 



M233 0 572 


O 

0573 

POIAB 

G5GQ 


IIN 

Q 



. M233 0 573 


0574 

.POIAC 

OAIO 


ENA 

16 



. M230D574 



0575 

PfllAD 

09FE 

DELAr 

INA 

-1 



M 23..» 0 575 



0576 

PSIAE 

0131 


SAM 

1 



■. M233 0 576 



0577 

POIAF 

18F0 


JMP» 

DELAY 



M23CU 57 7 

o 


0578 

POIBO 

0400 


EIN 

0 



M238Q578 


0579 

POIBI 

1CF8 


JMP* 

(DL1781) 



M233 0 579 



058 0 




END 




M23 j 0 58 0 


o ■ 










o 


' PGM = 

01B2 

{ ~t3U) 30F 

= u 0 0 0 { 0 ) 

OAT = 0003 { G) 


' 












; C 

o 

o 










o o 

C-' 










o 
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'J 

EQUIVALENCES 



DEF .LINE 

name 

VALUE 



QQOC 

I 

GOFF 

(000255) 


0 036 

SV781L 

00C8 

( D002Q0) 


0 037 

RCSCHD 

0 0 0 9 

(QOQQ09) 


0G38 

PISCHD 

0012 

(000018) 

V, ' 

0 039 

XA 

OGQl 

(OU.OQQl) 


0 039 

XI 

0002 

( 000002) 


0 039 

XR 

0 0 03 

( 0QOQ03) 


■ 0 039 

XPL 

000 4 

(000004) 

/ 

0 039 

XL 

000 5 

( 000005) 


0040 • 

PC 

0 0 01 

( 0 00001) 


0 0 40 

PT 

0002 

( 000002) 


0 040 

PQ 

0 0 0 3 

(000003) 


0 041 

VI 

0002 

(000002) 


0 041 

VR 

0 003 

( Q QOQ 0 3) 


0 Q41 

VPL 

000 4 

(000004) 


0 041 

VPTR 

00 0 5 

(OOOOQ5) 

L ‘ ' 

0 042 , 

VTPE 

00 0 6 

(000006) 


0 042 

VTMP 

00 0 7 

(QOQ007) 


0 043 

LPMSK 

0 0 0 2 

{ QQQfl02) 

. ... 

0 0^3 

NZERO 

0 012 

(000018) 


0043. ' 

ZERO ■ 

0022 

( 000034) 


0043 

ONEBIT 

0023 

(DOQ035) 

; 1 

0 044 

A VO LA 

OOB'B 

(0 00187 ) 


0044 

AVOLR 

OflBA 

(000136) 


0045 

PRLVL 

OOEF 

(000239) 


0045 ■ 

TOMPT 

QQ B4 

(000180) 


0045 

AREQXT 

0089 

(000185) 


0 046 

COUNT 

00B8 

( 000184) 


0 046 

AMASKT 

0087 

(0 00183) 


QQh7 

FCOM 

Q0C5 

(000197) 

o. 

0D47 

FI 

0 0 21 

(000033) 


Q 048 

ASYSOR 

OOEE 

(0 00235) 


0 0 49 

COMEXT 

0104 

( 000260) 


•Q 

O 

o 

n 


REFERENCED AT ‘LINE NUHBER 


0086, 

0111, 

Oil-, 0227 

0 520 , 

G p26, 

0558, '3560 

0 467, 

0 53 9 

0276, 0392 

0192, 

0274, 

0 1 75 , 
0 095 

0276 


0085 , 

03 7 5 



0083,. 

.0-3 73 

037'0 , 




0 0 62 , 

0088, 




0060 , 

0376 



G 30 7, 

0 ' 4 2 , 

0123, 

0129, 

0137, 

0226, 

0109, 

0121, 

0141, ' 

0 220, 

0 237., 

D 25 3 , 

0143, 

0228 





0 497 
0 165, 

U.16 6 , 

0,33 7, 

Q.338 

0-29 0, 

Q 30 3 , 

0169, 

0172 , 

y 1 .86 , 

0245, 

0222, 

0254 , 

Q270, 

0260 , 

0-38 7 

0 201, 

0167 , 

0170, 

0 l7o , 

0180, 

0189, 

0 168, 

0178, 

0183, 

Q212, 

G-21t, 

0225, 

0 0 70 , 

0693, 

013 6, 

0138, 

0171, 

017 5, 

0 3 55 , 
0 2 89 

0 391, 

0^—06, 

0 4 0 3, 

0 413 

0284, 

0126, 

0131, 

0224, 

u 2 ^+3 , ■ 

0271, 

0 4 8 4 , 

0549 



0181, 

0202, 

0 0 89, 
0 4 41 

0127, 

■0132, 

0136, 



0 563 
0065, 

O'OF.E, 

0 L. 96 , 

u 1 y 5 , 

0185, 

0302, 

0120 , 

0122, 

0 216, 

0 221 



-0 262 , 

0347, 

0 359, 

0 372 

0 37 7 


QQ59 , 

0Q94, 

0 0 99 , 

0368, 


0097, 
0 0 47 , 

0106, 

0 3 80 




0 473, 

052? 


054? 


0 437 , 

0 472, 

0 4 86, 

0 5 25, 


0268, 

0343, 

0352 




QIQO, 

U 1'4 4 , 

0145, 

0 416 




: O 

CSIhj 0 3?’-r» 1-1 » G‘4l2» U-i-i .. 


o 

o 


0 3^1 
0255, 

025 8, 

G279, 

a 30 0 , 

0395 





C' 

0 515, 

0'3,l7 , 

u 3 2 1 , 

0373 






O O 

0204, 
0 3u8, 
0191, 

02o7, 
0399, 
0 21 0 , 

0 2 0.8, 
4 40? 
0213, 

G223 ,- 

0 24 4, 

0 23o , 
0 260, 

u 2 y , 
0267, 

u 25 7 , 
027 3, 

u 0 u o , 

0 293 , 

u 9 O » L; u 1 

_ C‘ L ■$ ij -S''^ 

C291, 

0 3y 5 , 

0 319, 

0322 , 

0 330, 

b 5 4 , 

L f 

0 3 53 , 

.. yS i- 8 t U oo ‘‘i 


0205, 

0 211, 

G323, 

0357, 

0 397, 

L U £- f 

'J C 6 ? 

u “ 2 9 , 


^ O 

0 369, 

0 379, 

y 42 7, 

0 445, 

0 5 08 







o 

o 

o 

o 

o 

o 

C") 
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SYMBOLS 


DEF.LINE 

name 

address 

0G18 

RDISP 

000 0 

0 020 

DISRXX 

0 00 1 

0,020 

SCHTOP 

0 0 0 0 

0G21 

T9 

00 52 

, 0 022 

T18 

0052 

0 023 

T19 

00E5 

0 083 

RESINT 

0014 

0094 

RESA 

OOIE 

0104 

SCHSTC 

002 5 

012 6 

SCHSEC 

003C 

0131 

SCHA 

0 041 

0135 

SCHi 

0045 

. 0139 

SCHIA 

0049 

0142 

SCHXIT 

D04C 

0145 

ACOMEX 

Q04F 

0146 

ASCHD 

0050 

0147 

ASCLNG 

0051 

016 7 

SCHOl 

0057 

0184 

SO 

0068 

018 5 

SI 

0069 

0189 

S2 

00 6E 

0 201 

SCH2 

0 0 75 

0215 

ABS 

9 0 83 

0 22Q 

S3 

00 89 

022 7 

SCHED2 

QC90 

0236 

THREDl 

0096 

0252 

THREAD 

ODAO 

026 7 

DIRCAL 

OOAB 

u 280 

0IR2 

D0B8 

0284 

OIRl 

OOBO 

0289 

DIRIA 

flOCl 

Q 310 

' S5 

0002 

_ 0314 

HASCAL 

0003 

0326 

MASCO 

•0QE2 

0339 

ENSCH 

OOEA 

0351 

OISCH 

Q0F3 

0 3 67 

HILVL 

OOFC 

0396 

PRI HRY 

0115 

0 401 

S6A 

OllA 

0 %05 

S6 

OllE 

0 409 

S68 

0122 


REFERENCED AT LINE NUMBER 

0ul8 
0D20 

0 0 20 ^ OOfcEi 0069» GlObj Oil'Oj 
0 0 21 
0 022 
0 0 23 

0Q68, 0073, 007^ 

0 0 91 
0 076 

0117, 0119 
0128 
0133 
0130 
0125 

0Q84 , 0124, 0139, 0^,09 
0 116 
0 118 
0164 
0177 

0179, 0182 
0187 
0193 

02G3, 0206 
0 218 

0195,' 0310 
0 247 

0239, 0246 
0184 

0275, 0277 
0282 
0285 
0304 
0294 
0324 
0336 
0 341 

0188, 0309 
0393 
0 398 
0 403 
0 40 0 


0234 



RDISP 


PAGE 15 



date: 

01/ 27/99 

0 417 

PASSA 

012B 

Q410 , 

0 415 




0 418 

FTOP 

012C . 

0 440 » 

Qt5D, 

0506 , 

0517, 

0 56 5; 

0419 

FLEVEL 

012D 

0 432* 

0 i-39. 

u 4 o , 

0 obn 


0 420 

ALIST 

012E 

0 436, 

0479, 

O' 4 83 , 

0 543, 

0 548 

0 421 

AFMASK 

Q12F 

0 428, 

0509 




G 42 2 

TEMP 

013 0 

■■ D482, 

0*^85, 

0 5 46, 

0 5 5 0 


0 425 

SAVE 

0131 

. 0112, 

0385, 

0 435 , 

G h43 , 

0 49o , 0 4 

0435 

JEXIT ' 

Q13B 

- .0 430 , 

,■8.433 




0 436 

SAVG 

013C 

0 4^4 





D 442 

CALL 

0142 

0438 





0 471 

SV781E 

015 7 

0 465 





Q 473 

SAVl 

0158 

fl 477 





0479 

SAV2 

Q15D 

0 476 





0 481 

SAV3 

Q15F 

0 491 





0489 

SA V4 

0167 

Q 480, 





G 492 ' ■ 

SAV6 

016A • 

0489, 

'0.490 




05D3 

, RESRTN 

0172 

0057, 

0 512, 

Q 51o , 

0 562 , 

0 56 7 

0 512 

RXIT 

017A ■ 

0507 





0516 

RESO 

017B ' - 

0 511 





0526 

RESl 

0132 

0530 





D 534 

RES2 

0187 

0529 





0 543 

LD781E 

0192 

0^37 





0 545 

RES3 

0194 

0 555 





0 553 

RES4 

Q19C 

0 5 44 





0557 

RESIT 

019F 

0553, 

0'554 




0 572 

DL1781 

OlAA 

0 470 , 

G 542, 

0579 



0575 

DELAY 

OlAD 

0 577 






RDISP 


PAGE 16 


date; 


EXT ERNALS 


DEF .LINE 

NAME 

VALUE 

REFERE 

0 024 

SYFAIL 

00 88 

0 219 

002 5 

SCHERR 

OOGO . 

0 283 

C 027 

SCHSTK 

0 0 50 

0 146 

Q 027 

SCHLNG 

0051 

' 0147 

0 029 

FLIST 

012E 

■ ■ 0 420 

0 D30 

FMASK 

012F 

0 4-21 

0 032 

SA VLU 

0QE4 

0 327 

0032 

CKTHRO 

0006 

0316 

0 0 33 

K65C0R 

■'QOEl 

0325 

0 03 4 

E17811 

0188 

6 462 

0035 

F17811 

7FFF 



REFERENCED AT LINE NUMBER 


028 6 


i 1/ 27/99 



RDISP 


PAGE 17 


DATE: 01/27/99 



P H A 

B E T I 

CAL 

ABS 

0215 

ACOHEX 

0145 

AVOLA 

004 A 

AVOLR 

0 044 

0IR2 

■ 0280 

OIRCAL 

0267 

FCOM 

CQ47 

FLEVEL 

0419 

LD781E 

0 543 

LPMSK 

0 043 

PQ 

0040 

PRIHRY 

0396 

RE53 

0545 

RES4 

0 553 

S3 

0 22 0 

S5 

0310 

SAVA-' 

0 48 9 

SAV6 

0 492 

■ SCHED2 

0 22 7 

SCHERR 

0 025 

SV761E 

0 471 

svzaiL 

■ 0 036 

TOMPT 

Q 045 

VI 

0 041 

XL 

0Q39 

XPL 

0 039 


SORT 

0 F 

S Y M B 

0 L S 


AFMASK 

0 421 

A.LIST . 

0420 

: AMASKT 

CALL ' 

0 4 42 

CKTHRO. 

0 0 32 

GOHEXT 

D IS CH 

0 3 51 

OISPXX 

0020 

DL1731 

FLIST 

0 0 29 

FMASK 

0030 

FTOP 

HA SCO- ■ 

0326 

■MASCAL ^ 

0314- 

nZERO 

PRLVL 

0 0 45 

PT 

0U4U 

RCSCHD 

RESA 

0 0 94 

RESIHT 

0 0 83 

,'RESRTH 

S6 

Q 405 

S6A 

0 401 

. S68 

SAVE 

0425' 

SAVLU 

0032 

SCHl 

SCHLNG 

0 027 ' 

SCHSEC 

0126 

SCHSTC 

SYFAIL 

0 024 

Tie 

.0022 

T19 

VPL 

0 0 41 

VPTR 

' OO-rl 

VR 

XR 

0 0 39 

ZERO 

0 4 3 



0046 

AREQXT 

.0045' 

ASCH.D 

0 0 4 9., 

COUNT 

U 0,4 b 

■ DELA'Y 

03,72 ' 

E17811 

,. S.03-4 . 

ENSGH 

Oh 18 ' 

HILVL 

0,36 7 

I 

:Ca,'4 3', 

ONFBIT 

■ 0F4-3 

PiSCHD 

Li u 3./ 

,R0ISP 

0018 

RESC . 

0503 

REST! 

0 55.7 

RXIT ■ 

OnOS 

SAV2 

0 43 6 

SAVl 

013 5 

SGHIA 

0 139 

SCH2 

010 4 

SCHSTK 

0 02 7 

SCHTOP 

C 0 2 u 

T9 

0021 

TE'iP 

0041 

VTHP 

00-2 

VTPE 


0146, 

AfSC-LMG'. 

0A4 7' 

i;ASY=SO,R' 

V 0 H 8 

0 5 7 5 

DIRl 

0284. 

OIRIA 

0 289 

03 39 

FI 

O' 34 7 . 

F17S11. 

u 3 2 

0 j 0 0 

JcXIT 

G-3l= 

'< 0 5 C U R 

L si o3 

0,0 3 8 

PASSA 

u <~1 7 

PC 

b L H Li 

0 2 1 6 

RcS i 

C ^ o 

.RES 2 

_ ‘.j,’ H 

0 512 

Si 

u lb 'J 

S 2 

1, 189 

U H? 3 

SAV2 

b-7 9 

SAV3 

-81 

020 1 

SCHA 

Ul3i 

SCHDl 

L. 1 0/‘ 

0020 

SCHXIT 

01^2 

SO 

“ ^ R 

0'422 

THRnAD 

u 2^ 2 

TrlREOi 

L, 25 c; 

0 042 

XA 

j 139 

XI 

- -o9 


NDISP 


paGE 


i 


3A1E: 01/2^/99 


■QDGl 
00 3 2 
GIGS 
00 G 
GQOi- 


NAM .'4DISP DECK-ID M2- MSOS 5.l 

^ MON-FO-RT^AN SCHEDULER/DISPATCHER 

^ MASS STORAGE OPERATING SYSTEM VERSION 5.G 

=>■ St-JALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 


SUiMARY-l-i„M2^ jOuGi 
H 2 A G u u' 2 
ME^— juuuo 
M24GGu04 
M 2 • ■ . . u . 


GI07 



ENT 

SSHEDJ , NOISP 


^^M:jU3 -t.l^-HZ-rGOu G 7 

GUC9 



ENT 

T9, 3IS=>XX,SCHTOP 


^-MSOS jG09 

oa iG 



ENT 

T18 


-•^‘^MSDS-. .M2Au iuiu 

U Gil 



ENT 

T19 


^^^HS03-r. L'HZAUGGll 

0012 



, EXT 

K65C0R ENTRY IN PARilTiOri COR 

;E DRIVER 

.M24-OU-12 

0013 



EXT 

SCHERR SCHEDULER ERROR ENTRY 

IN TRVEC 

^^MSDS -V. L'H2aG0u13 

001 A 



EXT 

SYFAIL SITE FAIL LOCATED IN ^ 

Y30AT U;i8FF) M2-,uul^ 

0 G 1 5 



EXT 

SAVLJ jCKTHRJ ,SCHSTK,SDHLNG 


■f^MSOS ...I’^^-MZAGOUlB 

0016 

QOEF 


EQU 

PRLVL ($EF) ,TOMPT (SB , AREQXT (SB9) 


0 016 


u0 8- 







u G B9 






0G17 

G Q B8 


EQU 

CONT ($88) ,C0MEXTI$10a) 


^-NSOS . 1 --M2-G u‘ -1 7 


0 1 U A 






Oij 18 

G 0 09 


ECU 

RC3CHD (9 ) 


M -1 - _ j u 1 8 

0 C 1 9 






. 1 S U S - « M I'T w U w 1 9 

0 u 2 0 

G 012 


ECU 

PiSCHD(18) SYS DIR REQ FROM PART 

1 

•^^■^HSOS- . *,M2aGlG2G 

GG21 






^ .-1 S D 3 - . - M 2 -r u G c 2 1 

u I 2 2 

OOEB 


EQU 

ASYSDRC SEB) 


H c. n u u - 2 

u323 

0 0 68 


EQU 

COJNT (SB8) jYMASKT ($87) 


M 2-w G u23 


0 0 B7 






u D 2 L 

0002 


EQU 

LPiSK(S2) ,NZERO(il2 ) ,ZER3 U22) 


i‘‘i 2 A j Li G 2 - 


GO 12 







00 22 






0025 

0 023 


EQU 

ONE3IT{$233 , ZR08IT($335 


M 2 -i j 6 2 j 


G 0 33 






0 0 2 6 

GOG 3 


EQU 

VR(3) ,VPL(Ai , VPTR(5> 


M2-*., 0 u 2 b 


i] Q 0 A 







0 0 05 






u0 2 7 

0 0G6 


EQU 

. VT»E(6) , VTHP { 7) 


M 2 -* j G C 2 7 


G0C7 






0 <j 2 6 

G 001 


EQU 

PC(1) T(2> ,PQ(3) 


•M 2 T J G G 2 6 


0 0D2 







uOD3 






o:. 29 

0 001 


EQU 

XA(D,)<I{2),XR(3),XPL(A3,XL(5) 


M2h 1 a 029 


fj 0 0 2 
00G3 
OOCA 
0 0 05 


NDISP 


PftGE 


2 


DATE; Gl/27/99 


0 j3 1 



^ ^ P- V 

^ -V V- ^ y ^ V P* -V ^ -r • 

V* ^ v» Rr -V* ^ ^ "V V- ^ V V V ^ V n* -V v v ^ ^ ^ v* Ar v* -V* K' 

M S Q S -r . 1 M 2 - 3 3 4 3 1 

u'J 3 2 




OISPATCHER 3ECTI0M 

^-MSOS 4.i-»H24jQu32 

0 G 3 



^ -V ■%' V 


^ -V ^ V* 4^ *v- V V V ^ ^ ^ V V V* ^ “¥• V ^ V -ii* ^ -v- ^ 

^■-^'•ISGS Em- 0 0 333 

G035 



ii. 

UPON COMPLETION 

OF A PROGRAM, THE OISPATCHER 

H2mju^Jp 

U 0 3 b 




DETERMINES THE 

PROGRAM OF HIGHEST PRIORITY 

M c 4 j 3 3 3 5 

GG3 7 




WAITING FOR EXECUTION. IT HAY LITHlR OL IN THE 

I’t 2 -f- 4 J u 8 7 

003 8 




INTERRUPT 

STACK OR THE SCHEDULER STACK. 

M243 3 u33 

0 0 39 






M2^j uu39 

u J 4 0 






i'1 2 4 ^ 4 u -t u 

0u41 


0 0 0 0 P 


EQU NDISP 


^^-MSOS M.l^-M24uu3-rl 

0042 

P UO 0 0 

FFFF 

SGHT3P 

NUM $FF-F 

SCHEjULE stack TOP 

M 2 4 3 3 u 4 L 

0 0 + 3 

POOl 1 

E0B8 

DISPXX 

LOQ- CONT 


'■**‘^*'^M24jU443 

0 D i+ V 

P 0 J C 2 

ODFA 


INO -XL 

ADUST STACK 

M241 3 J .--r 

0 Q 4 5 

PC 0-3 

0 500 


IIN 0 


M 2 4 J U 4 -r P 

0 0 4 6 

P 0 0 L‘ ^ 

C2Q4 


LDA- XPL,Q 


MZ-t - 3 j-fCi 

0147 

P 0 0 0 5 

GFCl 


ALS 1 


M 2 - J 0 -J -■ 7 

0048 

P0 0G6 

OF 41 


ARS 1 

REMOVE eiT 15 

M 2 M 1 J 4 M o 

0 u 4 9 

P 0 0 t' 7 

60 EF 


STA- PRLUL 


M 2 4 3 3 u 1 9 

3 0 p u 

P 0 0 G 8 

C8F7 


LDA^ SCHTOP 

IF SCHEDLER STACK IS 

M24300?u 

0 j 5 1 

PiJ 039 

09G 0 


INA 0 


MZ'-tJuOCI 

0 j 5 2 

POGG A 

0107 


5AZ RESINT-^^-l 

EMPTY, CH^GK INT. STALK 

M2m- u U5 2 

0 0 5 3 

P 0 0 0 8 

CCF4 


LDA^" {SCHTO^) 

LOAD r IRST, WORD 

M 243 0 35 3 

0 0 5 4 

PGOQC 

A006 


AND- LPHSK + 4 

ISOLATE PRIORITY 

M24j ujp*. 

0 -4 ^ 1? 

3 u u G 0 

3821 


TRA M 

SAVE TEMP. IN M 

M24, 0 d 5 5 

u ^ 5 n 

P Q J u £ 

9QEF 


SUB- PR-VL 


■ M2-3U454 

OuS? 

P 0 0 C F 

Ulu2 


SAZ RE3INT---1 

GO TO INTERRUPT STACK 

M 2 4 4 4 u 5 7 

0 0 5 3 

POOIG 

0131 


SAM RE3INT 


^^MSGS "-..'HEtjijUpB 

3 J 5 9 

POGil 

1812 


JMP^^ SCHSTC 

GO TO SCHEDULE STACK 

®^^MSOS M2~ju3:?9 

0- 6D 



V- 



M243 3 360 

G3ol 



- HIGHEST PROGRAM IS 

IN THE INTERRUPT STACK. 

M 2 4 0 3 u 5 1 

0 0 5 2 



¥■ 



M24 - -fdp2 

U J 5 3 

P0312 

C203 

RESIMT 

LDA- XR,0 

SET RETRN LOCATION 

M24j u db3 

u 0 o 4 

P 0 0 1 3 

6C35 


STA^ (AC3MEX) 


M 2413354 

G Q 5 3 

PQ014 

C202 


LDA- XI, 0 

RESTORE I 

M2m 3 udb5 

0 u 6 6 

POGl-p 

bOFF 


STA- I 


M 2 4 1 u J 3 5 

0 0 5 7 





7-CAROS OELE1EO 

M 2 -.-3 u d 6 7 

0 0 5 8 

P0Q16 

C204 


LOA- XPL,Q 

GET PL + OVF 

»^MSOS 4. :H24:>4353 

0 0 5 9 

P0017 

A032 


ANU- ONEBIT+15 


^'■'^MSOS -r.4M24QCuD9 

QC7G 

PG018 

OlAO 


SOV 0 

CLEAR OVER-LOW FAULT 

^ M :i u S - . 3 M 2 4 u 3 u ? 0 

00 71 

P0G19 

ulQ2 


SAZ RESA 


5^^NSOS .-M24u0u?i 

u072 

PO OlA 

OAiO 


ENA 16 


^•^HSOS -*.-M24u3072 

00 73 

POOIB 

80 11 


ADD- LPM3K+15 


^■^MSOS 4..,M24uOG73 

Q 0 7 -t 

POulC 

40 88 

RESA 

STQ- CONT 

RESTORE TOP OF INIcRRUPT STACK 

^ M S 0 S - . u M 2 4 d u d /' 4 

0 ;• 7 5 

POulO 

C201 


LOA- XA,0 

RESTORE VALUE OF A 

^'SMSOS .,.:H2m3uC75 

0D7£ 

PG 01 £ 

EO EF 


LDQ- PRLVL 

SET NEW PRIORITY LEVEL 

M 2 4 3 3 u 7 3 

Q.j77 

POOIF 

E6B7 


LDQ- (AHA5KT ) ,0 

RESTORE MASK 

M2~tu0u77 

30 78 

PQ02G 

0811 . 


TRQ H 


M2mj 3 u7 8 

Ou 7 9 

P0021 

E488 


LDQ- (CONT) 

RESTORE Q 

M 243 Q 4 7 9 

00 3 0 

P0G22 

GED4 


EXI COMEXT-255 


H24d 0 0 8 0 

0 0 81 



V- 



M243 0 381 

008 2 



^ HIGHEST PROGRAM IS 

IN THE SGEDULER THREAD. 

M244 4 dS2 


NDISF 


PAGE 


3 


DATE! Ui/27/99 


o 

o 

o 

/'~' 

Q 

o 

o 

o 

o 

o 

o 


uG3 3 
03 8 4 

^0023 

0 80A 

SCHSTC 

TRM Q 

Ol. 3 5 

P002-T 

40EF 


3TQ- PRLVL 

G08& 

PO 025 

C6B7 


LDA- (AMA3KT),Q 

Du 8 7 

D2o 

0 821 


TRA M 

d L 6 3 

P0027 

E808 


LDQ^ SCHTOP 

0089 

P0028 

C2D2 


LDA- PT,a 

q:<90 

P0029 

68D6 


STA^ SCHTDP 

0 0 9 1 

P002A 

0814 


TRQ A 

0Q92 

P0028 

981E 


SUB- ASCHD 

Ou 93 

PQQ2C 

0138 


SAM SCHSEC-^-1 

0094 

PQ020 

9810 


SUB^ ASCLNG 

003 5 

PO 02E 

0126 


SAP SCHSEC-’^-l 

0j36 

POOZF 

CG B4 


LDA- TOMPT 

00 9 7 

PG 030 

6202 


STA- PT,Q 

00 38 

P0G31 

4DB4 


5TQ- TOMPT 

0099 

P G 0 3 2 

C201 


LDA- PC-»Q 

010 0 

P 0 0 3 3 

6C15 


STA^ {ACOMEX) 

0101 

PO G 3 4 

1311 


JMP^- SCHXIT 

0102 

P0 035 

C622 

SCHSEC 

LDA- (ZERO),Q 

010 3 

PQQ35 

AG31 


AND- ONEBITfi-r 

013 4 

P0 037 

01G2 


SAZ SCHA 

0105 

P0G38 

C201 


LDA- PC»Q 

010 6 

PG039 

1809 


JMP^ SCHIA 

ulO / 

P 0 u 3 A 

C622 

SCHA 

LDA- (ZER3),Q 

olO 8 

Pu038 

A02B 


AND- 0NE8IT+8 

GIG 9 

PO 0 3C 

GlGl 


SAZ SCHi-^-1 

ullD 

P0G3D 

0814 


TRQ A 

0111 

P C 0 3 E 

AO 11 

SCHl 

AND- LPMSK+15 

0112 

P003F 

8032 


ADD- ONE3IT4-15 

0113 

PC 043 

8201 


ADD- PC,Q 

0114 

P0041 

AOll 


AND- LPMSK+15 

Ollb 

PQ042 

oC 0 6 

SCHIA 

STA^ (ACCMEX) 

0116 

PO 043 

0 844 


CLR A 


PRI3RITY TO a 
SET NEW PRIORITY 

AND MASK 

STORE NEW POINTER 
TOP OF SCHEDLER 

thread 

TEST IF PRIMARY SCHEDULER 
CALL WAS MADE. 


IF PRIMARY CALL RELEASE 
STACK POSITION AND PLACE 
ON EMPTY THREAD. 

LOAD AQSOLTE ADDRESS 
STORE INTO COMEXT 

TEST IF ABSOLTE OR 
CHECK THE D BIT 

MUST BE ABSOLUTE 


Rc-LAT iVh 

CALL. SKIP IF ABSOLUTE 
ADDRESS 1ST WO OF GALL 


ADD REL. ADDRESS OR IF 

A=0, ABS ADOR(SS AND STORE 
ZERO INTO THREAD 


uil7 P0044 6202 STA- PT,0 COMPLETION INDICATION 

0118 P0045 0814 SCHXIT TRQ A PASS POINTER TO CALL IN A 

0119 P0u46 E2Q3 LDQ- POfO PASS.O 

0120 P00A7 0E04 EXI C0M£XT-23b 

0121 PGQ48 0104 ACOMEX ADC COMEXT 

0122. P0049 7FFF X ASCHD ADC SCH3TK SCHED. STACK LOCATION 

0123 P004A 7FFF X ASCL^S ADC SCMLNG SCHED. STACK LENGTH LOG. 


O 

o 

O 

r'"i 


H24^ Lj 083 
M2‘'j 0084 
M 2 j G 1.^ 8 6 
M 2 4 0 0 0 3 S 
M 2 4 J 'J 'J 3 / 
M240ti088 
H24i u G89 
M2400u90 
M2^3 a'u91 
' M2400032 

M240GQ93 
M24G0034 
H240 0i]35 
M24J 0 03 d- 
M24UU 097 
M 2430038 
M240 0 u33 
H2 43 0 10 u 
M 2440101 

^i 2430102 
''^^^NSOSC. -:M240u103 
-jI-IZv] tiu V 
-..M 24 00100 
SOS*- . OM 240 013 b 
^ ^ M SO 3 f . - M 2 T u d 1 3 7 
M24 uu1liD 
M2^3uiG9 

M 2 4 J u 1 i. j 

M2400 111 
H240 -. 112 
M 2hG u 113 
M 24 3 3 1 1 4 
-^-MSOS-.i. H243 0il5 
M 2 hu alio 
M2 “tJj117 
M2 4 33118 
M243 j 119 
H 2 4 d u 12 0 
M 24-3 0121 

M24) 0122 
M2irj3i23 


o 

G 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o ^ 





NDI3P 



PAGE 4 

DATE; Cl/27/99 


C") 


0125 




if. If, Sf. ^ if, if, 

. if. if, if, if. ^ 

Ar ififif-ifif-^ififii'ifif' if “f ^ ^ ^ if ^ V V ^ "f ^ 

, 1 ’f--^-M2ly 0 12 5 



0126 





SCHEDULE-^ SECTION 


<f^^M30S -,.l^^H2%t-0i26 


o 

012 7 





• ^ ^ ^ .if. if ■if -f if, ^ if if. ^ if if if , ^ if- if. y. ^ if ^ if if 

^ + + + OS 4. u 12 7 

o 


. 0129 




if. 




M243ai29 


o 

ul3C 






SCHOLE 

REQUEST PROCESSOR (T9) 

M2hC 0 13 0 

o 

0131 







M2400i31 


0132 




-f 




M2h0 0132 



0133 






ON ENTRY A POINTER TO THE PARAMETER 

M243ai33 


o 

013h 






LIST MUST BE IN THE A REGISTER 

H2h0 013 4 

r"\ 

013 5 








M2-,0 013 5 



0136 




if. 


IF THE 

SIGN BIT OF THE POINTER 

M2-tDul3b 



013 7 






IS ONE, 

THE REFERENCE IS INDIRECT. 

M243ui37 



0138 








M24 j 0 13 6 


. > 

0139 




-V- 




M24Q0139 



j l4U 


0 Q 48 

P 


EQU 

T18 3 


^'*" + iiSOS-.uM2-0 0i4C 



G141 


0 0 4B 

P 


EQU 

SCHEOU ( ^-) 


M2t0 . 1^1 



0142 







M24U 0142 

o 

} 

0143 

PUQ4B 

0822 


T9 

TRA 

a 


M24U 0 X48 

's--' 


0 1 4h 

POOhC 

C108 



LDA- 

3,1 


^--'^MSOS- . ,.M 240 Q ixH 



0145 ■ 

PQ040 

0132 



SAM 

SCHIX 

SKIP IF INDIRECT 

•+^MSOS -.I^ + MZhOOI^E 


o 

C i 4 o 

PQO^E 

0103 



RAO- 

VR, I 


M2t 0 Ol^D 

o 

Ul4 7 

POOhF 

0103 



RAC- 

VR,I 

WAD INDIRECT 

M2-: C 1^7 


ui^a 

POOy 0 

■C106 


SoHlX 

LOA- 

VTPE,I 

GET SECOND PARAMETER 

+ -HSOS «.L'‘-M2>,j0ix8 



0149 ■ 

P0051 

610 7 



STA- 

VTM?, I 


+^MSOS u 1 t9 


o 

0 1 5 J 

PG05 2 

C10 4 



LDA- 

VPL, I 

GET FIRST PmRAMETER 

^-MSOS -.i++M2u0ylpL 

O 

0151 

PG053 

bl Gd 



STA- 

VTPE,I 

TE7SPOR4RILY AND STORE 

MZ^^OOlSi 


0152 

PGu54 

AO 06 



AND- 

LPM3K+-+ 

PRIORITY OF RE GUEST 

M Z’T 0 J ip 2 



0 i-3 3. 

P 0 0 5 5' 

5104 



STA- 

\/PL, I 





U 1 5 -r 

PO j 5 6 

Cl 06 



LOA- 

VTPE,I 


+ '*'-M3US “?.i + + H.2-0ul5'r 

; O 


0155 

P0D57 

OF 49 



ARS 

9 


^•^ + i1S03 4 . wM240 0 Ip 5 


015 6 

PO C58 

A 0 0 7 



AND- 

LPMSK+5 


i-iSOS-r . - M2-fUUipo 



0157 

P 0 0 5 9 

09EO 



INA 

-P13CHO 


. , M243 Oil / 


o 

01^8 

P u b5 A 

010 5 



3AZ 

SPl 

SKIP IF kEQ code of 18 

*^^iiS03-r, iM2-.t3iJip8 


1159 

PGOs,B 

C107 



LDA- 

VTMP, I 


^^MSOS 4.i^-M2.,au 159 



015 0 

PG05C 

0125 



3 AP 

Sl"^”l 


M2hu u Idu 



0151 

P0u:>0 

C106 



LOA- 

\/TPE,I 


’■ + MSDS .1 + “-M2.t0 y loi 



0152 

PO G5E 

A031 



ANO- 

0NE3IT+14 

CHECK IF 0 BIT SEl 

^4^HSOS-t » L H2 4U -J lo2 

o 

w 

0153 

PO 05F 

0 112 



5AN 

SI 

SKIP IF SET 

^^^HSOS^. CM240 0163 



015^ 

PuOSti 

C1G7 


SPl 

LQA- 

VTMP, I 


»^MSOS 



0 15 5' 

PQQ61 

18 46 



JMP» 

DIRCAL 

JMP IF [JIRECTORY CALL 

H240j1pp 



0166. 

;PC062. 

CGEF 


SI 

LDA- 

PRLVL 


H240 0 lob 

o 


0157 

P0063 

9104 



SUB- 

VPL, I 

IF REQ PRIORITY HIGHER 

M2400167 ' ■ 


0168 

P0Q64 

0122 



3 AP 

S2-^-l 

THAN CURRENT PRIORITY 

MZ-rO u Id 3 



0159 

PO 06 5 

1800 



JMP 

HILVL 

FO TO HILVL 

^»-»^HSOS-^.i.M2-,00159 




py G66 

U 0 92 






^^MSOS ..t.l^'*^M240y 170 

o 

i 

017 G 

pu06r 

G1C6 


S2 

LDA- 

VTPE,I 

IF NOT 


0171 

PU0&8 

OF 49 



ARS 

9 

A PRIMARY 

M24QQl7i 



C172 

P0G69 

AQC7 



AND- 

LPMSK + 5 

SCHEDULER 

^-^^HSOS4. .. M2hJ 0172 


o 

0173 

P006A 

09F6 



INA 

-RC3CH3 

GALL 

M24pl75 

o 

017 4 

PO u6B 

j 1 0 2 



3AZ 

SCH2-+-1 

GO 

M ZhG u 17 H 


0175 

P006C- 

0 50 0 



IIN 

0 

TO 

M24uG175 




o 


( 


7' '1 



NDISP 



= AGE 5 

date: 01/27/99 



, r\ 


0 1 ? 6 

P006D 

181C 



JHP- 

SCHE02 

SCHED2 


N 240 017 6 



017 7 









M24G0177 


C''\ 

Gi?’8 






PRIMARY SCHEOULAR CALL 


H24j 3178 

• fb 


0179 







- IMPLIES RC=9 - 


IT 2 4 3 u 1 7 9 



0180 






o 

< 

LOTIZE AMD iRAKiFER 10 STACK 


M243 0 13 0 



0161 









M2430161 


o 

0182 

PQ OoE 

C1C6 


SCH2 

LDA- 

VTPE,I 


-■ . i 

«^-M2-.j ji3 2 

. r"\ 

U 1 8 3. 

PGQ6F 

At] 31 



AND- 

ONE3ITf 14 

CHECK D BIT 

t'i S U 3 4 

• u IT 2400186 



0134 

P0070 

0 1 IB 



SAN 

AB5-^-l 

T 

^ ^'^HSGS . 

• 6 M 2 4 6 0 1 3 4 



0185 

P0071 

C106 



LQA- 

VTPE, I 


^•<fMsas 4.1 

^-M2 4j018:i> 


o 

0186 

P0C72 

A02B 



AND- 

0RE8IT+8 



M 2 4 j 3 1 8 o 

G 

0187 

P0Q73 

0108 



SAZ 

AB3-^-l 

SKIP OM ABS GALL 


M24J 013/ 


0163 

P0074 

B106 



EOR- 

VTPE, I 


^^MSOS “ . 1 ^ 240 0 I'S d 



0189 

P 0 0 7 b 

6106 



STA- 

VTPE, I 



H243 0 18 9 



019 G 

PQ 0 76 

0 814 



TRQ, 

A 



H24, j 19 j 

C 

w 

0191 

POO 77 

AO 11 



AND- 

LP'^SK + 15 



M240 0191 


0192 

POO 78 

80 32 



ADO- 

ONE3IT+-15 



M44ij 019 2 



019,3 

P 0 0 7 9 

8107 



AOO- 

VT4P, I 


^ SO S - . 1 

24.3 0 19 3 



019 4 

P0 0 7A 

AO 11 



AND- 

LP4SK + ii’ 



M245 J104 


\ j 

0195 

P0Q7B 

6107 



STA- 

VTMP, I 



H24J 0 1 9 5 



0196 

PO 37C 

0 5 u u 


ABS 

IIN 

0 



N 24^019 0 



D197 

0198 

POO 70 

E0B4 



10 a- 

TOMPT 

FIND EMPTY IN STACK 


M2,, j 0 19/ 



PO Q7E 

ODOO 



INQ 

0 



M243 0x98 

^ O 


0199 

P0G7F 

0152 



SON 

S3-’^-l 



M24J0139 


0 2 0 0 

P008G 

5400 

X 


RT J + 

SYFAIL 

SCHEDULER STACK HAS OVERFLOWED 

- HANS 

M24u02ju 




P0u81 

7FFF 

X 








o 

020 1 

P0082 

C2C2 


S3 

LDA- 

pt,q 



M2 4 3 C 20 i 

o 

020 2 

P0u83 

60 



STA~ 

TOMPT 



M2m-uu202 


, 020 3 

P0064 

4105 



STQ- 

VPT R, I 

STORE MEW pointer TO 


M 24 0 0 20 6 



, 0204 

P0 08‘5 

C106 



LOA- 

VTPE, I 

PARAMETER LIST 


‘ M 2 4 i 0 2 u 4 


o 

u20d 

P008& 

6622 



STA- 

(ZERO ) , Q 



M243 0 2Q 5 , ' ■ 

: O 

0 2 3 6 

P0087 

C107 



LOA- 

VT4P,I 



M2 4 J 0 23 3 


020 7 

pooaa 

6201 



STA- 

PC,Q 



M 24.. 0 20 7 



0208 

P0089 

C^FF 


SCHE02 

LDA- 

(I) 

store Q 


H2-r J 020 3 



023 9 

PQ08A 

6203 



STA- 

Pa, 31 


'H24jG209 

’ O 

*V„'' 

021G 








M240u210 ' - • 


0 211 






SEARCH FOR 

STACK POSITION ACCOrRDiNG 


M2400211 



0212 






TO PRIORITY 

OF THE REDUcST. 




o 

0 213, 









M24]j213 

^ O 

0214 

PO 08B 

050 0 



IIN 

C 



Mi64ju214 


0215 

PQ oac 

Eu 00 



LDQ 

=X3CHT3P 

POINTER TO SGHTOP IN Q 


“1240021:? 




P0080 

■ 0 0 00 

P 








o 

0216 

poaaE 

QDFO 



INQ 

-2 



H243 j21b ' ' ' 

■ o 

021 7 

P0G8F 

,0400 


THR£31 

EIH 

0 

ALLOW INTERRUPT 

* 4'b 5 

M243a217 


0218 

P0Q9Q 

4106 



STQ- 

VTPE, I 


4 b 5 

M243u2i6 



0219 

P0Q91 

OBOO 



NOP 

0 


^46 5 

M24u0219 



0220 

P0Q92 

0 50 0 



IIN 

0 


4 O 

M24JG22u 

D 


Q221 

P0Q93 

C2G2 



LDA- 

pT,a 

POINicR TO NEXT ENTRY 


M 240 0 221 



0222 

P0094 

0900 



INA 

0 



M24J 0222 



0223 

P 0095 

0106 



SAZ 

THREAD 



M2-.J j22 3 


o 

0224, 







THREAD INTO Q 


M2440224 

, C) 

0225 

P0a96 

0822 



TRA 

Q 


M 24 3 3 22 5 

4,,* 


0226 







1 card uELETEO 


Mxx[!022c 



o 


o 


Pu097 C622 
PuG38 A0D6 
P0099 910^ 
PG09A ul31 
P0093 18F3 


P009C £1 C6 
PG09O C202 
P0G9E El 05 


P009F 
POOAu 
POOAl 
P0iJA2 
PG0A3 
POOAA 
PG 0 A 5 
POOAb 


6202 
0 814 
E1Q6 
62 02 
CtfFF 
AUll 
&4FF 
1 hB9 


LDA- 
AND- 
SUB- 
5 AM 
JMP^- 


THREAD LOQ- 
LDA- 
LDQ- 


( ZERO ) , Q 

LPMSK+4 

VPL,I 

THREAD-^-1 

THREDl 

THREAD NEW ENTRY 


date; 01/27/99 


SKIP TO THREAD MEW ENTRY 
IF ITS PRIORITY HIGHER 


VTPE,I 

pT,a 

VPTR,I 

PT,0 

A 

VTPE, I 

pT,a 

(I) 

LPH5K + 15 
(I) 

(AREQXT ) 


1 CARD DELE FED 

POINTER TO PRECEDING ENTRY 
POiNTER TO NeXT ENTRY 
STORE INTO NEW ENTRY 
ALLOW 16 BIT ADDRESSING 


STORE NEW POINTER 
IN PRECEDING ENTRY 
PICK-UP USERS Q REGISTER 
REMOVE the sign BIT 
PUT IT BACK 


PROCESS OIREGTORY CALLS 


P0QA7 
P0GA8 
PG0A9 
POOAA 
PuOAB 
POOAC 
POuAD 
Pu GAE 
POOAF 
P G 0 Bu 
PC GDI 
PDCB2 
P0GB3 
POQB- 
P0GB5 
P Q 0 B6 
P00B7 
P00B8 
PQ0B9 
POOBA 
POuBB 
P 0 y BC 


Au 11 
80EB 
0 5 00 
5105 
C622 
OF 49 
AQ07 
G9F6 
010 4 
09F6 
C 102 
OAGO 
6202 
E1G5 
C2G2 
0102 
1400 
7FFF 
0622 
0122 
1400 
0 0 08 


POOBO AG16 
PC uBE 81 04- 
POQBF 6622 
POuCO OF-49 


DIRCAL AND- 
AOO- 
IIN 
STA- 
LOA- 
ARS 
ANG- 
INA 
SAZ 
INA 
SAZ 
ENA 
STA- 

. OIR2 LOQ- 
LDA- 
SAZ 

X JMP 

X 

DIRl LDA- 
3AP 

X JMP 

X 

•If 

DIRIA AND- 
ADD- 
STA- 


LPH3K+1S GET 3YS3IR ADDRESS 

ASYSDR 
0 

VPTR,I 

(ZERO),Q PICK UP RcQUEST CODE 

9 

LPMSK+5 

-RCSCHD 

DIR2-’-l IF NOT SCHEDULE REQUEST CODE 

-PISGHO+RCSCHD 

OIR2 SKIP IF RED CODE 18 

0 HUS T BE A SECONDARY GALL 

PT,Q CLEAR THRuAD IN USERS REQUEST 

VPT.R, I Q = SYSTEM DIRECTORY ADR. 

2,Q 

OIRl-^-1 

SCHERR 


PICK UP RcQUEST CODE 


(ZERO) , Q 

DIRIA 

SCHERR 


NZERQ+4 
VPL, I 
{ ZERO) , a 
9 


CHECK IF OK TO SCHEDULE 
OK, CONTINUE 


■ REPLACE Ff'ilORITY 
IN DIRECTORY WITH 
CALL PRIORITY 

IF MASS MEHMORY bALL 


'^»^«S03.t 
^^MSOS - 


M 2 1 j 0 22 7 
M243 0 22 3 
M2^: j225 
M24: OBSO 
H24U C 25 1 
M240 0232 
M2--^ 0 233 
HZhJ C 23 L 
MZtj 0233 
M 24 j 0 23 b 
M2-. 0237 
M24J 0233 

• uM24uu239 

•M240 0 2-rO 
M2-: G 2vi 
■M24G0 2 4Z 
M2-.U u243 
MZ't.j 02-i-f 
M2tj y 2 t 3 
M 2 4 j 0 2 “T o 

M 2 j 0 -T / 
H2^J 0 248 
MZtj j c t 3 
H2-:u23l 
H24j u 2 p1 

M2-*0 0232 
M2h j 0 23 

• M240B25-+ 
M2430255 
M2w0 0 25o 
M 2 H _■ 0 2 y 7 

. . M24^ 0258 
M 2*+ j 0 23 9 
H243« 260 

. ; 

> IiMZhG 0 26 2 
H 240 0 26 3 

M24J 023 4 

M24J 0 265 
M 2 4 u 0 2 6 6 
H 2t J 0 2c 7 
. UM24-. 0268 


. uH240 02o9 
. uM 240 0 270 
^‘^-HSOS -..M2^jG27l 


M2^3 0 27 2 
«^--i'iS03- . I.M 2 EJ u 27o 
■-M24^ 027-r 
M2 4 O u 2 7 5 
M240 027 o 
H2-i-3 u Z t 7 




I 

o 

o 

o 

n 

V.-- 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 


NDI3P 


^A3E 


DATt 


31/27/99 


Q2 7 8 

POO Cl 

AO 07 



AND- 

LPHSK+5 

0279 

P0 0C.2 

QIGC 



SA2 

MASCAL-4-; 

U2SG 







0281 







0282 






CORE REil. 

028 3 




3f. 



0269 

P0GC3 

0 8 0 4 



SET 

A 

0 2 8 5 

PO 0 C 4 

62 02 



STA- 

PT,a 

023 6 

P0UC5 

0 9u 0 



EIN 

0 

023 7 

P0GC6 

CQEF 



LOA- 

PRLVL 

023 8 

PD0C7 

9104 



SUB- 

VPL,I 

0 2 3 9 

PU QC8 

0125 



3AP 

S5-^-i 

02 9C 

P00C9 

C622 



LDA- 

(ZERO) , Q 

0291 

POOCA 

6106 



STA-. 

VTPE, I 

02 92 

PCOCB 

C2C1 



LDA- 

PC, 9 ^ 

0293 

POUCC- 

5107 



STA- 

VTMP, I 

0294 

POCCD 

182B 



JMP4 

HILVL 

0295 

POOCE 

18BA 


S5 

JMP4 

SCHED2 

029b 







0297 






MASS MEMOi 

0298 







0299 

PODCF 

C 4 FF 


HASC,^\L 

LDA- 

(I) 

033 G 

POODO 

6104 



STA- 

VPL,I 

0301 

POODi 

5400 

X 


RT J 

CKTHRD 


P00D2 

7FFF 

X 




0302 

P0OD3 

CIO*^ 



LDA- 

VPL,I 

0 3 0 3 

P G U D 4 

6203 



' STA- 

3,3 

0309 

P0QD5 

C622 



LDA- 

(ZERO) , a 

03Q 5 

F 0 Q (36 

AOGO 



AND 

= N$F0 


PG0D7 

0 u F 0 





0 3 0 6 

Pu0D8 

6104 



STA- 

VPL,I 

0 3 0 7 

PGQD9 

G622 



LDA- 

(ZERO) ,0 

0 b u 3 

POODA 

A031 



AND- 

ONEBIT+19 

0 3 3 9 

PG 008 

0102 



SAZ 

MASCO 

0310 

POO DC 

140 0 

X 


JMP 

K65 COR 


POODD 

7FFF 

X 




0511 

PObDE 

3C 01 


HASC3 

ENQ 

1 

0312 

PGOOF 

1900 

X 


JMP 

SAVLU 


POQEO 

7FFF 

X 




0313 








GO TO DIRECTORY CALL 


.ALL 




SAVE WORD 0 0- JlRtUTuSY ENTRY 
SAVE SCHEDULEu ADDRESS 


-MiH-G 0 27 5 
M2ni 0279 
M 290 0 28 3 
M29-0 ii 28 1 
M 2 9 0 u 2 8 2 

M 2^0 0 28 5 
M2 -r j 0 28 4- 
M 2 4 j 0 2 8 9 
M E 4 0 0 2 8 6 
M29j 0287 
M29. 

M29; 

M 29 j 


0288 
0289 
0 29 li 


SAVE Q TEHP IN 
CHECK THREAD - 


volatile 

6U5Y» Reject reuc 


■“■--O o 

^ O o 

ESI (ai5-i 


^ ^ if. 


M2900291 
M29J 0 29 2 
M240u298 
H 24 9 0 29 4 
H2400299 
M243G29b 
M2-J0297 
M29D 0296 
M24j 0299 
M24 j 0 30 u 
M 29u 0 3 01 


MOVE PARAH TO' DIRECTORY SLOT 3 
.SAVE REQ PRIORITY 

SET UP kEOUEST PRIORITY IN VOLATILE 
CHECK THE D BIT 

EXIT TO PARTITION CORE DRIVER 

LU OF CORE ALLOCATOR 

SET UP THREAD IJ CORE ALLOCATOR 

THREAD REUJEST TO LOGICAL UNIT i 


4933 -^-^ H2410 3G2 
4 43 3'^^^”' M293 03tjO 
4453 -^-^ H243u3Q;;r 
4 H 2400305 

M290Q306 
44v-HS03t. UM290G3G7 
--4,isOS'T.uM29aG30 6 
^4^iiSOS-t . ..H29I Q 36 9 
4 4 03 •+ . uM2 9jU31o 

¥■ ¥ 4 j.| s 0 S 9 • 0 M 29 j u 31 i 
4.+ J‘^4¥'^ M2'^0j312 

443344 .?=^ H2^0j3i3 


NDISP 


PAGE 


8 


GATE! oi/27/gq 


PG OEl 
POOE2 
Pli OE3 
PQ OE 4 
PG0E5 
P Q Q E t 
FOOE7 
PQGE8 
Po3E9 
POGEA 
POuEB 
POOEC 
PuuED 
POOEE 


POOcF 

POOFD 

PCQFi 

PQOF2 

POQF3 

POOF-r 

POOFS 

POOF6 

P00F7 


uuEl P 
0 6 22 
C108 
0132 
0103 
01G3 
C622 
AG GA 
0116 
E2 01 
FO EB 
C622 
AO 11 
66 22 
1AB9 


E201 
FOEB 
C622 
0 5 0 u 
AO 11 
G 4 G 0 
B032 
662 2 
14B9 


ENSCS 


DISCS 


PROCESS ENABLE SCHOULE CAlL 

T19 ( ^) 

Q 

PICK UP INDIRECT FLAG 
ENSDS SKIP IF INDIRECT 

VRIi UPDATE RETURN ADDRESS 

(ZERO), Q 
LPM3K + 3 

DI5GH DISABLE KECDUEST 

PC, a GET SYS DIR INDI 

ASYSOR CALCULATE ADDRE^ 

(ZERO) , Q 

LPMSK + 15 CLEAR DISABLE Bi 

(ZERO ) , Q 
(AREQXT) 

PRODESS DISABLE SCHEDULE CALL 


DISABLE REQUEST 
GET SYS DIR INDEX 
CALCULATE ADDRESS 

CLEAR DISABLE BIT IN DIRECTORY 


LDQ- 

ADQ- 

LDA- 

IIN 

AND- 

EIN 

EOR- 

STA- 

JMP- 


PC,Q 
ASYSOR 
(ZERO) , Q 
0 

LPMSK+15 

0 

0NE3IT+15 
(ZERO) ,Q 
(AREQXT ) 


GET DIRECTORY I'NOEX 
CALCULATE ADDRESS 


SET DISABLE BIT IN DIRECTORY 


O 

O 

C) 

o 

o 

o 



M24j 0524 
'■-M30S M2-rUu32S 

+ rises r.O M2 hj 0326 
+++MSOS-. . M24. 032/ 
+ + + MS03'. . .-H2tu 032B 
f + + .MS03^. uM24aD329 
+ ,-i S u S "t • H 2^ u u 3 3 u 
■” +-^,'iSD 3 ^ ^ M2^ j L 33 1 
+ + + MSU3^ . .,M24G G 332 
+ + + I'l S D 3 - . - M 2 h 0 0 3 3 3 
'' + iMSu S - t CM24] 033 h- 
^- + + 3 SOS-. tiM2+i0o3S 
+MSOS +.L M24 Du33d 
+++ riS03-. 0M243G337 
+++MSOS-. 0M24i 0333 
69^1^66 M2^:0339 

r9 + l>53 M2‘T0yS4u 
69 +1, bo M 2f j C 341 
'•*‘^ + HSOS- . CM2 hC G 342 
^ + + HSOSt . L M2-r j 0 S 43 
’- + + HSOS-. lH24j 03-rt 



NOISP 


PAGE 
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DATE: G1/2//99 


SDHDLE REQUEST IS OF HIGHER PRIORITY 
THAN CURRENT LEVEL. 


PljDFS 

POOF9 

POOFA 

POOF8 

PQOFC 

POOFD 

PO OFE. 

POQFF- 

P 0 1 0 G 

PGIGI 

P01u2 

PC1C3 

PGlO-i 

P u 1 G 5 

PGlGo 

PG1G7 

PG1G8 

PG 109 

POlOA 

POIQB 

PulGC 

P 0 1 u D 

PGHJE 

POUF 


El 05 
050D 
C622 
OF 99 
AO 07 
09F6 
01 02 
0 8 94 
6202 
C106 
A 0 31 
01G2 
C107 
1809 
C106 
A02B 
ulCl 
0814 
AO 11 
8032 
8107 
AO 11 
0 5 00 
6817 


PflllO 9817 


PGlll 
P0112 
PC113 
Plill4 
P0115 
POlio 
F0117 
Pu lid 
P0119 
PuliA 
PLUS 
PullC 
POllO 
PullE 
PO IIF 
PO 12G 
P0121 
PG122 
P0123 
P0124 


EO B8 
COEF 
6 2 09 
C0B9 
6203 
COFF 
6202 
GO 05 
40B8 
El 04 
40 EF 
C6B7 
0 821 
E^FF 
0819 
AO 11 
64FF 
C805 
OlAfl 
0 4 0 0 


HILV- LDQ- 
IIN 
LDA- 
ARS 
ANG- 
INA 
SAZ 
CLR 
3TA- 
PRIMRY LOA- 
AND- 
3AZ 
LDA- 
JMP^ 
S6A LDA- 

AND- 
SAZ 
TRQ 

So ANO- 

AOD- 
ADD- 
AND- 

S6B1 UN 
STA^ 


VPTR,I 

0 

(ZERO) , Q 
9 

LPMSK+5 

-RC3CH9 

PRINRY-^-1 

A 

PT,Q 

VTPE,I 

ONE3IU-14 

S5A 

VTHP, I 

S631 

VTPE.I 

ONEBI T -i- 6 

S6---1 

A 

LPNSK+15 
ONEBIT+15 
VTHP, I 
LPHSK+li 

a 

JMP+1 


STQ» PASSA 


GET POINTER 

REQUEST CODE/LEVEL 
EXTRACT REQUEST CODE 

IF SECONDARY CALL , ( RC .N E. 9 ) 

CLEAR THREAD IN CALL 

FIND PLACc TO GO 
PART 1 REQUEST ' 


FOR REL AND AB5 MODE 


15 BIT ARITHMETIC 


1 CARD DELETED 

LOG OF PARAMETER LIST 


PUT RQJE3TOR ON INTERRUPT STACK 


LDQ- 

LDA- 

STA- 

LOA- 

STA- 

LOA- 

5TA- 

INQ 

STQ- 

LDQ- 

3TQ- 

LDA- 

TRA 

LDQ- 

TRQ 

AND- 

STA- 

LDA^ 

SOV 

EIN 


COUNT 

PRLVL 

XPL,Q 

AREQXT 

XR, Q 

I 

XI, Q 
XL 

COUNT 

VPL,I 

PRLVL 

{ AHA3KT ) ,Q 
M 

(I) 

A 

LPNSK+15 

(I) 

PASSA 

0 

0 


SAVE PRESENT LEVEL 


SAVE I 


SET NEW BASE 


ScT MEN LEVEL AND 
MASK 

6 2 5 
625 

MASK OFF UPPER BIT 
62 ^ 

62-. 

TURN OFF OVERFLOW IND 


M2 HU 0 3^0 
M2900397 
M2-.J 03^8 
M2hj 03h 9 
M 2 H j U 3 p 0 
M243 0 351 
M2 h j 0 35 2 
M29C 0 35 3 
'^^^MSOS^i. >.M2 -,Uo5h 
M 29j0j55 

H 2 4 J ii 6 JO 

H 2 -» J u 3 5 7 
M29J 0 358 
^f-^MSOS L 0 3-j 9 

^ ^ il S 0 S - . i. M 2 4 J 0 3 b u 
’•-''MSOSh . i-M2tG 0 3b 1 
"'MS OS -T .1 M2 h 0 u 36 2 
®-^^-iiSOS-. _M24jU3b3 

MZhJOSoB 
H29j3ooo 
MLhj 0 3b 7 
M 2 9 j 0 3 6 8 
MLhu 0369 
-'•^MSOS 4.1^^-M29jO 37 0 
M29J 0 37 1 
^•^^MSOSh. .^M24G 0 372 
M240 G373 
M 240 0 37-. 
M Zh] 0 375 
MZhO 0 3 7 6 
MZhu 0 37 7 
M 24 j 0 37 3 
M2 90 0 3? 9 
M 2 9 0 0 3 3 0 
M2400351 
M29C 0 38 2 
M2-.J 0 383 
H24-<a384 
M2 hu 0 36 p 
M 2 -r J U o 8 b 
M 2 4 J u 3 S / 
H24j 0 ob b 
M 2 9 - u o 3 9 
M24i uo90 
M240 0 391 
M2 90 0 39 2 
M2900393 
32- M2400394 

M24ju395 
M2 4 J 0 3 9 o 
M2-ri 0397 
t-i 2 4 J 0 3 9 3 


o 

o 

o 

o 

o 

c 

o 

C- 

/ '• 

o 

o 

o 

o 

o 

o 



o 



o 


o 

o 

o 


c 


M ^ j j 3 3 9 


c.-’ 


MZ^Ou^Du 

^2400-t0i , '-•■ 

: C' 

• V-- 

o 
o 
■ o 

; O 

o 

o 

o 

o 

o 

o 

o 

■ o 


NDI3P 


PAGE 11 


gate: 01/27/99 


O 

EQUIVALENCES 


o 

DEF.LINE 

NAME 

VALUE 


RE- ERcNC 

ED AT 

LINE 

NUMBER 




OOGQ 

I 

OGFF 

C 0 G 0255 ) 

0 - 66 » 

G 2G 8, 

U %l--t 1 

G2-0, 

0299 , 

0 384, 


0 016 

PPLVL 

GuEF 

{ QuQ239) 

0 G 49 1 

0 0^ '■ , 

G 7 D , 

- - 8 0 , 

0 1 b 0 , 

0 28 7 , 


0 016 

TOMPT 

GuB4 

(000180) 

0 - 96 1 

GG9.-5 , 

0197, 

Li 2 G 2 



\ ; 

0 016 

AREQXT 

u0B9 

(0 0G185) 

0 2 47 » 

0 2 , 

c 3 4 -t , 

0 382 




G 317 

CONT 

GG 88 

(GGUI84) 

3 j 43 » 

0 ! “ » 

0 U 79 





0 017 

COMEXT . 


(000260) 

0G30, 

G 12 sj , 

G121 





0Q18 

RCSCHD 

u 3 0 9 

(000009) 

0 1 73 » 

C 25 9 , 

0 261 , 

0 3 3 5 




0 020 

PISCHD 

Ufl2 

(000018) 

,3 157 y 

G 26 1 






Du 22 

ASYSDR 

uGEB 

(000235) 

, 3 253^ 

0 3 2 8, 

0 33 7 





0 0 23 

COUNT 

GG86 

(003184) 

j 379 , 

0 38? 






0 0 23 

AMASKT 

G0B7 

(0 00183) 

0Q77t 

G L 8 6, 

0 c 9 0 





0 u 2 ^ 

LPMSK 

u iJ 0 2 

(000002) 

y U -r 

G 3 /" 3 , 

Gill, 

u 1 i 4, 

J Ic 2 , 

0 1 5 0 , 






■j 3 ? 

0 35-+, 

..068, 

G 3 7 1 , 

0 c 9 c 



0 02 4 

NZERO 

0012 

( 0^0018) 

0 274 







GQ2 4 

ZERO 

3 u 2 2 

(000034) 

3102 , 

u 1 ’J 7 , 

J c C c , 

L 2 2 7 , 

- 2 2 - , 

- 2c 9 , 


0 0 2 5 

3NEBIT 

u u 2 3 

( 0 0 G C 3 5 ) 

0 u 69 » . 

G IL 3, 

0 1 - 8 , 

G112, 

u 1 b 2 , 

u 1 8 0 , 


0 025 

ZROBIT 

00 35 

(000-51) 








0C26 

VR 

u 0 G 3 

( OG0003) 

3 1 *j-5 » 

014/, 

u 0 2 2 , 

D323 




D G 2c 

VPL 

G C u 4 

(03000 4) 

3 i 5 0 j 

G i D 3 , 

J 1 0 7 , 

0 2c 9 , 

¥ ^ 1 ’ 

0 2o 8 , 


0 G2& 

VPTR 

0 00 5 

( 0 Q 30 0 5 ) 

j 203 » 

G 2 3 8 , 

0 2 b ^ , 

0 265, 

L Cjf 0 J 



0 02 7 

VTPE 

uOOc 

( 0 0 0 0 Ob ) 

0148 , 

u 1 5 1 , 

015-^, 

y 1 D 1 , 

0 1 7 , 

D iS 2 , 


0 027 

VTMP 

J007 

( GC00Q7) 

3 1 49 » 

0 15 9, 

u 1 6 ~ , 

u 1 9 3 1 

- 1 9 5 , 

0 206, 


0 0 28 

PC 

u C G 1 

(OCOQOi) 

0 0 99, 

0 10 5, 

U 11 b , 

-207, 

-292, 

0 32 7, 

'^/ 

Q G 2 6 

PT 

GG 0 2 

(000002) 

0 0 89, 

0 u97. 

■3117, 

G 2 - 1 , 

u 2 2 1 , 

0 4 3/ , 


GQ28 

= Q 

0c03 

(0cjCG3) 

3 119, 

Q 20 9 






0 0 29 

XA 

■jOuI 

{ u flOOGl) 

0 0 75 







0 029 

XI 

0 ii02 

(GOOOG2) 

3 d5 , 

0 ■? 8 5 






0 029 

XR 

0GG3 

(00 01.0 3) 

0 ij 63 , 

G 38 5 






0 0 29 

XPL 

000 4 

( 00 0 00 4) 

J U 4 D f 

G ub 8 , 

u .581 





3 0 29 

XL 

QGO 5 

(000005) 

0 0 y 

0386 






o 

o 

o 

o 

o 

r"i 


roH 


C 

: 

Qo92, 0o95 
0 3 8 0 » 0 3 j 9 

o 

o 


C172, 

J 1 9 1 , 

,.19-, 

02 2 8, 

0 2 - , 


„2rby 4.1 ^ y -..2-9 ^^0 


L 2 / u , 

-49., 

3 _ , 

j 3 J 7 , 

J 3 2 , 

- 9 

^ 0 Ci L y 5 

0 

wide. 

0192, 

- .L L. 3 , 

L b *r 2 , 

Q 3 6 -, 1 

0 c 9 

u'ct-9 

b - J , 

G 3 — 2 , 

il 3 G Q , 

0 3 88 




0 

0 1 8 c , 

u 1 0 b , 

- 189 , 

u2u f. 

l21c , 

C 2 5 , 

u 2 «■ C 9 U 29 1 » w 9 i c - 


l293, 
G 0 3b 

0 53 2 » 

- 37 : 


0358 



0 

L 2 — u , 

-243, 

0 2b-+ , 

0285 , 





o 

o 

o 

o 

o 


o 


NDISP 


DATE: ul/27/99 


O 


Pi\GE 12 


Y N5 B 0 

L S 




L-J 

DE-.LINE 

NAME 

ADDRESS 

RE- EREN3 

ED AT LINc NJHBER 

- C) 

QC07 

3CHEDU 

0 04B 

Q 00 7 



0 D07 

NDISP 

oo.co 

0 0 07 


o 

L* u 0 9 

T9 

004B . 

0 0 09/ 


0 0 09 

DISPXX 

0001 

0 0 09 

0 0 50, 0053, 0088, Ui,9u, 0215 

0 0 09 

SCHTOP 

0 0 0 0 

0 0 0 9 ) 


0 010 

T18 

004B 

0 010 



0 011 

Tig 

jOEI 

0 0 11 


o 

00 63 

9ESINT 

0012 

0 0 52, 

0057, uG55 


0 0 7 4 

RESA 

OOlC 

0 u 71 



0 Q64 

SCHSTC 

G023 

0 0 59 



0102 

SCHSEC 

‘j 0 3 5 

0 a 9 3 ) 

0 09 0-, 

n 

010 7 

SCHA 

0G3 A 

0 IOh 



0111 

SCHl 

0 03 E 

0 109 



u 1 1 5 

3CH1A 

00 42 

0106 


■ O 

3118 

SCHXIT 

0 G H 

0 1 01 


0121 

ACOMEX 

0 048 

0 Q 64 ) 

01. 'Uil.’i? 

0122 

A3CHD 

00-+9 

, 0 092 



0123 

ASCLNG 

004A 

0 0 94 



3148 

SCHiX 

0050 

0 1 45 


• i ! 

0164 

SPl 

0060 

0158 



0166 

31 

uG62 

0 ifaO ) 

0165 


G 17 0 

S2 

006 7 

0168 


- o 

Gi82 

SCH2 

0 0 6 E 

0174 


0196 

ABS 

0 0 7C 

0184) 

018 7 

u 2ul 

3 3 

00 82 

0199 



0 20 6 

SCHED2 

0 089 

0176, 

0 29 5 

o 

3 21 7 

THREDi 

U U 8F 

j2 31 

u 23 0 

. 0236 

THREAD 

009C 

0223, 

0252 

OIRCAL 

OOA 7 

0165 



0265 

DIRE 

Q0B4 

0260 , 

0 2 62 

; O 

0269 

OIRl 

0089 

0 267 


0 274 

diria 

flOBD 

0270 


0295 

35 

uQCE 

0 289 



0299 

MASCAL 

OQCF 

3 2 79 


o 

0 311 

NASCO 

DOOE 

3 309 


0 324 

ENSCH 

0 0E6 

3 321 ■ 


0 33 6 

DISCH 

. QGEF 

0 326 



0 35 0 

^ HILVL 

0GF8 

j i 69 , 

G 29 ‘^ 


0 359 

PRI HRY 

0101 

0 3 56 


o 

0 3 64 

3 6 A 

010 6 

J 0 fe 1 


0 368 

3 6 

QlOA 

0 3 66 




NDISP 


=AGE 13 


DATE! Oi/27/99 


o 

0 37 2 

SoBl 

010 E 


0399 

JMP 

0125 

o 

04C0 

PASSA 

012 7 

o 




o 












o 





o 

O 

o 

o 

o 

o 

o 

u 


3 3 53 
0 373 

u375» 0-i96 


o 


o 

o 


o 

o 

r"') 

o 

o 

o 

c 

o 


c... 


NDISP PAGE It DATE: Cl/27/99 


o 

E X T E R 

N A L S 



o 

o 

DEF . LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

o 

3012 

K65C0R 

uOOD 

j 310 



0013 

scherr 

SQBC 

0263, C271 

r'\ 

V.--’ 


0014 

3YFAIL 

a a 81 

0 2 00 


0015 

3AVLU 

0 0 EO 

3 312 


0Q15 

CKTHRO . 

. 0UD2 

0 301 



0015 

SCHSTK 

0049 

0122 

O 

o 

0 015 

3CHLNG 

004A 

0123 

o 





o 

r-' 







O 


r-i 


O 


O 




O 



o 



u 




o 


o 



NDISP 


PAGE 

15 


DATE! tl/27/99 

^ ^ A L 

P H A 

B £ T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



A 3 3 

0196 

AC01EX 

0121 

AMASKT 

0 0 23 

AREQXT 

0 u 1 6 

ASCHD 

iil2 2 

COMT 

0017 

COUNT 

2 023 . 

DIRl 

0269 

OIRIA 

U LL / “i- 

DIRE 

u2d5 

HILVL 

0 350 

I 

GOOD 

JMP 

0 3 99 

K65COR 

0012 

LPMSK 

0G2 4 

OMEBIT 

UQZ5 

PISGHO 

j 0 2 Li 

PASSA 

j 40 0 

PC 

00 2 8 

PU 

0023 

. RES A 

QD7h 

RESINT 

u D 63 

SI 

3165 

S2 

017u 

S3 

0201 

SAVLU 

0015 

SCHl 

0111 

SCHIA 

0115 

SCHlX 

Oi^rd , 

SCH2 

G18 2 

S3HLNG 

0015 

SGHSEC 

0102 

schst: 

0 0 34 

SCHSTK 

0015 

SCHTOP 

'lLO'9. 

TI9 

0 011 

T9 

Q 009 

THREAD 

0 236 

THREDl 

0217 

TOMPT 

u .. i 6 

vrPE 

C027 

XA 

3 029 

XI 

0 0 29 

XL 

0029 

XPL 

0029 


o 


o 


o 

o 

o 


o 


o 


ASCLN6 

0123. 

ASYS9R 

0 0 22 

GKTHRu 


GOHhXr 

. . 17 

; L.-' 

dircal 

0 25 2 

DISCH 

0 3 3 6 

DIS; XX 

J ^ c S 

E 4 3 L H 

■ 


HASGAL 

0299 

MASCO 

0311 

NDISP 

J . V ? 

nzero 

■- „ 2 - 


PRIHKV 

0 0:3 9 

PRLV_ 

L J 1 o 

PT 

w . £ , 

RG3GH3 

- ^ i. c- 

■ O 

S 5 

C 29 5 


0 O D i5 

S OA 

« 0 0 H ' 

3 631 

.27 2 

SCHA 

010 7 

SCHtDP 

0 2 0 6 

S2H,_DU 

u J «-■ / 

SOHnR^ 

w.lL: 


SCHXIT 

-- 1L8 

SPi 

t, 1 D 

SYF AIL 

« . 1 - , 

T I 8 

. t 


VPL 

j 0 2 

VPTR 

D 0 2 a 

VR 

J > £ c 

VTHF 

. . 2 


XR 

Li C29 

ZERO 

0 0 2 4 

ZROcir 

u 'J ^ 





o 


o 

o 


o 

o 

o 

o 

c 

o 

o 


TOD 


P!\GE 1 DATE; ul/27/99 


DOQl 
j 0 G 2 
g: 03 

0 j 0 <T 


NAM TOD DECK-ID M2D MSOS D . - SUMMARY- il 

- MASS STORAGE OPERATING SYSTEM VERSION y . 

^ SMALL SYSTEMS DIVISION, LA JOLLA, GALIs-ORNIA 

COPYRIGHT CONTROL DATA CORPORATION 197o 


C I 0 o 
0 G 0 7 

ouoa 

00 0 9 


Jr 


TIME OF DAY CALCULATIONS 

17GG MASS STORAGE OPERATING SYSThH VERSION A.l 
SMaLL computer DEVELOPMENT DIVISION, LA JOLLA, 
COPYRIGHT CONTROL DATA CORPORATION 1973 


CALIFORNIA 


Gull 
0012 
0013 
0 U 1 A 
0315 
0016 
0017 
Gul8 
0ul9 
OOEC 
0021 
uD22 
0 023 


=f- 


THIS PROGRAM IS USED TO UPDATE THE SYSTEM TIME OF JAY. THERE ARE 
TWO BASIC MODES OF PROGRAM OPERAT ION ... PERIODIC TIME UPDATES ON A 
StLF SCHEDULING BASIS OR USER CALLtU FOR A DEMAND TINE UPDATE. 

THE PERIODIC TIME UPDATES ARE INITIATED BY THE SPACE PROGRAM. 

USER REUUEST IS RTJ+ TOD OR CALL TOD WITH iHc USER A,Q, AND I 
REGISTERS PRESERVED. A HARDWARE TIME SOURCE MUST BE PRESENT IN 
THE SYSTEM FOR PROPER OPERATION Or THIS PROGRAM. THE BASIC 
SYSTEM TIME AND DATE PATAMi^TERS ARE CONTAIIhEO IN 3YSUAT. THE 
PRIORITY l£VE_ of THIS PROGRAM IS JETERMINtJ BY THE TODLVl. 

EQUATE IN SYSOAT. PROGRAM IS Rn- L NTRA NT . 

THE TirME/DATE FUNCTION PROGRAM (ORDINAL TDFUNC) HUST BE PRESENT 
IN THE SYSTEM TO ALLOW FOi^ THE CALENDAR UPDATE FUNCTION 
THAT IS PERFORMED AT THE BEGXNwlNG OF EACH JAY. 


0025 


♦ PROGRAM 

ENTRY P3INTS 

CQ2c 


ENT 

UPTDD 

0027 


ENT 

TQ3 

G Q 2 9 


* PROGRAM 

EXTERNAL^ POINTS 

0 ^ n 


EXT 

TIMCPS 

ooH 


EXT 

T03LVL 

0G32 


EXT 

TDFUNC 

003 3 


EXT 

HORTO 

003 4 


EXT 

MINTO 

003 5 


EXT 

SEC ON 

0Q3 5 


EXT 

CONTA 

0037 


EXT 

HORMIN 

00 33 


EXT 

TOTMIN 

0 3 4 0 


^ PROGRAM 

EQUIVALENCES 

0u4i 

00F4 

EQU 

AMONI (BF4) 

L j 42 

OOEA 

EQU 

ADI3P (EEA) 

Qu 43 

0 0E8 

EQU 

QCLK{$£8) 

0 4 4 4 

OOIE 

EQU 

UPCrS(3u) 

0045 

0 G B8 

EQU 

AVOLA (SUB) 

0D46 

0 0 BA 

EQU 

AVOLR ($BA) 


PERIODIC operation- INITIATION 
USER OPERATION INITIATION 


CYGLES/SECONO ON SYSTEM CLOCK 
TlfMER CALL - REQUEST, WORD 
CALENDAR UPDATE ORDINAL 
CURRENT HOUR 
CURRENT MINUTE 
CURRENT SECOND 
CURRENT COUNT 
CURRENT 2-+-HOUR TIME 
CURRENT ELAPSED MINUTES 


ADDRESS Or MONITOR 
ADDRESS OF DISPATCHER 
CORE CLOCK 

FREQUENCY AT WHiCH PkOGRAM RUNS (COUNTS) 
VOLATILE STORAGE ACQUISITION AOURESS 
VOLATILE STORuGf- RELEASE ADDRESS 


M2> . j j : 1 
M 2 5 a G -j D 2 
•M25 j 0 DC Ci 
M 2 5 j 0 u Q A 


H 2 r J u J t- o 
M 2 5 j u 0 u 7 
M 2 5 3 0 3 6 
M 2 5 j u j 9 


M25j Oijll 
M25ii u 012 
M25. j 015 
M2puuul-r 
M 2 5 u 0 0 1 5 
M 25 i 0 u 1 3 
M 2 3 j L: 0 1 7 
M25 0 0 018 
M 25 - 0 019 
M 2 5 j u 2 0 
j 0 -.21 
MZ5. C-a22 
M 2 5 0 u G 2 5 


MZsi J -jZ-j 
M25iG S26 
M'25 - 0 327 


M23 - J j 2 9 
H 2 5 0 0 5 0 
M23 3 u u i 1 
H 2500052 
M23 3 J 035 
M 2 5 0 U 0 5 
HZ 5 j 0 0 3 5 
M 25 £• G 0 5 6 
H253 u 33 7 
M250 U J5d 


M250 0 04U 

M250Qu4l 

M 2 5 3 0 0 A 2 
M25 i- U O'-tS 
M253ij0-r-T 

M2 5 3 3 0 1- 5 

H Zb j u j 4 5 



u 

o 

o 

o 

o 

o 


o 

' o 


I 


i' 'f- V- V V ^ 'V'- V 'V~ ^ p j j ij ^ 8 

M ci 5 J !J u -r -i 
'■12:;_ u - -->L 

M25GdG5i 

^ V ^ ^ i?* V- V 'r '/' > p j 0 J ^ id 


M 2 !? j u u p n 
'12i'GGuj5 
M 2 5 - G j >' 3 
M 2 G G 'j j P ( 
M 2G J u b 5 6 
‘•1 25 j U u5 9 


c 

o 

r'\ 

o 

o 

o 

o 

(3 

C) 

O 

o 

o 

c 

o 

o 


3 


date; Dl/27/99 


DO 61 
Q062 
G053 
005 4 
0 0 6 5 


0 0 5 7 
0 0 5 8 
0059 
00 7 0 
0 0 71 
00 72 
0075 
j 0 7 - 
0 C 7 5 
0C7 b 
00 77 

0078 

0079 
00 8 0 
003 1 
00 82 
0033 
0 0 8 4 
00 8 5 
0 0 3 6 
0 Q 8 7 
0088 
0 0 8 9 
u ■ 9 ‘J 
0091 
0 0 92 
0 0 93 
0 3 9-4 
0095 
00 9 6 
00 9 7 
00 9 8 

00 99 
010 0 

01 u 1 
D1Q2 
0103 

ul 0 It 

C105 
010 6 
GIO 7 

u 1 0 8 

0109 
010 9 
0109 
0109 


TOD 


PA3E 


V- 

^ TIME OF DAY UPDATE USER ENTRY 




^^^H25}a-Jhl 
M25J0U62 
M25 0 U 06 3 
' H2500afa4 

^ :\jL y. ^ ^ ^ ^ ^ V* V- ^ V* ¥ ^ ^ V ^ nr ^ ^ V ^ ^ ^ -V- V ^ V* ¥■ V' ^ ^ 'A ^ ^ 0 U D ^ 


PD0D6 

0 0 00 

TOD 

NUM 

0 

P0 00 7 

0 5Q0 


IIN 

0 

P0008 

54BB 


RTJ- 

(AV3LA ) 

P C b 0 9 

0 0 07 


NUM 

7 

P 0 G 0 A 

C8Fa 


LDA^ 

TOD 

POOOB^ 

6103 


STA- 

3,1 

PGOOC 

C83F 


LDA^ 

PATSO 

PGObO 

6104 


STA- 

4,1 

POuOE 

CC39 


lda^ 

(XCONTA ) 

POGuF 

619 5 


STA- 

5,1 

POulO 

CC56 


LDA^ 

(XSECON ) 

POdll 

610 6 


STA- 

6,1 

PDul2 

0 40 0 


EIN 

0 

PQ C13 

£0 E8 


LDQ- 

QCL< 

POOl^ 

0814 


TRQ 

A 

P G u 1 5 

9104 


SU8- 

4,1 

P0016' 

4104 


3TQ- 

4,1 

Pufll7 

8105 


ADD- 

3 , 1 

P0G18 

0 8 42 


CLR 

Q 

P0ul9 

3831 


DVI^ 

PARA 

POGIA 

410 5 


STQ- 

5 , 1 

PQGIB 

81C6 


ADD- 

6,1 

PGGIC 

610 6 


STA- 

6»I 

P 0 0 1 0 

Q9C3 


INA 

-60 

PO OlE 

0121 


SAP 

ESEC 

POCIF 

1811 


JMP- 

EX 

P0u20 

0500 

ESEC 

IIN 

0 

PC G21 

oi06 


STA- 

6,1 

PG022 

DC23 


RAO^ 

(XiINTD ) 

P0 023 

GC22 


LDA^ 

(XMINTD ) 

PGQ24 

G9C3 


INA 

- 50 

PQ 025 

Q13A 


SAH 

EX 

P0u26 

6C1F 


STA^ 

(XMINTO ) 

Pi3 027 

DCID 


RAO^ 

(XH3RTD ) 

PuG28 

CCIC 


LDA^- 

(XHORTO) 

PG029 

09E7 


INA 

-24 

PG G2A 

G135 


SAM 

EX 

PQ02B 

6C 19 


STA- 

(XHORTO ) 



-V- 

SCHEDULE GALE 

PCG2L 

0 8 42 


' CLR 

Q 




, 3YSCH0 T9F 

P0020 

5hF4 




PO 02E 

2404 




P0Q2F 

7FFF 

X 




SUBROUTINE CALL ENTRY 


8 250 3*36 7 




M25G b J56 

VOLATILE STORAGE - u 

Q 


M 2 5 3 0 y 3 9 

1 

A 


M 2 5 'J 0 u 7 u 

9 

I 


M 2 5 L b u 7 1 

1 

rXTURN AuDRESS 

M 2b C L y / 2 


PAST COUNTS 

M2bj. y7 6 




H2p-uu74 

5 

current 

COUNTS 

M25yBG75 

H253007D 

6 

CURREN r 

SECONDS 

H25y C G77 
H25D 3 378 
82530379 

GET CURRENT COUNTS 



M2bduu8u 

H2b'Jyy8i 

SUBTRACT PAST TO GET 

ELAPSED 

COUNTS 

H25 y u u 8 2 

PRESENT Gr:COHES PAST 



M253 u flSo 

ADO ELAPSED COUlUS T 

0 CURRENT 

COUNTS 

M253 0084 


THEN 

OlVIUE BY COUNTS/SEC 

SET PRESENT VALUE OF COUNfS 

UPDATE SECONDS 

HAVE bO SwCONDS ELAPSED 

YES 

NO 

YES, SAVE EXCESS JF bO 
AND 3U1H HINUTES 

HAVE 60 HINUIES ELAPSED 
NO 

YES, SAVE EXCESS OF 60 
AND BUMP HOURS 

HAVE 2p hours ELAPSED 
NO 

YESi SAVE EXCESS OF 24 


ENTRY VECTOR = 3 


M 2 5 3 U U S : 
M25 j u GS6 
H250 0 0 8 7 
M25b0u83 
M25.iJu89 
M 2 5 -3 0 0 9 b 
H25 j 0 d91 
M 23 j u u9 I 
H 2 5 3 ii 0 9 3 
M25 j u 09^ 
M 25 3 Q 0 5 5 
M2-3i,' 0 096 
M 2 D 3 0 d 9 ( ■ 
H 2 5 j b y 9 6 
M25 3 0 0 5 9 
H25w 0 ij u 
H25 3 0 1 y i 
M25001D2 
M2500103 
M 2;:> 3 0 i U 4 
M25iLlb!:' 
H23 j u 10 b 
H 25 0 j 10 7 
H250 u 10 8 
M 2b - 0 i ii 9 


TOD 




date: Ox/27/99 


C.J 

o 

o 

o 

o 

o 


QUO PD030 
Dili P0031 
Ull2 PGG32 
0113 P0033 
Dll'* P0034 
Oili? P0035 

0116 PQ036 

0117 P0037 
Gild P0G38 
0119 P0039 
ul2u P003A 

0121 P0G5B 

0122 PG03C 

0123 P003D 

0124 P003E 

0125 P003F 
G12o P004G 
ul27 P0041 

0128 P0GA2 

0129 P0043 


CC1-+ EX 

28 1C 

8C13 

6C15 

CCIO 

2817 

8CQF 

6C12 

C 5 0 0 

C103 

681h 

C104 

63 OF 

C105 

6C 09 

C1Q5 

6C06 

5 4BA 

0400 

ICOB 



LOA^ CXH0RT3) 
MUI^ HUMORD 
ADD^ (X.il.MTO) 
STA^ (XHORMM) 
LOA» (XH3RT9) 
MUI^ SIXTY 
AOD-^ (X!dIi\lTD) 
STA^- (xrOTMM) 
IIN 0 
LOA- 3,1 
STA^ RTURM 
EDA- 

STA^ PAT50 
LDA- 5,1 
STA- tXGO.NTA) 
LDA- 6,1 
STA^ (X3ECOM) 
RTJ- <AyOLR) 
EIN 0 

JMP- (RTJRN) 


SET UP 2’^-HOUR THIE 

SET UP TOTAL ELAPSED MINUTES 

OBTAIN RETURN ADDRESS 
SAVE 

RETURN VOLATILE STORAGE 
RETURN TO CALLER 


f ■) 0131 


TIME PARAMETERS 


0133 P00V4 7FFF X XHORTO 
D ■ 013- PD045 7FFF X XMINTO 

G13d P004O 7FFF X XSELOM 

0136 P0047 7FFF X XCONTA 

ulS'’ POO 48 7FFF X XHORHN 

n 0138 P0049 7FFF X XTOTiN 


ADC 

HORTO 

HOURS 


ADC 

MIN TO 

MINUTES 


ADC 

SECON 

SECONDS 


ADC 

CONTA 

COUNTS 


ADC 

HORMIN 

24-HOUR 

TIME 

ADC 

TOTMIN 

ELAPSED 

MINUTES 


Oi^Q ^ STORAGE AND CONSTANTS 

TIMER GGUMTS PER SECOND 
PAST yCLK 

RETURN ADDRESS 

u 

PGM= OOvF { 79) COM = 0000 ( 0) DAT = { t) 

O 

O 


0142 P004A 7FFF 

0143 P004B OQGO 
014-^ P0G4G 0 03C 
0145 PO 04D 0 0 64 
014 6 P 0 UhE 0 0 QO 
0147 


PARA ADC TIMCPS 
PATSO HUM 0 
SIXTY HUM 60 
HUNDRD NUN 100 
RTURNJ ADC 0 
END 



C' 


M25uulli, 


M25G0lil 


M 2 5 j j 1 1 2 


M25 j j il 3 

u 

M25xuli% 


M25'jall5 


H 2530116 

= o 

M2500117 

M25j u 116 


M25x u 119 


H25jG12li 

• o 

H2pj. 121 

>12500122 


M2500 123 


M25J 012^, 

■ o 

M2500i25 

H 25 0 0 12 c 


M 2 5 0 0 i 2 7 


M2500128 


M25.G129 

: ^ 

M25 G u 13 i 

o 

H25Gul33 


H Zo li u 13 4 

o 

M25 J.U135 

H25j 0 ii o 


H 25 0 u 13 7 


M25ju158 

o 

M 25 3 0 14 G 



: O 

M25] ui-2 


M25G0i43 


M 23 G 0 1 4 4 

o 

M 2 G u X. o 

H23QG14D 


M25G 0 14 7 



o 


o 

c 

o 

o 


o 


TOO 




date: Oi/27/99 


ip 


o 

o 

E Q U I V 

A L E N 

C E S 

DEF.LINE 

NAME 

value 


GGOG 

I 

GOFF 


0311 

AMONI 

OCFl 


j 0 L? 

ADISP 

u o EA 


0 013 

QCLK 

3 u E8 


0 314 

JPCTS 

0 L 1 E 


0 0 1 6 

' AVOLA 

OOBB 


0)16 

AVOIR 

0 uBA 


RE-E=?EN9ED AT LiNfc NOHBER 

{ 0Gu2E5) 

(j00 2-t4) 0055 

( G C ‘j 2 3 ^ ) 3 C 5 9 

(0G0232) 9380 

(099030) 0G58 

( 0 00187 ) 0 069 

(003185) 3127 




o 

o 

o 

o 

o 

o 

o 

o 


o 

c 

o 


r~\ 

V.X 


o 


o 

o 

o 


o 


o 

c 


o 


o 

o 

C) 


date; Gi/2//99 


DEF . LINE 

NAME 

ADDRESS 

RE^ E REND 

ED AT 

LINE 

0 026 

JPTOD 

0 G u Q 

0 u 2o » 

j 0 5 7 

0G71 

0 02 7 

TOO 

0006 

QD27, 

0 Q5'4, 

0 093 

ESEC 

•3 0 20 

0 0 91 


U *- U *i5 

u 110 

EX 

00 30 

3u92 , , 

0 3 98, 

0 133 

XHORTO 

Q G 4 4 

0 10 0, 

0101, 

L' i. l1.*t 

Li 134 

XMINTO 

0 0 4 5 

0 0 95 , 

0 09 6 , 

0 099 

013 5 

XSECON 

u 0 4 o 

u u 77, 

G126 


013 6 

XCONTA 

0 0 4 

0 G 75 , 

Q 12 4 


Q 13 7 

XHORMN 

00 48 

0 llo 



0138 

XTOTMN 

0049 

0 117 



U 142 

. °ARA 

3 0 4A 

0 0 85 



0143 

PATSO 

0 0 4 B 

0 b 73 , 

012 2 


014^ 

SIXTY 

j G 4G 

0 115 



014 5 

HUNDRO 

0040 ' 

3 111 

0 129 


0 14 6 

RTURN 

0 0 4E 

0120 , 



.'ij Lt rt B E R 


uil2» Giln. 


o 


TOO 


PAGE 


7 


date; 01/27/99 


Q 


o 

E X T E R 

M A L S 


o 

DEF .LINE 

NAME 

VALUE 


0 Q3D 

TIMCPS 

00-+A 


0 031 

TOOLVL 

0302 


j G 32 

TOFUNC 

G02F 


0 0 33 

HORTO 

u G 4 


0 0 3 4 

MI N TO 

0 0 4 5 


0G3 5 

SECON 

U 0 4 D 


0 0 36 

GONTA 

u 0 4 7 

vJ 

0 0 37 

HORMIN 

0 0 4 8 


0 038 

TCTMIN 

0 0 -+9 

Qi 








o 









O 

o 

o 

o 


"?E-ERENOEO AT LINE NUMBER 

0142 
0 0 56 
J 109 
0133 
Q 1 “t 
3135 
0 136 

0137 

0138 


O 


O 

O 

O 

o 

/"''I 

o 

o 

o 

c 

C) 

o 

o 

o 

o 

o 



TOO 


?f\G£ 


8 


date: Di/2,-V99 


A L 

P H A 

8 E T I 

CAL 

3 Q R T 

0 F 

5 Y M B 

0 L S 







ADISP 

0042 

AMONI 

j 0 41 

AVOLA 

0G45 

AVOIR 

U 0 

G3NTA 

0 G 3 b E S E C 

G U 5 b 

EX 

i.ilc NORM IN 

...3; H3R1U 

HU^JORD 

u 145 

I 

GOOD 

HIMTD 

j 0 3 4 

PARA 

u1-t2 

P A T30 

uIhu OGLK 

u 0 't3 

kTORM 

uLto SEGOM 


TO" UNO 

uG32 

TIMCPS 

0 0 3 0 

TOD 

0 0 2? 

TCDLVL 

0.-31 

T OTMIh4 

0Q38 UPCFS 

G 0 -f 

UFTOO 

Gj2b XoONTA 

0l3b K-iOkHH 

X40RT 0 

0133 

XHINTO 

G13 4 

XSECDN 

0135 

XTOTHN 

0138 









T14 


P(\GE 


1 


DATE! Ql/27/99 


NAM Ti4 DcCK-ID M26 M30S 3.1 

MASS STD^AGE D^E^ATING SYSTEM y£:^SION 5.C 
SMALL SYSTEMS DIVISION, LA JOLLA, CALirONNlA 
COPYRIGHT CONTROL DATA CORPORATION 19/6 


S J 11 M A R Y • 


M26ju j 02 
M2b-u ^jO 
^lwOJ Ujv*. 


MOTION CONTROL FiEQUtST PROCESSOR 


V 3 F 0 
OOBC 
00 04 
0 0 03 
0 0 08 


ENT T14 
EXT SAVLU 
EXT CKTHRD 
EQU RPMA3K($F0) 

ECU ALJA8S($8C> , VPL(4) ,VR(3) 


EQU VIND(8) 


HEfa j u J 0 b 
M2b - Q ^ u 9 
H Zb u G u 1 0 
M25 0 0 u 1 1 
M 26. 0012 


j Jib 


POGDQ 
PO 001 
OO uu2 
POOG3 
POuG 4 
PO 0 05 
P 0 0 fl b’ 
P Q 0 j 7 


C822 
C1G8 
0135 
C A Gb 
8103 
6 1 C 3 
0 8 04 
6108 


P0Gu8 5400 X INDIRT 
P0009 7FFF X 

>(■ 


PGGCA 
PGOOB 
PC QOC 
POOuD 
POOOE 
PlGuF 
POOiO 


COCA P 
C&22 
AOOO 
QOFQ 
ol04 
54BC 
14U0 X 
7FFF X 


TRA Q 
LUA- V1ND,I 
SAM INDIRT-»-l 
ENA 5 
ADD- VR,I 
STA- VR,I 
SET A 
STA- VINO, I 


RTJ CKTHRD 


ENT CARDRD 

EQU CARORO ) 

LDA- ($22), Q 
AND =XRPMA3K 

STA- VPL,I 
RTJ- (ALJABS) 
JMP+ SAVED 


DIRECT CALL 


■ . ' ’ -^ 4 . u/‘'7 8^1633 

SET INDIRECT FLAG TO LOCKOUT J. 0/7 8’"1893 

INCREMENTING RETURN ADDRESS FOR 0/',-8-i39,i 
HASS MEMORY DEVICES IN --.0//8-lh9j 

RW (CKTHRO) :'/78'“’-189j 


1 CARO DLLuTEG 


^ . 0 / 7 3 "■ X 1 9 2 


STORE REQUEST PkIOPIT'Y IN VOLATILE 


ABS LOGICAL UNIT 
EXIT TO RW PROCESSOR 


/ 78 ^1 892 


M2o j 
N25: 
M2 0 4 
M2dj 
M2=G 
M2b. 

M2b J 
M2d. 
M2c J 
M 2b- 
M2o- 
M2a J 


J 4 1 5 

Q j1 3 

G j I 7 

l, 4 1 H 

u u 1 3 
u u 2 0 
0 02 1 
4 0 2 2 

u 02 5 
0 02 4 

u li 2 4 

u u 2 b 


M 2 b - i- G 2 7 
M 2 b 4 u 0 2 8 
M 26-0029 
M26jGU3u 
N 2b 0 G 4 3 1 

M2fa0 0 0 32 
M2b- 0 u 3 3 
M2 '4 00054 

M2b0 0 u 3 5 


0011 


COM = QuOQ 


Tin 


P^GE 


2 


date: Oi/27/99 


r-) 




rT 



E a u I V 

A L E N 

C E S ■ 












DEF. LINE 

nahe 

VALUE 


REFERtNCED AT LINE NUMBER 








' O 


J ^ u u 

I 

GOFF 

( 0 G 0 25 ? ) 




DGll 

RPMASK 

uOFC 

(000240) 



/ '] 

0 312 

ALUABS 

QQ3C 

(000188) 

0 0 35 


V.' 

0 012 

i/PL 

QdO 4 

( u 00 GOh) 

0 0 32 

L.' 


0 012 

VR 

0 0 0 3 

(000003) 

U ^ 1 9 » u j 2 u 



0G13 

VINO 

00 0 8 

(000008) 

3ul8, 0G22 



O 


U 

o 

o 

: C 

o 

■ o 

‘0 

■ o 

u 


u 

• o 

o 

■ o 

o 

o 

o 

o 






T14 


PAGE 3 date: Ul/27/99 

/ M B 0 

L S 



OEF . LINE 

NAME 

ADDRESS 

RE-HRENCED AT LINE NUMBER 

oao8 

Tl H 

OOQ C 

0 0 08 

0C26 

IiMDIRT 

0008 

0017 

j ‘j 2ft 

CARDRO 

0 u 0 A 

0 Q 28 


o 

o 

C) 


o 


Ti4 


^^GE 


DATE: Gl/27/39 


i '■ 


o 


o 

E X T E R 

o 

DE- .LINE 

o 

0 0 09 
Q u 1 0 

o 



0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

r'”’; 


N A L S 


NAME VALUE 

3AVLU’ OOiD 
GKTHRD aa09 


RE-EREN3ED AT LINE NUMBER 

0 03-t 
0C2o 


C 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

c 


T14 


PAGE 


o 


date: Oi/2r/99 


o 

ALPHABETICAL SORT OF SYM-BOLS^^^ 

ALJABS 0012 CARORD 0 023 GKTHR3 0 J IQ I ' OuQG INUIRT Q02b 

V=>L 0012 VR 0012 




C) 



o 

o 

o 


.r*% 

o 

o 


o 


RPMASK 0011 SAVL'J UQG9 TIL Q.'ud \/IND u-lo 


O 

O 

C 

C'l 

o 

o 


o 

o 

o 

o 



0 0 0 1 
L’ j 0 2 

0 0 0 3 
U j 3 V 
0 j 0 5 


GO 9 7 
0 3 08 
00 09 
GjIO 
0011 
0012 
0013 
OQli- 
Q j 15 
0 916 
001? 
ooia 
0019 
0.20 
Ou21 
00 22 
0 0 23 
002 -+ 
GG25 
u 0 2 6 
0927 
0 0 2 3 
0Q29 
G 0 3 C 
0 031 
0.3 2 


0 0 3 4 
U 0 3 5 
G 0 3 c 
0 03 7 
003 8 
0 0 3 9 
C 0 4 0 
0941 


3 0 43 
0 0 4 4 
0 0 4 5 
0 0 4 6 
0047 
0 0 4B 
0 0 4 9 
0 J 5 0 


EFDATA 


PAGE 


DATE! ui/27/99 


V- 


Af- 


NAM EFDATA UECK-ID H27 MSOS 5.G 

PROGRAM TO STACK ENGINEERING FILE DATA_AND PRINT MM 

'IASS STORAGE OPERATING SYSTEM VERSION 5 . l 

SMALL SYSTEMS DIVISION^ LA JOLLA, CALIFORNIA 

COPYRIGHT CONTROL DATA CORPORATION 1976 


SJMMaRY- 11 tM27^iJ ju 1 
DIAGNOSTIC M279G^Q2 
M 27 J u J j L 
H 2 7 J U a U A 
H 27 . G a u 5 


!(. i;. If. ^ ^ 3;. ^ if. >;■ ^ V- ‘l- V- ^ ^ ‘f- ^ ^ 'f- ^ ^ A' -■J.-'^A^'!f-Af-v-*A‘A^->A<-'?-A-A‘v-Ai^»Af-Af-¥-Af-AfAr'fAr^A^-^A‘A-¥-A‘i^^¥-Af[vl27jLi;iC7 


Af^ 


A^ 


=t- 

V- 


Af^ 


THIS PROGRAM IS ENTERED FROM EACH DRIVER PROGRAM TO LOG SYSTEM 
DEVICE FAILJRE3. LABEL LOG IS ENTERED WITH THc. Q-REGISTtR 
CONTAINING THE ERROR. CODE/LOGIGAL UNIT WORD AS WILL Bl PASScO 
TO THE ALTERNATE, -DEVICE HANDLER. THIS PROGRAM WILL ADD TO 
THIS, HARDWARE STA-TUS, DATE,' AND TIME RELEVANT TO THE FAILUkL. 

THE DAM' WILL THEN BE SAVED INTERNALLY IN ONE Or TWO PLACES, 

IF A HASS MEMORY DEVICE I^ 10 ENTRY PUSH DOWN TABLE, OTHLRWI SE^M279 0 ul^ 
IN A 5 LmTRY PJSH DOWN/POINTER TAB^ NASS MEMORY FAILURES ^M2^uul5 

ARE PERMANENTLY SAVED INTERNALLY ON- THE PRESUMPTION MAS:> M2|f^ 9 fl U 1 o 

MEMORY IS NOT R ELI ABLE . W ITH THE EXCEPTION BEING THE FLOPPY DISK M2/b0ul7 
ITS ERRORS WILL BE LOGGED TO MASS MEMORY. OTHER ERRORSS CAUSE THEM27GUG13 


MLZuUGCB 
^M27Q 0 Gu9 
^M27j 0 910 
-M2700.il 
^M27C 0 012 
•^M27uU013 


THE LDG / STORE 

OROINA. TO 3£ SCHEDULED TO HOVE DATA TO THE (MASS MEMORY FILL. 


M 2700019 
->M 27^ 0020 


NEWLY ACCUMULATED MASS MEMORY ERRORS WILL BE MOVED AT THIS TI ME . ^M2 70 0 v 2 1 
-DATA FORMAT IS THE SAME FOR EACH TABLE AS FOLLOWS.... . . -:5 


•7, YLAR = 6-D ) 


•0 ) 




WORD 1 LOGICAL UNIT 

WORD 2 DATE ( D AY= 15 - 1 1 , MUNTH= 1 

WORD 3 MILITARY TIME 

WORD 4 SECONDS (15-8) , ERROR L0D£(7 

WORD 5 HARDWARE STATUS „ ^ 

THIS PROGRAM IS RE-ENTRANT. SINCE VOLATILE STOiRAGL IS USED, 
CALLERS a AND I REGISTERS ARE PRcSERVLD. ^ 

IF THE FAILED DEVICE IS' A HASS HcMOKY UEViLc, THl hASS MEMORY 
ERROR DIAGNOATIC HILL 8E PRINTED USING STACK DAIA.^ 


»M27 J y -02 2 
-H273 0'0 23 
=^M27.u'j2n 

“-M27i0C2o 
^M2 7 0u 02 7 
^M 270 a 028 
^M27 0 0 02-3 
- M 2 7 u u ' j 3 0 
^M2 70 0 0 31 
V- 2 7 J L 03 2 




PROGRAM ENTRY POINTS , 

ENT LOS DRIVER ENTRY TO LOG ERRORS 

ENT SSYtFS EFSTOR BUSY FLAG 

ENT CEFDTA WAITING TABLE POINTER 

ENT EFLOCK SPACE ERROR LOCKOUT 

ENT EFGOVL WAITING TABLE OVERFLOW INDICATOR 

ENT EFDATA WAITING DATA STACK 

ENT MMEF MASS MEMORY DATA STACK 


M2700034 
M 2 7 ii 0 0 3 5 
M27^0 93b 
M27uu037 
H2790038 
M27u0 G39 
M 27 . y 04 0 
M27u0y4l 




PROGRAM EXTERNALS 

EXT EFSTOR 

EXT OAYTO 

EXT MOMTO 

EXT YERTO 

EXT HORMIN 

EXT SECON 

EXT LOGIA 


ENG. FILE DATA STORAGE ORDINAL 

CURRENT DAY 

CURRENT MONTH 

CURRENT YEAR 

CURRENT HILITARY TIME 

CURRENT SECONDS 

PHYSTB ADDRESSES 


H27 J 0 uh3 
M27j0j4^ 

M 27 j 3 0 5 
H27 j 0 943 
M279 u0-r7 
M27jua48 
M2703u%9 
H 2 0 0 u 5 0 


C u 5 1 
0Q52 


0 0 5 ^ 
0 U 5 5 
0 Q 5 Q 
0057 
0 0 5 8 
0 3 59 
005 0 
0 j 51 
03 62 
0 0 5 3 
0 3 64 
00 5 5 
0 0 5 6 
00 5 7 
0 3 5 8 
Q 0 5 9 
0 3 7 0 
Q071 
GO 72 
00 7 3 
QG 74 


00 76 
0u7 7 
Qj 78 
00 79 
30 8 u 
GCS 1 
OG B2 
0 j 33 

0 08 5 
038 o 
0 0 3 7 
CG 88 
G03 9 
Qu90 
0u91 
C092 

0093 

0094 
0Q95 

0096 

0097 

0 0 9 9 
OiGO 
Olul 


EFDATA 


PAGE 


OATES ul/27/99 


EXT COM\/ER 
EXT HA 


DECIHAL TO ASCII CONVtRSION (IN ADEV) 
HEX TO ASCII CONVERSION (IN NIPROC) 


M27Duu5l 

H27uG052 



0 0 22 

EQU 

ZERO ($22) 


u QBB 

EQU 

AVOLA (58B) 


0 OBA 

EQU 

AVOLR (BBA) 


0 0 OC 

EQU 

ESTAT2( 12) 


0 0 08 

EQU 

EREQST (8) 


0 0 0 8 

EQU 

M00 3F (B8) 


0 a 0 c 

EQU 

M03FF (B C) 


0 0 05 

EQU 

M0Q07(B5) 


0 0 04 

EQU 

P (t ) 


0 Q 43 

EQU 

FIVE(343) 


QOEA 

EQU 

AOISP (BEA) 


UOFC 

EQU 

LUCMNK BFC ) 


Q G OA 

EQU 

MuO’F (BA) 


0 0 31 

EQU 

MhOGO (B 3i) 


0 0 F4 

EQU 

AMONI (BF4) 


0 0 01 

EQU 

PC(l) 


0906 

EQU 

EPTR(6) 


p 0C2 

EQU 

LIBJNT ( BC2) 


0 0 05 

EQU 

ELU(5) 


0 0 09 

EQU 

MG0 7F (6 9) 

POOOO 

0 0 0 0 

LOG NUM 

0 

P 0 3 0 1 

0 500 

IIN 

0 

P 0 0 G 2 

C8&2 

LDA- 

EFLDCK 

Pb OG 3 

3 102 

3 A Z 

NO-OCK 

P u G G H 

G 4 0 

EIN 

0 

P0005 

ICFA 

JMP^ 

(LOG) 

P u 0 0 6 

:? *4 B 8 

NOLOCK RTJ- 

(AVOLA) 

POOL 7 

G G OA 

NUM 

10 


NC ES 

CELL CONTAINING ZERO 

VOLATILE STORAGE ACQUISITION ADDRESS 
VOLATILE storage RELEASE ADDRESS 
PDT HARDWARE STATUS 
POT REQUEST STATUS 
$Q03F MASK 
$03FF MASK 
$0007 MASK 
EFSTOR PRIORITY 
CELL CONTAINING NUMBER FIVE 
, ADDRESS O'- DISPATCHER 
ADDRESS OF COMMENT LU 
$S0FF .MASK 

' $hQuo mask 

^ ADDRESS OF MONITOR 
POINTER TO REQUEST 
PHYSTB POINTER TO REQUEST 
MASS MEMORY LIBRARY UNIT 
PHYSTB LOGICAL UNIT WORD 


BASIC ENTRY FROM DRIVERS 

CHECK SPACE ERROR LOCK OUT 
ZERO SAYS NO LOCK OUT 


DO NOT LOG ERRORS 
REQUEST , VOLATILE 


■ROM SPACE 


REQUEST 10 WORDS OF VOLATILE STOfRAGE 


ORGANIZATION OF VOLATILE STORAGE 

Q- REGIS ter 
A -REGISTER 
I REGISTER 
SUBROUTINE RETURN 
- AILED LOGICAL UNIT 
3 AY/HOMTH/YEAR 
MILITARY TIME 
StCONDS/ERROR CODE 

T YPe'^CODE^USEO^TO determine' IF FLOPPY DISK ^ 

:f. if. If ^ ^ ^ ^ If- If V il- ^ ^ ^ ^ ‘f- ^ ^ ^ ^ 



WORD 

01 


WORD 

02 


WORD 

03 


WORD 

jj -i* 


WORD 

05 


WORD 

0 6 


WORD 

07 


WORD 

3 8 


WORD 

0 9 

^ V- ¥• ¥ 

WORD 

>f \ 

10 

fiff 


P0008 C8F7 
P00u9 OhuQ 
PCOGA 6103 


LDA“- LOG 

ein q 

STA- 3,1 


SAVE RETURN IN VOLATILE 


M 27 j 0 u 5 V 
M27ia<J3;> 
M27 j'j 05C 
M27Q0 35 7 
M27QU 05 8 
M270 0 059 
M273G05a 
M27Q0 G51 
M27C00c2 
M27.33 063 
M273 3 OoA 
M 2700355 
M 2 ^ 3 0 0 o o 
M 2 7 3 3 0 5 7 
M27,i u 068 
M27ua059 
H 2 7 j 3 u 7 G 
M2700a7i 
M27GuQ72 
iM273 a 07 3 
M27.3 Q74 


M27 j u 075 
M27jU'j77 
M27Q0 3? a 
H 273 0 07 9 
^ H27:-u08D 
M27j u j81 
H27-JU082 
M27 0 3 08 3 

■^^!^^M2 7j0.j8y 
^M2/ j 0386 
-M27u U087 
^H270 0 388 
4M27 j 0 ‘JS9 
♦H2 7ii 0 09G 
^H27u 0 091 
-‘M270 0 092 
093 

-■^M27G u 09h 
^H 27 j 0 095 
M273Q 095 
■ «^¥-<^4 (.h27-3 0097 

i M27J0a99 
M27;0lu0 
M27Gui0i 


EFDATi* 


PAGE 3 


DATE: ui/27/99 


013 2 

POOLS 

0 8 42 



CLR Q 

010 3 

POOCC 

E400 

X 


LDQ+ DAYTO 


POO GO 

7FFF 

X 



0104 

POOuE 

QFA4 



DLS 4 

010 5 

^OQOF 

C4G0 

X 


LDA+ MONTO 


POOlO 

7FFF 

X 



010 6 

PCUil 

0872 



EAQ a 

0107 

P0O12 

QFA7 



QLS 7 

0108 

PG015 

C4G0 

X 


LDA+ YERTO 


P0014 

7FFF 

X 



0109 

P0D15 

C872 



EAQ Q 

0110 

PQOlo 

410 5 



STa- 5,1 

0111 

PGG17 

C400 

X 


LOA+ HORMIN 


P0 018 

7FFF 

X 



0112 

PGG19 

610 6 



STA- 0,1 

0113 

POOlA 

C4G0 

X 


LOA+ SECON 


POOIB 

7FFF 

X 



3114 

POOiC 

QFC8 



ALS 8 

Oil 5 

pooin 

6107 



STA- 7,1 

0116 

POCIE 

C522 



LDA- { ZERO) , I 

0117 

PGOIF 

0132 



SAM EFDAi 

0118 






0119 






012 0 






0121 






0122 






0123 

P0 02U 

A0Q8 



AND- M303F 

012-t 

PuuZl 

1802 


' 

JMP^ EF3A2 

012 5 

P0022 

A 0 u A 


EFDAt 

AND- MQO-F 

0126 

P0023 

8107 


EFOA2 

LOR- 7,1 

0127 

Pfl 0 24 

6107 



STA- 7,1 

0128 

P0025 

C522 



LDA- £ZERO),I 

0129 

e^002d 

OF <+6 



ARS 6 

0130 

PQ 02:7 

0121 



SAP EFDA3 

0131 

PO 028 

OF 42 



ARS 2 

0132 

PGQ29 

AO 09 


EFOa3 

AND- M007F 

0133 

PuOZA 

0822 



TRA a 

0134 

P 0 li 2 B 

61G4, 



STA- 4,1 

yl3 5 

P002C 

E6 GO 

X 


LDQ+ LOGlA,a 


P0020 

7FFF 

X 



0136 

P0C2E 

C2 DC 



LOA- £STAT2,Q 

013 7 

P002F 

d108 



STA- 8,1 

0138 

PO u 3 Q 

C2Q8 



^ LDA- EREaST,a 

0139 

POC31 

0 F 44 



ARS 4 

0140 

PG032 

A009 



AND- M007F 

0141 

P0:03 3 

61 09 



STA- 9,1 

0142 

P0034 

C2Q3 



LDA- EREQST,a 

0143 

P0035 

0FC5 



ALS 5 

0144 

P0C36 

A0Q5 



AND- MQQ07 

0145 

POU37 

G9F0 



INA -2 

014b 

P0U3 8 

0 5 0 0 



IIN 0 

014 7 

PGQ59 

EOFF 



LDQ- I 

014 8 

P003A 

48 0 0 



3TQ ISAVE 


PG 03B 

0083 





HAKE UP 'date word 


M27J 01G2 
M27G0105 

H27jul04 

M27GG1G5 

M 2730 10 6 
M 2 7 0 0 1 0 7 
H273L,i!38 


SAVE DATE IN VOLATILE 
GET MILITARY TIME 

AND SAVE IN VOLATILE 
GET SECONDS 

POSITION IN WORD 

AND Save in VOLATILE 
GET Passed logical unit/error code 
IS FLAG set to INDICATE THAT ERROR CODE IS IN 
THE a REGISTER i ANY DRIVER THAT USES AN 
ERROR CODE LARGER THAN 63 WILL HAVE THE ERROR 
CODE IN Q WITH THE 'UPPER 8 BITS CONTAINING 
THE LOGICAL UNIT AND THE LOWER 8 BITS WILL 
THE ERROR CODE. BIT 15 WILL BE SET AS A FLAG) 
EXTRACT ERROR CODE 

GET THE ERROR CODE 
MERGE WITH SECONDS 
AND SAVE IN VOLATILE 
EXTRACT LOGICAL UNIT 

OLD FORMAT 

NEW FORHAr FOR LU 

USE AS INDEX 
SAVE IN VOLATILE 
GET POT ADDRESS 

GET LAST HARDWARE STATUS 
AND SAVE IN VOLATILE 
EXTRACT TYPE CODE 


SAVE TYPE CODE 
EXTRACT CLASS CODE 


SAVE POINTER TO VOLATILE STORAGE 


H27I01J9 
H2700 110 
MZ7j 0111 

M273 C112 
H 27 j j 1 1 3 

H273 oil ‘r 
M2/JL.115 
M27- u lib 
M27:- j 117 
M273u 118 
82730119 
M27Qai2C 
M273 Gl21 
M27 j0122 
M270Q123 
M 27 OQ 12 A 
M273 0125 
M27G012O 
M273G127 
M2700123 
H27J0129 
M27 3 0 15 0 
H27U0131 
M2700132 
M270Q133 
H27j 013 4 
M27 0 0 13 5 

M 2 7 3 u 1 3 6 
M270 0137 
M27uD138 
M27 j 0139 

wL 1-tu 

M27u014i 
M273 G1 ‘t2 
M27001A3 
M 273 014h 
M 27 j bln-b 
M27 00146 
M270 G14.7 
M 2 7 ■< y i 4 8 


EFDATA 


P4GE 


r') 


C 


o 


C] 


O 


< ) 


I, 1 


o 

o 


o 

o 

o, 

o 


DATE: 01/27/99 


u 1 A 9 

Pu 03C 

0 114 



SAN 

NMASS 

SKIP IF DEVICE NOT MASS STORAGE 

015 0 

PQ03D 

C109 



LOA- 

9,1 

SEE IF FLOPPY DISK 

0151 

P0 03E 

09BB 



INA 

-68 

TYPE CODE OF FLOPPY 

015 2 

P0 03F 

0101 



SAZ 

NMASS 

IS FLOPPY, LOG ON HASS MEMORY 

0153 

POOaC 

182E 



JMP^ 

MASS 

MASS STORAGE DEVICE FAIlED 

0 1 p -f 

POQAl 

C8 7F 


NMAS3 

LOA^ 

CEFOTA 

GET POINTER TO^ HOLDING STACK 

015 5 

PDG42 

G9FA 



INA 

-5 

CHECK IF STACK FULL 

0 1 5 o 

PO QA3 

0112 



SAN 

NOOVFL 

SKIP IF VACANCIES EXIST 

015 7 

PO0A4 

D8 7D 



RAO- 

EF30VL 

FULL - DUMP ERROR INDICATOR 

0158 

P U 0 H 5 

181A 



JMP^ 

MOVED 

EXIT — ERROR DATA HILL BE LOST 

G159 

POO 46 

C8 7A 


NOOVFL 

L DA- 

CEFOTA 

COMPUTE INDEX INTO NEXT VACANT SLOT'., 

ul5 0 

P U 0 7 

2 0 A3 



MU I- 

FIVE 


0161 

P00A8 

8 0 0 0 



ADD 

=XEFDATA 



PGQA9 

0 0C2 

P 




Q POINTS TO NEW SLOT 

uloZ 

POOAA 

0822 



TRA 

Q 

016 3 

POO AB 

CO FF 



LDA- 

I 


0 i 6 •» 

PO 0-C 

09 0 A 



INA 

A 


0155 

PO 0 AO 

60FF 



STA- 

T 

I POINTS TO NEW DATA IN VOLATILE 

016 6 

PO OaE 

OAFA 



ENA 

-5 

LOO? INDEX 

0157 

POOAF 

686E 



STA^ 

TEMP 


015 8 

POO 50 

0870 



RAO^ 

CEFDTA 

BUMP SLOT POINTER 

0159 

PQ051 

C522 


LOOP! 

LDA- 

(ZERO), I 

MOVE DATA INTO HOLDING STACK 

017 0 

PG052 

6622 



STA- 

(ZERO) ,Q 


0171 

P0053 

D86A 



RAO^‘ 

TEMP 


0172 

P005- 

C869 



LDA^ 

TEMP 


U17-3 

PO 055 

01 03 



SAZ 

MOVED 

SKIP IF move DONE 

017A 

P0 056 

DOFF 



RAO- 

I 

INCREMENT INDIGIES 

0175 

P0057 

OOOi 



INQ 

1 


Q17b 

Pu058 

18F8 



JMP^ 

LODPA 

CHECK IF EFSTOR BUSY 

0177 

P0Q59 

C866 


MOVED 

LDA» 

8SYEFS 

017d 

PO 05A 

OllB 



SAN 

NOSCH 

SKIP IF BUSY 

0179 

P0D5B 

PG05C 

086A 



RAO^ 

SSYEFS 

SET EFSTOR BUSY FLAG 

0130 

C862 



LDA- 

ISA^E 

PRESERVE I-REG IN THIS PATH FOR REENTRANCY 

0181 

P005D 

68 0 8 



STA^ 

SAVEI 


0132 





SCHEDULE EF3TOR 

ORDINAL 

0183 





SYSGHO E'STOR 

,P 

0183 

PQQ5E 

5AF4 






0183 

P0 05F 

2404 






018 3 

POO 60 

7FFF 

X 





018 4 

P0061 

0500 



TIN 

0 

RESTORE TEMPORARY I-REG 

018 5 

F0062' 

C8U3 



LDA^ 

SAVEI 

G18fc 

PO 063 

1804 



JMP* 

EXITA 


0137 

P0064 

GO DO 


EFLOCK 

NUM 

0 


0188- 

P0065 

GOOD 


SAVEI 

NUN 

0 

RESTORE VOLATILE POINTER' 

0139- 

PO 0 6d 

C858 


NOSCH 

LDA^ 

ISAVE 

Q19Q‘ 

POO 67 

60FF 


EXITA 

STA- 

I 

FIX RETURN ADDRESS 

0191 

P 0 0 68 

C1G3 



LDA- 

3,1 

G192 

P0C69 

5101 



STA- 

1,1 


0193 

P006A 

5ABA 



RTJ- 

(AVOLR) 

RELEASE volatile 

D 1 9 A 

P006B 

6894 



STA^ 

LOS 


013 5 

POO 6C 

G 400 



EIM 

0 


0196 

P0060 

1C92 



JMP"^ 

(LOG) 



M27J D1h 9 
M2 70 U 15 u 
M27Gul51 
M27Qtil52 
M27u u 1» 3 
M270Qli>+ 
M i7 0 0 Ip 5 
H27001PO 
M27 j 015 ( 
M2730 15a 
H2700 1 p 9 
M2700 160 
M27J 0 ibl 


M 2700162 
M27jul63 
M2?'i 01 D A 
M2700165 
M27i; 0 lob 
M 2 7 0 u 1 6 7 
H2730168 
M270 0 169 
M 27 0 0 17 0 
M270 0 17 1 
M273Q172 
M27U0173 
M27G0i/A 
M27u u 17 1 
M270 0 17 6 
H2700177 
M 27^0178 
M27 j0179 
M27j 0 180 
M2700181 
M270G182 
M 2 7 0 0 i S 3 


M270 0 lav 
M270 0 13 5 
M2700138 
M2700187 
M270G18S 
H27D 0189 
M27J 0 19 0 
M 270 0191 
M273 0192 
M2700193 
M2700194 
M 27 0 019 5 
M273 u 19u 


C: 

o 


o 


o 

o 

o 

o 


o 

o 

o 

o 

o 


o 


o 



o 


EFDATA 


PAGE 
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date: 01/27/99 


0198 

0199 
0 2 0 0 
020 1 
020 2 


If. if. t/. tj. if. 11. If. >1. :f. >t. :f. If. ^ !f. V- ^ ^ ^ ^ V- >f- V- -f- ^ ^ ^ V-V- ^ V ^ ^ ^ ^ ^ 'i- V- 217 2 i} 

THIS SECTIO'^ WILL SAVE DATA FOR MASS MEMORY ERRORS IN THE ^M27j0199 

^ PROGRAM RATHER THAN CAUSING POSSIBLE MASS '.STORAGE ERRORS -M27lG20G 

- TO FURTHER OtGRADE THE SYSTEM. -^M270U2ul 

^ A?- V- -v v* V- v ^ -r ❖ ^•'^r -r ^ ^ ^ ^ ^ ^ ^ -v* ^ M 2 /' j U C U 2 


0 20 4 

P006E 

0A05 

HASS 

ENA 

5 

0205 

POOcF 

6GFF 


STA- 

I 

020 6 

P0070 

0C2C 


ENQ 

4 4 t 

023 7 

P0G71 

C A6A 

LOOPM 

LOA^ 

MMEFtQ 

0 20 8 

P0D72 

5869 


STA’ 

HME", 0 

020 9 

PQ G7 3 

ODFE 


INQ 

-1 

0210 

PG074 

0171 


SQM 

NMDVED 

0211 

P0 076 

18FB 


JHP«f 

L03PH 

0212 

P0 076 

C848 

N MOVED 

LDA^ 

ISAVE 1 

0 213 

P0Q77 

09 04 


INA 

4 

Q21‘+ 

P0 0 78 

60FF 


STA- 

I 

0215 

P0 0 79 

0C04 


ENQ 

4 

•0216 

P0G7A 

C722 

LOOP3 

LOA- 

(ZERO) , B 

0217 

P007B. 

6 A 60 


STA^ 

MMEF ,Q 

0218 

PCG7C 

ODFE 


INQ 

-1 

0219 

P007D 

0171 


SQM 

EXIT 

0220 

PG 07E 

18FB 


JMP-^ 

LOOPQ 

0221 

PO 0 7F 

C83F 

EXIT 

LDA^ 

ISAVE 

0222' 

P0C8U 

60FF 


STA- 

I 

0 223 

PU 081 

Cl 03 


LDA- 

3,1 

0224 

PGG82 

6101 


STA- 

1,1 

0 22 5 

Pu083 

5 4 BA 


RTJ- 

(AVOLR) 

G22o 

P G Q 8 4 

6800 


3TA 

LOG 


PG065 

FF 7A 




022 7 

P0 0 86 

C833 


LDA^ 

HPTR 

022o 

PO 087 

0 9 F5 


INA 

-10 

0229 

P0G88' 

0101 


SAZ 

BURST 

0 23 0 

P 0 5 8 9 

0830 


RAO- 

MPTR 

0231 

P0G6A 

C82E 

BURST 

LDA^ 

BSYHER 

0232 

PO08H 

y 103 


SAZ 

NBSY 

023 3 

PO 08C 

0 4 0 0 


EIN 

Q 

0234 

PGu80 

iceo 


JMP 

(LOG) 


P008E 

FF71 




0 2 3 5 

P 0 Ob F 

3829 

NBSY 

RAO^ 

BSYMER 

0236 

PG090 

C800 


LOA 

LOG 


POO 91 

FF6E 




C-2 3 7 

PQQ92 

6828 


STA^ 

TLOG 

0238 

P0G93 

COFF 


LOA- 

I 

0239' 

PO 094 

6828 


STA*^ 

LISA V£ 

0 2 40 

P 0 G 95 

48 26 


STQ^ 

QSAVE 

0241 




SCHEDULE ERROR PRIM 

0242 




SCHDLE MMOIAGiP.u.i 

0242 

P0096 

5 4F4 




0242 

P0L97 

52 04 




0242 

P0Q93 

OIQD 

P 



0 2 43 

P0099 

C823 


LDA^ 

LISAVE 


HOVE MASS MEMORY DATA DOWN ONE SLOT 
OLDEST ONE FALLS OFF 


MOVE NEW DATA TO TOP OF TABLE 


RESTORE VOLATILE POINTER 

HOVE RE TURN ADDRESS 

RELEASE VOLATILE STORAGE 
PLUG IN RETURN 

CHECK IF MORE ERRORS ARE STACKED THAN 
ROOM INTHETABLE 

SITUATION IS SOMEWHAT ' HOPELESS SO LOSE SOME 
INCREMENT NEW ENTRY POINTER 
IS MM ERROR MESSAGE BUSY 
SKIP IF NOT SUSY 

RETURN TO CALLER 

SET BUSY FLAG 

SAVE RETURN TO CALLER 

SAVE DRIVER 1-REGISTER 
SAVE ORIVl-R Q-RcGISTER 


RESTORE I-REGISTER 


MZFOCZO^r 
M 27 j 0 2G 5 
M27 j 02G6 
M27jG207 
M 273 0 20 8 
M273D2G9 
M27J 0210 
H27Q 0211 
M27G0212 
M2700213 
M27] 0214 
M2730215 
H273G216 
M27CQ217 
M27j J218 
M27 0 a219 
M 27 00 220 
M2 7i. 0 221 

M 27 u 0 22 3 
H270G224 
H270022G 
M27 j G22c 

M27L0227 
M 270 0 22 8 
M27aC229 
M 27 GO 23 0 
M273 0 231 
M2700232 
H2700233 
M 2 7 u D 2 5 4 

M270C235 
M270 0 23o 

M27G0237 
M27G 0233 
M2730239 
M27 ij 0 2 h0 
M27C 0241 
M2730242 


M270 0 2a3 




EFDATA 


PAGE 5 

DATE: Gi/27/99 


G24t 

P00 9A 

6 0 FF 


3TA- 

I 


H27Q 0 2-r^ 

0245 

PO 09B 

C1G5 


LDA- 

£LJ,I 

GET LOGICAL UNIT THAT FAILED 

M270 0 245 

u 2 46 

P009C 

9 0C2 


SUO- 

LI3JNT 

COMPARE TO LIBRARY UNIT 

M27 j 3 2no 

02 47 

P0 090 

C 102 


SAZ 

LI3ARY 

SKIP IF LIBRARY UNIT 

M2730247 

0248 

PO G9E 

E8 ID 

EXIT3 

LDQ» 

QSAVE 

RESTORE Q-REGISTER 

M27j j2-r8 

0249 

PO09F 

ICIB 


JMP^ 

(TLOG) 

RETURN TO CALLER 

M2730 249 

0 25 0 

P 0 0 A 0 

E 1 06 . 

LI8ARY 

Loa- 

£PTR,I 

GET REQUEST ADDRESS 

H273 0250 

0251 

POOAl 

C622 


LDA- 

( ZERO) , Q 

GET ReiQ'JEST CODE 

M27G 0 251 

0252 

P00A2 

AO Qu 


AND 

= N53EG 3 

CHECK IF SYSTEM DIRECTORY RcQUEST (Ru-O) 

M273 3 252 


P0DA3 

3E00 






0 25 7 

P u uA “ 

GllA 


SAN 

HMEXIT 

SKIP IF NOT 

M 270 Q 253 

0 2 5 H- 

POOA5 

C622 


LDA- 

(ZER3),Q 

GET REQUEST CODE 

M273 G 25 H 

0255 

Pu 0A6 

AO 31 


AND- 

M 4 0 0 0 

CHECK IF PART 1 

M27 j G 25 5 

0 25 5 

P0GA7 

OllA 


3AN 

E6 

SKIP IF PART 1 REQUEST 

H270G256 

025 7 



■¥ 




M273Q257 

0258 

POOA8 

C201 


LDA- 

PC,Q 

YES, 

M2730256 

0259 

PQGA9 

68G 3 


STA^ 

REL30R 


HZ/ i 0 25 9 

0 25 0 

POOAA 

5 -+F4 


RTJ- 

C A'-IONI) 

RELEASE ALLOCATED CORE 

M273 0 260 

C2B1 

P 0 OAB 

1800 


NUM 

$1800 

RELEASE REQUEST 

M270 0 261 

n ? 5 ? 

PuGAG 

GO GO 

SELGDR 

NUN 

0 

COMPLETION ADDRESS 

M273Q262 

0 265 



>(■ 




M 2 7 3 Q 2 6 3 

0 2b 

POOAD 

GAGO 


ENA 

3 

CLEAR COMPLETION ADuRFSS 

M2700254 

0255 

PO UAE 

62 01 


STA- 

PC, Q 


H273 0 265 

0 2 5 6 

POOAF 

C80D 

MMEXr T 

LOA^ 

LISAVE 

RESTORE I-REGISTER 

H 2730266 

0 2 5 7 

POGBO 

6 0 F F 


STA- 

I 


M273 0 257 

0258 

PGGBl 

18EC 


JMP^ 

EXTTB 


H 27 3 0 25 8 

0269 

P u 0 B 2 

C2G1 

E6 

LDA- 

PC,Q 

GET START OF PARTITION 

M 27 3 025 9 

0 2 7 0 

P0u83 

68C3 


STA- 

RELPAR 


M27 J 0 27 0 

027i 

P00B4 

54F4 


RTJ- 

(ANONI) 


M27GG 271 

0 27 2 

PO 0B5 

58GQ 


NUM 

$5800 

RELEASE PARTITION 

M27 ] 3 27 2 

0273 

P G Q B o 

0 0 0 0 

RELPAR 

NUH 

0 


M2730 273 

0274 

POD 87 

18F7 


JMP- 

MMEXIT 

RETURN TO DRIVER 

M27 3 0 27*4 

0 27 5 

PO GB8 

QQ 00 

8S yher 

MUM 

0 


M270 0 27 5 

027 6 

PO 0B9 

0 0 0 0 

MPTR 

NUM 

0 


M27^ u27o 

0277 

POGBA 

u G u 0 

TLOG 

NUM 

0 


M27 j u 277 

027 8 

PO OBB 

0 0 0 0 

QSAV5 

NUM 

0 


M2 70 0 273 

0279 

POOBC 

GOOD 

LISAVE 

NUH 

u 


M273 0 279 

0280 

POOBD 

u 0 0 Cl 

TEHP 

NUM 

9 


H 27 3 0 28 -w 

0281 

POQBE 

00 00 

ISAVE 

NUM 

G 


M270 3 281 

0282 

POOBF 

0000 

BSYEFS 

NUM 

0 

EFSTOR BUSY FLAG 

H273 3282 

0233 

POOCu 

0 0 0 0 

CEFOT A- 

NUM 

0 

SLOT COUNTER FOR EFDATA 

M 27 3 0 28 3 

0284 

POOGl 

u U 0 0 

EFC OtfL 

NUM 

0 

EFDATA FILLED INDICATOR 

H27 j 3 284 

0 23 5 

P00C2 

0019 

EFDAF A 

BZS 

EFDATA ( 25) 

5 SLOT HOLDING STACK 

M273 0285 

0286 

PO ODB 

0 0 32 

MHEF 

BZS 

MMEF (53 ) 

10 SLOT MASS MEMORY STACK 

M27i30286 


EFDATA 


PAGE 


7 


date: ai/27/99 


1 I 


r ) 


< 1 




O 


( ') 


I j 


i \ 


U 

o 

o 

Q 

o 

o 


G288 

0Z89 

0290 

0291 
029 2 
0293 
0 2 94 
0295 
0 2 9 6 

029 7 

0298 

0299 

030 0 
u3Q 1 


THIS SECTION RUNS AT A LOW PRIORITY LEV EL ■ TO PRINT HASS 
NEHORY DIAGNOSTIC MESSAGES. OATA IS TAKEN FROM THc, ERRDR 
STACK AND REFORMATTED INTO THE ERROR MESSAGE. 

THE ERRDR MESSAGE IS.... 

LU=YY T=HHMN!SS S=2ZZ2 


MM 


;rr xk 

WHERE. . . I 
XX = 
YY = 
HH = 
MH = 
SS = 
2111 


ERROR CODE (SEE DIAGNOSTIC HANDOU3K) 

LOGICAL UNIT 

HOUR 

MINUTE 

SECOND 

= HARDWARE STATUS 




^ ^ M 27 J 0 2 8 8 
^M270C289 
“-M27 0 0 290 
^M27i; 0291 
270 0292 
^■M27Q 0293 
-H27 0 Q29-t 
M 2 7 0 0 2 9 5 
-M27j0296 
^M27u0297 
^M2700298 
H 270 0299 
■^''M270u3ju 
j 0 01] 1 


O 

O 


0 3 0 3 

POlOU 

0 50 0 


MHDIAG 

IIN 

0 

0304 

POlOE 

C8AA 



LDA^ 

MPTR 

030 5 

PG lOF 

09FE 



INA 

-1 

la 3 o 

POliO 

68A8 



STA^ 

MPTR 

0 3 0 7 

Piilli 

2043 



MUI- 

FIVE 

0 i C 8 

P0112 

60FF 



STA- 

I 

030 9 

P0113 

0 C 0 4 



ENQ 

4 

0310 

Poll 4 

CBC6 


M LOCAL 

LDA-- 

HMEF»B 

0311. 

P0115 

6A53 



STA» 

LOCAL, Q 

0312 

Puil6 

ODFE 



INQ 

-1 

0313 

0314 

P0117 

01 71 



SQM 

OLDCAL 

Pu 118 

18F8 



JHP* 

HLOCAL 

0 315 

P0119 

0 400 


OLOCAL 

EIN 

0 

0 316 

POllA 

C84E 



LDA^ 

LOCAL 

0317 

POllB 

5C4B 



RTJ» 

(XC3NV) 

0318 

POllC 

6838 



STA^ 

M3G + 7 

0319 

POllD 

C84F 



LDA^ 

LOCAL+4 

GS20 

Pu HE 

5400 

X 


RTJ4 

HA 


POUF 

7FFF 

X 




0321 

P0120 

68 3 0. 



STA^ 

MSG +15 

0322 

PU121 

0814 



TRQ 

A 

0323 

P0122 

QC3D 



ENQ 

$39 

0324 

PD123 

0FE8 



LLS 

8 

0325 

P0124 

4837 



STQ^ 

MSG+14 

03 2 6 

P0125 

0920 



INA 

$ 2 0 

0327 

P0126 

0FC8 



ALS 

3 

0328 

PG127 

E835 



LOQ^ 

MSG+15 

0329 

P0128- 

0FF8 



LLS 

24 

033 0 

P0129 

4833 



STQ^ 

MSG+15 

033 1 

P012A 

6833 



STA^ 

MSG +16 

0332 

PQ128 

C84Q 



LOA^ 

LOCAL+3 

033 3 

P012C 

AO OA 



ANO- 

H 0 0 F 

033^ 

= G12D 

5C39 



RTJ- 

(XCONV) 

0 3 3 5 

P012E 

6823 



STA* 

MSG +4 

0336 

P012F 

C8 3C 



LOA- 

LOCAL+3 

0537 

PG13G 

0FC8 



ALS 

3 

0336 

P0131 

A 0 0 A 



AND- 

HQOFF 


DECREMENT AND RESTORE POINTER TO MASS 

MEMORY ERROR TABLE. POINTS JO ENTRIES IN 
MMEF NEEDING MESSAGE OUTPUT. 

COMPUTE INDEX 


MOVE 3 WORD ENTRY TO LOCAL BUFFER 
FOR PROCESSING 


GET FAILED LOGICAL UNIT 
CONVERT TO ASCII 
PUT IN MESSAGE 
GET HARDWARE STATUS 
CONVERT TO ASCII 

FORMAT AND PUT IN MESSAGE 


GET ERROR CODE 

CONVERT. TO ASCII 
PUT IN MESSAGE 
GET SECONDS 


M 270 0 30 3 
M 27 0 0 30 4 
M27j j 3C5 
H27 0 u 30 b 
M 2? u u 30 7 
M 270 0 30 8 
M 2700 30 9 
M273 G 310 
M27;: 

M270 
M270 
M270 

M2? u 

H273 
M27 0 


u oi i 
0 312 
0 313 


0314 
0 315 
u 31b 
u 317 


M270 0318 
H 27a u 319 
M27J0 32 9 

M270 G 321 
H 270 0 32 2 
M2700323 
M27j 0324 
H27 0 0 32 5 
M 270 0 326 
M27Q 0 327 
M2?] 0 32 8 
M27Q 0329 
H273 033 0 
H27j G 331 
M27y 0 332 
M 27 0 
M 27 G 
M 27 j 
M2 7 


u O.S i 

0 33 4 
0 335 
0 35 b 


■M 27 0 0 c>3 7 
M 2700338 


o 


o 


n 


O 


o 

o 

o 

o 

o 

o 

o 


! i 


EFDATA 


PAGE 


o ■ 

0339 

PG132 

5C34 



RTJ'^ 

£ X30NV) 


0 -5 4 w 

Pul 33 

6826 



STA» 

M3G+12 

o 

D341' 

PQ134 

0 8 42 



CLR ^ 

Q . . 

0342 

P0135 

C835 



LOA’^ 

LOCAL+2 


0 3 4 3 

P0136 

3831 



OVI^ 

NlOO 


0 344 

PQ137. 

4832 



STQ^ 

LOCAL+l 


. 0345 

P0138 

5C2E 



RTJ^ 

{ XCONV) 

1 j 

034b 

P0159 

0C3D 



ENQ 

33D 


0 5 4 7 

PG 13 A 

0FE8 



LLS 

8 


0348 

Pti 13B 

4818 



STQ^ 

MSG+9 

\ 

0 3 4 9 

P013C 

681B 



STA^ 

MSG+iO 


0 3 p u 

P0130 

G8 2C 



LDA^" 

LOGAL+1 


u351 

P013E 

5C28 



RTJ-^ 

(XOONV) 


0352 

PO 13F 

0 8 42 



CLR 

Q 


0353 

PO 14 0 

0 F E8 



LLS 

3 

•s->’ 

0 35 4 

POl-rl 

093A 



INA 

S3A 


0 35 5 

PG 1^2 

6816 



STA^ 

HSG+11 


0356 

P014S 

F814 



AOQ^ 

MSG +10 

f' '[ 

0357- 

P0l44 

4813 



STQ^ 

MSG+iO 

1 ; 

0358 



H- 

PRINT ERROR 


0359 





FWRITE LUCM 


0359 

P0145 

64F4 






05 5 9 

P0146 

4644 






0359 

P0147 

015E 

P 






P0148 

QO 00 






0 35 9 

P0149 

18FC 





c 

0359 

PQ14A 

00 11 






Pfll48, 

0140 

P 



( ADISP) 


03 5 0 

PQ14C 

14EA 



JMP- 


0361 

P014O- 

2040 


MSG 

ALF 

17, MH 

r\ 


POIhE 

4D 2 G 







P014F 

4552 







P0150 

5220 







P0151 

5858 





O 


P015 2 

2 0 4C 






P015 3 

5530 







P Q 1 5 4 

5858 







P 0 1 5 5 

20 54 





o 


P0i5b 

3D 48 






P 0 15 7 

4340 







P0158 

40 3A 







P0159 

5353 





o 


P015A 

20 53 






PO 15 B 

3058 







P015C 

58 58 







P015D 

5820 





o 

0362 

. P015E 

0 5 0 0 


CMMER 

UN 

0 

0363 

PQ15F 

caeo 



LDA 

HPTR 



PG 16 D 

FF58 






0364. 

F0161 

0101 



SAZ 

DONE 

o 

0 3 6 5 

P0162 

18AA 



JMP^ 

M MO I A G 

0 3 6 6 

P0163 

6800 


DONE 

STA 

BSYMER 



P 0 16 4 

FF53 






DATE: 01/27/99 


CONVERT TO ASCII 
PUT IN NHSSAGE 

GET MILITARY TIME 
CONVERT TO HOURS/MINUTES 
SAVE MINUTES 
CONVERT HOURS 

FORMAT HOURS/VINUTES AND PUT IN MESSAGE 


CONVERT MINUTES 


WAIT FOR COMPLETION 
ERR XX LU=XX T=HHMMJSS S=XXXX 


POINTER = 0 IF NO MORE MESSAGES 

SKIP IF NO MORE 

GO TO PROCESS NEXT MESSAGE 

ZERO MESSAGE BUSY FLAG 


M27 j u S3 9 
M 27 J 0 3 hQ 
M27Gaom 
M 27 a 0 34 2 
M2700 343 
M273 0344 
M 27 u 0 o^t 5 
H273 0 34 o 
M27ju347 
M27 u 0 54 3 
M27 0 u 3-r9 
Mc; 7 u 035 G 
M27 J a 351 
M27 0 0 35 2 
M 27 0 0 35 3 
M273 0 354 
M27 0 0 35 5 
M27jG35o 
M 27 0 0 35 7 
M27 J 0 35 8 
M 27 j 0 35 9 


M 27 0 0 360 
M 270 0 361 


M2 7 0 'J 3b 2 
M2 / 4 U4o3 

M 2 7 J 0 3 o -r 
M270Q365 
M 27 j u 36 5 


o 


o 


r~ 


L-' 

Q 

O 

O 


O 

o 

o 

o 

o 

o 

o 


o 




EFDATA 


PAGE 

9 

date: 01/27/99 

0357 

P0165 

14EA 

JMP 

- (ADISP) 


EXIT 

0358 

P0166 

7FFF X XCONV 

ADC 

COMVER 


0369 

P0167 

0 0 6A Niao 

MUM 

IQO 



0370 

PG168 

0005 LOCAL 

BZS 

LOCAL (5 ) 



0371 



END 




P3'‘l = 

0160 

( 365 ) G 

OM = 

OQGQ { 

0 ) 

DAT = GOOD { C) 


M27j 0 35^' 
H27j 03o8 
H 2730369 
M27ju37C 
M27:0371 


■’ 


EFDATCk 


PAGE 10 


DATE; 

V.-' 

01/27/99 

’ C' ‘ 

{ 

£ Q U I V 

A L E N C 

E S 





' o 

C) 

DLF .LINE 

MAME 

VALUE 


REFEREN 

CEO AT 

LINE -NUMBER 

• o 


uOOQ 

I 

GOFF 

{ 0UG255) 

3 147, 

ij 1. t) 3 J 

0165, Q17-+, 

ul93 , 020*5, 0214, 0222, G253, 02*+-,, U2bi', OCOb 


0u55 

ZERO 

G022 

( QGQ.034) 

3 116, 

0'128, 

0 i 69 , 0 17 0 , 

0216, 0 251, 0254 


G asb 

AVOLA 

OOBB 

(0G0187) 

j G82 





0 057 

AVOIR 

GC BA 

(000186) 

0193, 

0 225 



u058 

ESTAT2 

0 0 G C 

(000012) 

0136 





0 0 59 

EREQST 

0 0 0 8 

( 0 00008) 

3 138, 

0 142 



O 

00 5D 

M 0 0 5F 

u G 0 8 

{ ouuooa) 

3123 



' C' 

0 0 61 

M0 3FF 

c C u L/ 

( 0Q0C12) 




4 *,-' 


G062 

M 0 0 0 7 

u 0 u P 

{ ii ‘<j j ii ij oi 

0144 





0063 

P 

000^4 

( 0 0 j G G 4 ) 

3183, 

y 2 h2 , 

0359, 03 p 9 



0 064 

FIVE 

G 0 4 3 - 

( 0&G0&7) 

3 163 , 

u 30 7 


' C-' 


0 06 5 

ADISP 

ODEA 

( QQG23*») 

3 3 60, 

0.36 7 



0 066 

LUCMNT 

OGFC 

( 0 00252) 

0 359 





OC 6 7 

^OOFF 

Qu 0 A 

( G30C1C) 

3 125, 

0 353, 

u33d 



0 0 68 

H 40 G 0 

uu31 

{ QOOQ49) 

3 255 



■ o 


0Q69 

AH ONI 

0 D F =4 

( 0002*44) 

0260 , 

Q 271 




0 070 

.PC 

0 G 0 1 

(GCOGul) 

0 258 , 

0 265, 

0269 



J V/ / 1. 

EPTR 

G G 0 6 

( y u 0 G G 6 ) 

0 2 50 




o 

0 0 72 

LIBUNT 

CQC2 

(0Gul94) 

024b 



■ o 

0 0 73 

ELU 

Go 0 5 

( 000005) 

0 245 




0 J 7 4 

H0u7F 

OG U 9 

( u 0 0 G 0 9 ) 

0132, 

U 14 G 



•*v^ 








• o 

\L-’ 








; O 

o 








: C 

o 








O 

o 








: O 

o 








. O 

o 








o 

;' \ 








O 






EFOATA 


PAGE 11 


DATE! 01/27/99 

O 

o 







S Y H E 0 

L S 





o 

D 

DEF.LINE 

NAME ■ 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

■ o 


j 035 

LOG 

G u u 0 

3 0 35 , 

fl L 8 i- 1 

3G99, vl9~, Gi96, 0226, 023^, 0236 



0 0 36 

BSY EPS 

008F 

U G 3 6 1 

0177, 

0179 

, o 


0 03 7 

GEEDTA 

OuCO 

0 u 37 , 

015-r, 

0159, 0168 


0 0 38 

EFLOCK 

0 0 64 

3 0 38 , 

0078 



0 0 39 

EFC oyL 

u G Cl 

0 0 39, 

0157 




0C40 

EFDATA 

G0C2 

0 0 40, 

0161 

u2Gtt,0217, OSlij 

■ T) 


0041 

MMEF 

OOiDB 

G G 4 1 , 

&2Q7, 


0 0 82 

NOLOCK 

0 0 0 6 

0 0 79 





3 12 5 

EFDAl 

GG22 

3117 





0 126 

EFOA2 

00 23 

0124 





0132 

EFDA3 

0 029 

0130 

0 152 


; O 


0154 

NMASS 

0 C 4 1 

3 1 ^,9 , 



0 159 

NOO VFL 

0 0 4 6 

3155 



i 


0 169 

LOOPA 

G051 

0176 

0173 




017 7 

MOVED 

0 059 

3158, 


■ u 


0188 

SAVEI 

0 0 b 5 

3181, 

0 18 5 




0189 

NOSCH 

0 b 6 6 

3178 





3 190 

EXITA 

0 067 

0186 





0 20 4 

MASS 

G06E 

0153 



• L-' 


0 20 7 

LOOPM 

0 0 71 

3 211 





0 212 

MMO VEO 

U u 7 6 

3 210 





0216 

LOOPQ 

UG7A 

3 220 





C 221 

EXIT 

G07F 

0219 



: 


0 23i 

BURST 

003A 

3 2 29 




0 235 

NBS Y 

G08F 

0232 





0 2 43 

EXITB 

30 9 E 

3268 



: O 


0 250 

LI BARY 

OOAO 

0 247 




0262 

RELCOR 

aoAc 

0 259 

0 2 74 



0266 

MMEXIT 

GOAF 

3 253, 

' 



0269 

E6 

0 0B2 

0 256 



O 


0 273 

RELPAR 

u 0 B 6 

0 270 

0235, 

G 3 b :j 


0275 

BSYMER 

0OB8 

3 231 , 



127 6 

MPTR 

0CB9 

3 227 , 

0 23 0 , 

0 3b -4- , -i 3 L, o , li ooo 



027 7 

TLOG 

aOBA 

0 2 3 7 , 

0249 


■ o 

Q 

0278 

OSAVE 

008B 

0 2 40 , 

0248 

0 2 66 

0 279 

LISAVE 

buBC 

3 239 , 

0 243, 


0280 

TEMP 

li b B 0 

3 167, 

0171, 

0172 



Q 281 

ISA VE 

uOBE 

0 148 , 

0 18G, 

0 189, 0212, u221 

o 

.-"v 

U 

C30 3 

MMO I AG 

OlOD 

3242 , 

0365 


0 310 

MLOCAL 

0114 

3 314 




3315 

OLOCAL 

0119 

3 313 





o 


EFDATa 


=AGE 12 


DATE: ui/27/99 


0 361 

MSG 

•014D 

0 518, 

0321, 

0325, 

0 362 

CMMER 

015E 

0359 



0 366 
3 368 

DONE 

XCONV 

0163 

.0166 

0 3 64 
0317 , 

0 0 3 * 

0 33 3? 

0369 

NlOO 

016 7 

0 3 43 

0316, 

0319, 

0 370 

LOCAL 

0168 

0 311 , 


0328 , 0 330, 0 331 , 0335, 0 St+O , 0348, 0349, 03 p5, G3::'c, 
u3 ‘1-5 ,0351 

0332, C33u, 0 34 2 , 0 3 A-i , 0 35 C 


^ 357 , 


EFDATft 


PAGE 13 


DATE: 01/27/99 


X T E R 

HALS 


DEF . LINE 

NAME 

VALUE 

0 0 4 4 

EFSTOR 

0G6C 

0 0 4 5 

QAYTO 

OOOD 

0 0 46 

MONTO 

d u 1 u 

^ 3 <’ 

YERTO 

0014 

u0 48 

H OR HIM 

0016 

y C49 

3ECOM 

OGie 

3 1) 5 0 

logia 

Q 0 2 D 

0C51 

30NVER 

0166 

0 052 

HA 

OllF 


P;E“ERENCEO AT LIME NUMBER 

0183 
Q1Q3 
. 3103 
, 3108 
Jill 
3 113 
313 3 
0 368 
0 320 


o 


EFDATa 


=>AGE 14 


date; 01/27/99 



^ A L 

P H A 

B E T I 

GAL 

SORT 

0 F 

S Y H B 

0 L S 

if. if. If. 


C-' 

ADI SP 

0 065 

AMOMI 

j 069 

AVOLA 

Q 0 56 

AVOLR 

0 6 5; 

BSYEFS 

^ ij 3 6 


C'J'^VER 

Cu51 

DAYTO 

0 0 45 

DLOCAL 

3 315 

DONE 

0 6 6 u 

EG 

C26 9 


EFDATA 

0 040 

EFLOCK 

0 0 38 

EFSTOP 

0 0 44 

ELU 

0073 

EPTR 

-071 


EXI TB 

0 2h-8 

FIVE 

0 0 6 ij- 

HA 

■] 0 t?2 

HORMIN 

0 u "T d 

I 

o L U 0 


L3CAL 

L 67 0 

LOG 

3 0 6 5 

LOGIA 

6 0 50 

LOOPA 

G 1 o9 

L 0 0 P M 

G2D 7 


MOO 7F 

0 07 4 

M 0 0 FF 

0 0 67 

M0 6FF 

3 6 61 

H40 0u 

0 6 6 3 

MASS 

02G 4 


MMOVEO 

0212 

MONTO 

3046 

MOVED 

0 177 

MPTR 

027 6 

MSG 

J 36 i 


M30VFL 

0159 

NOSCH 

0189 

P 

0 0 66 

PC 

0-7 j 

QS A V E 

.278 

( ) 

TEMP 

0280 

TLOG 

3 277 

XCONV 

0 3 68 

YERTO 

0 u 4 7 

ZERO 

uG5 5 


O 

C*"> 

Q. 

O 

o 

o 

o 

o 

o 

o 

o 

o 


BSYHER 

u 2 7 p 

BURST 

G231 

EFGOVL 

ij u 3 9 

LFQAl 

0125 

EREQST 

0 05 9 

ESTAT2 

0 0 5 6 

ISAVE 

0261 

LIBARY 

u 2 5 6 

LOOPQ 

6 21 6 

LUSH NT 

(il bo 

ML 0 CAL 

u 31C 

HMOIAG 

u 3 G 3 

Nluu 

0 36 9 

NESY 

0 23 5 

RELGOR 

0^62 

kELPAR 

0273 


CEFDTA 

0 63 7, 

CHHER 

- obL 

EFUA2 

6 I2b 

EFD A o 

-- 13b 

EXIT 

G 221 

EXITA 

-19 0 

LI BUNT 

u J 7 2 

llsave 

: 2 7 9 

H 3 017 

0 .62 

i 1 B oF 

G i- 

HMEF 

U ~ 4 i 

MMEXir 

- G O 

NMASS 

0 15 H 

NOLOCX 

Lf Li 4# 

SAVc I 

i8c 

SECONi 

_ ^ Q 


o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 


OGOl 
OOQ2 
0 3 0 3 
0 0 0 4 
00 0 5 


00 0 7 
00 0 8 
0 g 0 9 
0 u i 0 
Dull 
0012 
0013 
0314 
GGl 5 
0016 
0017 
0 318 
0019 
3 u 2 Q 
0021 
0022 
G023 


0025 
0 0 2 5 
0 027 


0029 

0030 
0331 
u u 3 2 


003 - 
uG35 
0 G 3 6 
03 5 7 
0038 


ALAQ 


PAGE 


DATE! ui/27/99 


V- 

* 

V- 


NAM ALftD DECK-ID M28 MSOS p.i 

A/Q CHA-^JMEL USAGE ALLOCATOR 
MASS STORAGE OPERATING SYSTE:-i VERSION -3.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFOPvNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-1 i-M28jg 031 
M 2 8 j 0 J 0 2 
M2bu. 30 3 
M28 00004 
M 28 jugD:j 


^ EACH DRIVER RESPONSIBLE FOR A DEVICE REQUIRING A/Q ALLOCATION MUST 
^ REQUEST CONTROL OF THE A/Q CHANNEL AND FOLLOWING COMPLETION OF 

ONE TRANSFER, RELEASE CONTROL. 

^ A SAMPLE OPERATION IS AS FOLLOWS.... 

^ DRIVER REQUEST 1706 ACCESS ... RTJ+ RQAQ 

^ DRIVER COHPLET:iS OPERATION. .. RTJ+ RLAQ 

^ RETURN IS MADE TO THE DRIVER FOR CONTINUATION 

I- ACESS IS REQUESTED AND THE A/Q CHANNEL IS BUSY, THE RETURN ■ A CORES 
^ PRIORITY LEVEL, AND I-REGISTER IS SAVED IN A CIRCULAR STACK UNTIL 
* IT IS AVAI_AbL£ WHEN THE REQUESTOR IS SCriECULED AT, HIS ENlRY 

^ PRIORITY WITH THE I-REGISTER IN Q. THE STACK IS FIRST IN, FIRST OU 




ON ENTRY TO RELEASE THE A/Q CHANNEL THE I-REGISTER IS RETURNEO^^ IN_ Q. 


■'CM 28 3 0^07 
H28 3 u j 3 3 
M 2 8 1 3 j G 9 
M 2 8 3 0 u 1 Li 
M283 iigll 

N28w U.12 

M28--u3i3 
M28_ 0 314 
H28G 0 3 15 
M2830ai6 
SM28ja-317 
H26 3 ij 018 
H28au019 
TM2eOU'j2G 
M283iig21 
M28uu j 22 
-M283 u 323 


^ PROGRAM ENTRY POINTS 
ENT RQAQ 
ENT RlAQ 


ACESS ENTRY FOR A/Q CHANNEL 
RELEASE ENTRY FOR A/Q CHANNEL 


M28^ j j2j. 
'^■'^MSOS -.i'‘'^M28uU32D 
-^HSOS -,.l'*‘'^M280a 32 7 


PROGRAM EXTERNALS 



EXT 

AQSTCK 


EXT 

AQ3SIZ 


EXT 

3YFAIL 


V- program 

EQUIVALENCE 

0 0 22 

EQU 

ZERO C$22) 

0 0 EF 

EQU 

PRIOR ($ EF> 

3 0 EA 

EQU 

ADlSPCfiEA) 

0 0F4 

EQU 

AMONI CBF4) 


REQUEST STACK 

REQUEST STACK SIZE TABLE 

SITE FAIL LOCATED IN SYSDAT 


ZERO ADDRESS 

SYSTEM PRIORITY Ln-VEL 

DISPA TCHER 

MONITOR REQUEST ENTRY 


M 28 G 3 0 2 9 
H S 0 S . I H 2 8 3 1) C 3 L. 
»'^MSOS 4.1 '^^M28u u 331 
($18FF) M28ja332 


H28j uu 54 
M 28 3 0 33 3 
M28G3 336 
M 3833337 
M2S0u 038 


ALAQ 


PAGE 


2 


date: 01/27/99 


^ .'f y, 51 V- ^ ^ ^ V- ^ ^ ^ ^ ^ ^ V 'r ^ V- V 

THIS. SECriO-M IS THE A/Q CHANMEL REQUEST ENTRY. IF THEA/Q CHANNELM283 u 0^2 
^ IS MOT AGTIVE, RETURN IS MADE IHHEOIATELY TO THE DRIVER. ^IFTHt M2bbuu:,o 

« A/ Q CHANNEL IS BJSY, THE DRIVERS I-REGISTER, PRIORITY, RETURN M28jGu-.^ 

^ ARE SAVED IN THE WAITING STACK. IF THE QUANTITY OF ENTRI £SiiXCEEDSM28j j uA^ 

THE STACK SIZE, THERE IS NO ALTERNATIVE BUT TO S T OP __ TH S YS TEM . M2 8u ^ 

^ 5L ^ ^ -V jyL ^ ^ ^ ^ ^ 3^ Jr- ^ ^ -V V ^ -A -V ^ ^ ^ ^ V V ^ ^ V V- -ir V 


POOuG 

PQ UG 1 

Pu9b2 

PG uG3 

P00G4 

PDGw 5' 

P 0 0 G 6 ', 

PCGG7. 

pGuoa 

P00C9 

PO OGA 

P 0 u G B 

PO uGC 

P 0 G 0 D 

PQQuE 

PDOOF 

POOii) 

PO oil 

P0012 

P0 013 

POul- 

P0015 

P0016 

P0C17 

P0018 

POOIR 

POQIA 

PO OIB 

POOIC 

POOID 

POOIE 

POOlF 

PG020 

P D 021 

P0022 

PQC23 

PQQ24 

PQD25 

P0026 

PGG27 

P0G28 

POQ29 

PGQ2A 

P 0 02 B 


3 0 0 0 
u 5 G 0 
C827 
0115 
0825 
EOFF 
4828 
G 40 0 
■1CF7 
GOFF 
E82 h 
0 8 72 
0 1 51 
18F7 
681A 
E853 
G61A 
0 8 32 
G622 
G102 
5400 
7FFF 
G8 E9 
6622 
0 DOl 
C8QF 
6622 
GOOl 
CO EF 
6622 
C8 OC 
EC45 
G8 52 
0903 
0 8 32 
0151 
0814 
6805 
0 4QC 
14EA 
0 0 G G 
0 OG 0 
0 0 DO 
00 00 


RQAQ 


RTNG3T 


THREAD 


NOGOT 


GOOD 


NOOVER 


TEMPI I 
BUS YAQ 
AQIN 
AQOUT 


NUM 

IIN 

LOA-^ 

SAN 

RAO^ 

LDQ- 

STQ^ 

EIN 

JMP- 

LOA~ 

LDQ^ 

EAQ 

SQN 

JHP^ 

3TA^ 

LDQ-^ 

LDA^ 

AAQ. 

LDA- 

SAZ 

RTJ + 

LDA^ 

STA- 

INQ 

LDA^ 

STA- 

INQ 

LDA- 

STA- 

LDA^ 

LDQ» 

TCQ 

INA 

AAQ 

SQN 

TRQ 

ST A’" 

EIN 

JMP- 

NUH 

NUM 

NUM 

NUM 


ACESS ENTRY ’•-MSOS 

INHIBIT INTERRUPTS 

CHECK BUSY STATUS ^-MbOS 

SKIP IF BUSY 

SET BUSY FLAG ■>--NS0s 

PUT I-REG. INTO Q-REG. FOR RETURN 
SAVE PDT ADDRESS OF CURRENT USER 
ENABLE INTERRUPTS ,, ^ 

RETURN TO CALLER »^MSOS 

CREATE TEMPORARY HOLDING AREA FOR STACK 
SEE IF THIS DRIVER ALREADY HAS AQ 

SKIP IF NOT CURRENT USER 

RETURN TO DRIVER - ALREADY HAS IT 

SAVE DRIVER I-REG. ^ ^ 

PICK UP POINTER TO STACK ADDRESS ^-^MSOS 

PICK UP POINTER FOR NEXT IN ^^MSOS 

PICK UP FIRST VACANT LOCATION 


BJSYAQ 

THREAD 

BU3YAQ 

I 

GOTAQ 

0 

(RQAQ) 

I 

GOTAQ 

Q 

N3G3T 
RTNGOT 
TEMPI I 
STKADD 
AQIN 

a 

{ZERO) ,Q 

GOOD 

SYFAIL 

RQAQ 

{ZERO ) , Q 
1 

TEMPII 
(ZERO) ,Q 
1 

PRI3R 

(ZERO) , Q 

AQIN 

(XSTKSZ) 

Q 

3 

Q 

NOOVcR 

A 

AQIN 

0 

( ADISP) 

0 

0 


A/Q TABLE 


SYSOAT 


LARGE 


-'NiSOS -.1 ’^-M26G0U-9 
M23 j 0 'J 5 u 
^-MSOS -t.l^^H28uG 351 
M 23 ; G 3 5 2 
--MSOS -..1«^-M28 jOG 53 
URN M2tiJu35-T 

ER M28GGu55 

M 2 8 3 u G 3 D 
»^MSOS 4 .. l’f'-^M28uu 35 7 
FOR STACK DATA M2&:JG58 
AQ M28u3t359 

M 2 6 3 D u 6 b 
M28GQbi61 
IT M28bGG62 

H280Q353 

S5 ^^MSOS 4.i5^^'-H2B30Gbv 
^^MSOS 4 .1 ^^H28u G Go5 
M 28 J 0 3 5 6 
M2830057 
MZ8jGG58 

ENOUGH - HANG M28.J059 


ASSEMBLE STACK ENTRYRETURN AOuRESS^^MSOS 


driver I-REGISTER 


DRIVER PRIORITY 

RESET NEXT IN POINTER 
OBTAIN STACK SIZE 


ENABLE INIERRUPTS 
EXIT TO DISPATCHER 


^^MSOS -.i«^^H28G y 37G 
M28Q u u7i 
M28i 3 372 
M28G G073 
H28J0G74 
M283 0 37 5 
H28Guu76 
M28GUG77 
«^^MSOS 4. 1^^^'M26G 0 07 8 
M28j G 379 
M283 u U8G 
H 2 8 3 0 G 8 1 
M2830G82 
M28 j 0 u33 
M283 0 u8t 
^^”-M30S .'-,l'f^H280G085 
H280 G G3& 
M28-- u j37 
M28.0 388 
M 28 . b 0 8 9 
H26G 0 u9 0 
-^MSOS -.I’^^MEBOuiigi 


r") 
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U092 P0G2C uUciO ITAQ NUH 0 

Qj93 P0020 QQuO TIAQ NUM 0 

0j 94 PG02E GO GO GOTAQ hjUM 0 


U 

O 

V 



o 

o 


C) 

o 

o 


date: ui/2?V9g 


o 


'*'^'•150 3 - , i *’'M28 . G j 9 2 
^^MSOS 4. l^’^M280u U93 

^2ttjuij9‘t 


o 

o 

o 

o 

0 

{J 

.''*N 

1 

V.,-' 

c 

o 

o 

o 

c 

C' 

o 
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alaq 
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date: Oi/27/99 


00 9 7 




0 098 




03 99 




GIG 0 




0101 




010 2 




0103 




0104 



^ ^ V 

0 1 0 b 

PG02F 

g 0 go 

RLAQ 

GIG 7 

P0 050 

0 5 0 0 


0108 

PQ031 

GOFF 


0109 

P0032 

E8F8 


0110 

P0 033 

0 8 72 


Dili 

PO 054 

0143 


G112 

P0C35 

0822 


0113 

P0G36 

04 0 0 


0114 

P0Q37 

1CF7 


0115 

P0038 

68F3 

GOTND 

G 11 6 

P0039 

E8F0 


G117 

P 0 u 3 A 

C8F0 


0118 

P003B 

0872 


0119 

PO 03C 

015A 


012 j 

PG03D 

E825 


0121 

P0 03E 

08 52 


0122 

POO 3F 

E622 


0123 

P 0 0 4 c 

0 1 56 


G12f 

P 0 Gi. 1 

GAGD 


0125 

PGu-2 

68E6 


0126 

PQ0^3 

68EA 


0127 

F G 0 *T 4 

E8E7 


0128 

PD045 

G4G0 


0129 

PC 0 46 

1CE8 


G13C 

PGQi.7 

E81B 

OOIT 

0131 

PG048 

08 32 


0132 

P 0 0 49 

C622 


0133 

P0G4A 

681E 


0134 

PO 04B 

0 8 44 


013 5 

POUifC 

6622 


01 3 6 

P004D 

ODOl 


0137 

Pfl04E 

C622 


013 8 

PC04F 

68DE 


0139 

PQ G5G 

0 8 44 


OlAO 

P0051 

66 22 


0141 

P0 052 

ODQl 


0142 

P 0 0 5 3 

C622 


Q143 

P00b4 

B 8 0 F 


0144 

P0955 

6812 


0145 

=>0056 

0 8 44 


C 1 4 8 

PO 057 

6622 


014 7 

P0058 

C8D2 


0148 





THIS SECTION IS ENTERED BY THE DRIVER TO.;RELEASE THE AYQ 
IF NO OTHER DRIVER IS WAITING, RETURN IS ' MADE IMMEDIAT-ELY TO 
DRIVER. OTHERWISE, THE STACK ENTRY IS MOVED INTO THIS PROGRAM 
IF NO OTHER DRIVER IS WAITING, RETURN IS HADE IMMEDIATELY TO 
DRIVER. OTHERWISE, THE STACK ENTRY IS MOVED INTO THIS ='KOGRAM 
ANO THE RELEASING DRIVER AND REUUESTING DRIVER ARE BOTH 
SCHEDULED , , 


CHANNEL-M28. 0u97 
^M28jj098 
•*'M28 u u99 
•“M26GGiSQ 
’^M2aOGlQi 
^M28a0i02 
^■H28 j G iG 3 
^''-•^M28G0l0 4 


NUM 

0 

IIN 

0 

LDA- 

I 

LOQ^ 

GOTAQ 

EAQ 

Q 

5QZ 

got.no 

TRA 

Q 

EIN 

0 

JHP^ 

{RLAQ) 

STA^ 

ITAQ 

LDQ^ 

AQIM 

LDA’^ 

AQOUT 

EAQ 

Q 

SQN 

DOIT 

LOQ^ 

STKADD 

AAQ 

Q 

LDQ- 

(ZERO) , Q 

SQN 

ooir 

ENA 

0 

STA^ 

8USYAQ 

STA^ 

GOTAQ 

LOQ^ 

ITAQ 

EIN 

0 

JMp4 

( RL A Q ) 

LDQ^ 

STKADD 

AAQ 

Q 

L OA- 

(ZE.RO),Q 

ST A^ 

SKDll 

CLR 

A 

STA- 

(ZERO) , Q 

INQ 

1 

LDA- 

(ZERO) , Q 

STA^ 

GOTAQ 

GL R 

A 

STA- 

(ZERO) , Q 

INQ 

1 

LDA- 

(ZERO ) , Q 

A DO- 

SKOM3K 

ST A-> 

SKDOl 

CLR 

A 

STA- 

(ZERO) ,Q 

LOA- 

AQOJT 


RELEASE ENTRY ' ^^HSOS 

INHIBIT INTERRUPTS 
SAVE DRIVi-R I-RcG. 

SEE IF RELEASING DRIVER REALLY HAS AO 
SKIP IF SAME ^-’^^MSOS 


IGNORE RELEASE - NOT. ACQUiRtD 

^-MSOS 

CHECK IF POINTERS = ^^MSOS 

<^^MSOS 

SKIP IF PTRS NOT EOUAL 

PTRS= IS STACK FULL OR EMPTY =^'>H30S 


STACK CLEARED, ZERO BUSY FLAG 

AND RETURN --^MSOS 

CLEAR CURRENT USER PDT ADDRESS 

RESTORE DRIVER I-REG. »-MSOS 

RETURN TO DRIVER ^^MSOS 

MOVE STACK ENTRY TO TEMP 


SET LOCATION TO SCHLOULE 


NEW DEVICE HAS AO 


SET SCHcDULii CODE * PRIORITY 


UPDATE STACK PTR ^-HSOS 

1 CARD DELETED 


^.i^-M2ba0iGc 
M28GGIG7 
H 28 S GIG 8 
H28GG109 
M28QG11G 
-..t^''^M28GGlll 
M28 jG 112 
M26 j j 113 
M283G11A 
-r.l^^-M28uG115 
h.1'^^M28Gu 11& 
-..l^^M28;ulir 
M28uull8 
M28G all9 
*-.1 ^^'^’128 0 012 0 
H28j012i 
M28; G122 
M28DG123 
M260 012 a 
■-*. l--M28;G12‘3 
M28CG12b 
^.i«‘^M28G012Z 
M28Gul2b 
-,l^-^-M25^0i2 9 
if, i^^M28 w u 13 L 
M28UU131 
M28 3 0 132 
M280 3133 
M23u GISh 
M280G135 
M280 C136 
M28j 013/'’ 
M28GG138 
M283 0139 
M28CU1AC 
M28u 0 itl 
M2S3 0142 
M28D u 1 t 3 
M 28 3 0 14 A 
M283ui42 
M 2 6 3 U 1 4 b 
4.1^^-M2800147 
M 28 3 0 1 4 8 



c 

»^HSOS 4.1^-M2800149 
M 23 0 0 15 0 

M 280 0151 f": 

M 260 0152 

M2800153 

M2830154 

^^MSOS 4.1’^-M280 015 5 . O 

»^MSOS 4.1’^-H2B00156 . 

^^-MSOS 4.1^’-M283 0157 
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date: Gi/27/99 


0159 
015 0 
0161 


0153 
015 A 
0155 


^ TABLE OF ADDRESSES AND CONSTANTS 


»M280 0160 

^ ^'. ^JL :i'. ^ ^ ;JL^ ^ ^^ i(. >t - 28 0 0 161 


P00&2 7FFF X STKADQ ADC AQ3TCK DATA STACK 

P00b3 5200 SKDM3K NUM $5200 
P0064 7FFF X XSTKSZ ADC AQ3SIZ 


ADDRESSES ^^•’^MSOS 4 . 1 ^‘M28 0 0 16 5 

M280 0164 
’^^MSOS 4,1^-M2800165 
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OATEJ 01/27/99 


L'J 

O 
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o 
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0157 
015 8 
0159 
0170 


0172 

0173 

0174 
U 1 7 5 
0176 
017 7 

0178 

0179 
DISC 
013 1 
0182 


PGM: 


P0 065 
P0066 
P0G67 
P0 068 
P0flc9 
P006A 
PG06B 
P006C 
PQ06D 
P006E 


E8C8 
5-fF4 
0 0 0 0 
0 0 0 0 
OSiiO 
68C4 
EOFF 
0400 
ICCl 
14EA 


THIS SEGTIOM SCHEDULES THE REQUESTING AND RELEASING DRIVERS 
^ AT THEIR PRI ORITIES. 


iMfl -i 




SKOL LDQ^ GOTAQ 

RTJ- {AM3NI) 
SKODl NUH 0 
SKDll NUH 0 
> IIN 0 
STA^ RLAQ 
LDQ- I 
EIN 0 
JMP^ (RLAQ) 
JMP- (ADISP) 
END 


SCHEDULE NEXT USER 


RESTORE RETURN ADDRESS 
RESTORE POT ADDRESS 

RETURN ’ 

EXIT TO DISPATCHER 


f-><^=^H2800167 
^M28D0168 
^M28G0169 


M28G 0172 
M280fll73 
M28Q D174 
H2800175 
M260 0176 
M283Q177 
M280 0 178 
M2800179 
M280 0 180 
M280 0181 
M28Q0182 


G06F { 


111 ) 


:oM = 0000 ( 


0 ) 


OAT 


00 3 0 ( 


Q ) 




O 

o 

■0 


o 

o 


o 

o 

o 

C) 
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n 

Nw* 

o 
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o 


EQUIVALENCES Q 


DEF.LINE 

NAME 

VALUE 


referenced at 

LINE NUMBER 

Q 0 DQ 

I 

yflEF 

( 0G0255) 

0054, 0058, 

0108, 0178 

0 035 

ZERO 

0022 

(000034) 

0067, 0071, 

007^, 0077, 0122, 0132, 0135, 0137, 0140, 0142, 0146 

0 03 6 

PRIOR 

u QEF 

(000239) 

0 0 76 


0 C 37 

ADISP 

OOEA 

I 000234) 

3087, 0181 


0 Q38 

AMONI 

ui D F 4 

(000244) 

0173 



O 


O 
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date; Dl/27/99 


SYMBOLS 


DEF . LINE 

NAME 

ADDRESS 

REFEREN 

3EO AT 

LINE NUMBER 



0 G 2 6 

RQAQ 

3 0,0 0 

0 0 26 , 

0 G 6 Y , 

0 0 70 



0 027 

RLAQ 

002F 

0027, 

0114, 

0129, 0156, 

0177, 

0 130 

0 0 5 4 

RTNGOT 

00 0 5 

0 0 62 





QQ5a 

THREAD 

0 0 0 9 

3 0 52 





0 0 63 

NOGOT 

oeoE 

J 0 61 





Q0 70 

GOOD 

0016 

0 068 





0 06 5 

NOOVER ^ 

0 025 

0 083 





Q C88 

TEMPII 

0028 

0 0 63 , 

0 073 




0C69 

8USYAQ 

00 29 

0 0 51 , 

0 0 5 3, 

0125 



] Q9G 

AqiN 

0 02 A 

0 0 65 , 

0078, 

0C85, ull6 



0 091 

AQOUT . 

002E 

0 117, 

OlirT, 

0155 



0 G92 

ITAQ 

002C 

3115, 

0127 




0 0 93 

TIAQ 

u02D 






0 09 4 

GOTAQ 

0G2E 

0 0 55 , 

0 059, 

01 C 9, 0126, 

013 3, 

0 172 

0 115 

GOTNO 

0038 

0111 





u 130 

DOIT 

0047 

0119, 

012 3 




3 15 5 

OVERNO 

0Q5F 

0153 





0163 

5TKADO 

0 0 62 

0064, 

0 12 0, 

G13 0 



0 164 

3KDMSK 

00 63 

0143 





0165 

XSTKSZ 

0064 

0079, 

0149 




Q 172 

SKDL 

0065 

0 157 





0 174 

3KOG1 

0067 

0144 





01/5 

3KD11 

00 68 

0133 
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DATE: 


EXTERNALS 


DEF.LINE NAME 

Du3G AQSTCK 
0 0 31 ' ^ AQSSIZ 

DC32 SYFAIL 


VALUE 

0 0 52 
00 6 A 
0015 


REFFRENGED AT LINE, NUMBER 

.0163 
'0155 
0 059 


01/27/99 
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A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 








ADI SP 

G03 7 

AH ON I 

0G38 

AOIN 

0 0 90 

AQOUX 

u-jOI 

AGlSSIZ' 

, 0031 

AQS TCK 

0030 

BUSYAQ 

03 89 

DOIT 

GOTAO 

0 09 4 

GOTNO 

Jll5 

I 

0 0 Qj 

ITAQ 

0092 

NOGOT 

0063 

NOOVER 

006 5 

OVERNO 

0155 

PRIOR 

RQAQ ' 
THREAD 

002 6 
0058 

RTNGOT 

TIAQ 

0 05 4 
0 093 

SKQQi 

XSTK3Z 

0174 
a 165 

SKDll 

ZERO 

0175 

0035 

SKOL 

0172 

SKOMSK 

0164 

STKADO 

0163 

SYFAIL 


0130 GOOD 
0036 RLAO 
0032 TEMPII 


007 
0 0 2a 
0088 


.fC. 





SPACE 


PAGE 


date; 01/27/99 


( i 


; I 


( J 


. I 


n 


O 


o 

o 


' ) 


o 


OOQl 
00 0 2 
0Q03 
GOO A 
00 0 3 


00 Q ? 
0 0 3 8 


0011 
0312 
0013 
OGIA 
0Q15 
0 015 

0017 

0018 
0019 
00 2 0 
00 21 
0022 
00 23 
0 0 2 4 

002 5 
0 0 2 5 
0 3 2 7 
00 2 8 
0029 
G3 3 0 
0 331 
QQ32 
0Q3 3 

003 4 

GQ3 5 
00 3 6 

G03 7 

0 0 3 8 
00 39 
0 u 4 0 
0 j 4 1 
bU42 
0 0 43 

0 0 4 4 
G045 
G 0 4 6 
0 0 4 7' 
00 48 
0049 
0 0 5 0 
0 j51 
00 5 2 


>!■ 


NAM SPACE DECK-ID H29 MSOS 5.0 

SPACE REQUEST PROCESSOR. ALLOCATABLE SPACE AND RESTART 
MASS STORAGE OPERATING SYSTEM VERSION 5. Q 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197o 


0 0 0 0 P 


ENT 

HQU 


SPACE 

SPACE(^) 


SUMMARY-122’^’^^’^*^'^^ 
H29000G2 
M2900GD3 
H293 0QQ4 
M293 0 0 0 5 


M2930007 
M290 0 00 8 


- 


^ '•r V 






AjLAiL ^ :f. if. 2;. ^ 3^ ^ ^ ^ ^ ^ 

ENTRY POINTS 

if. jf ^ if. ^ if if. if ^ if.if if ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

TlO SPACE REQUEST PROCESSOR 

STMSV-r START OF SPACE PROGRAM 

T17 PARTITION CORE REQUEST PROCESSOR 

areas TOTAL. length OF ALLOCATABLE 

ALCLGH ALLOCATABLE CORE LENGTH TABLE _ 

externals 


ENT 

ENT 

ENT 

ENT 

ENT 


REGISTER DATA 
DATA TABLE BASE 
DATA TABLE BASE 


ALLOCATABLE 
AVAIL ALLOCATABLE 


CONTAINS UPPER BOUND REGISTER DATA 

CONTAINS LOWER BOUND 
UPPER BOUND REGISTER 
LOWER BOUND REGISTER 
CURRENT CONTROL POINT 
SYSTEM FAILURE ROUTINE 
ADDRESS OF LAST LOCATION IN PART t 
CHECK THREAD FOR NON-ZERO £NTRY<RW SUB.) 

ENTRY IN RW PROGRAM FOR SPACE PROCESSOR 
REQUEST PRIORITY MASK 
LEVEL START TABLE 
LOCATION CONTAINING END OF 
location CONTAINING NO, OF 
DIAGNOSTIC TIMER PROGRAM 
IDLE PROGRAM 

POINTER TO EXTENDED INTRPT STACK 
DEFINE MICRO-INTRPT CODE 
ADT TABLE ADDRESS 
RESET /START FUNCTION CODE 
TIME OF DAY PROGRAM 
1576-1 BASIC W.E.S WORD 
1572-1 HISTORY TABLE 
157 2-1 BASIC W.E.S WORD - DA 
1572-1 BASIC W.E.S WORD - FU 
1 573 eASIC W.E.S WORD 
1572 OSCILLATOR FREQ. /CLOCK 
FUNCTION CODE TO C.NABLE 1572 
1572 BASIC W.E.S WORD 
FUNCTION CODE FOR COMM. 

10336-1 W.E.S WORD 
10336-1 CLOCK REGISTER 


M29Q 0011 
M29GuG12 
M 290 0013 
M290 0014 
M2900015 
H29Gfl016 
M290fl Q17 
M290 0018 
M2900019 
M290D020 
M2900 021 


EXT 

UBPROT 

EXT 

LBPROT 

EXT 

UPBDTB 

EXT 

LOBOTB 

EXT 

CCP 

EXT 

SYFAIL 

EXT 

END0V4 

EXT 

CKTHRO 

EXT. 

SAVLU 

EXT 

RPNASK 

EXT 

LVL3TR 

EXT 

LEN3 

EXT 

CALTHU 

EXT 

DTIMER 

EXT 

IDLE 

EXT 

MFFLAG 

EXT 

DMICOO 

EXT 

TBLAOR 

EXT 

EMPSRT 

EXT 

UPTQD 

EXT 

£15761 

EXT 

H15721 

EXT 

D15721 

EXT 

£15721 

EXT 

E1573 

EXT 

01572 

EXT 

E1572F 

EXT 

E15 72 

EXT 

EQ3644 

EXT 

E10336 

EXT 

010336 


FUNCTIO N 


HP 

HP 

HP 

HP 

•»-^MSOS 


MUX 

VALUE 



^T^MSOS 

n • 

A 

»^MSOS 

u • 

CTION»*HSOS 

4 • 


¥¥HS0S 

4 . 

REQ. 

^^MSOS 

4 . 

^^MSOS 

. 


»^HSOS 

4 . 


^^MSOS 

4 • 


115-^4381^’^’^’^’^^^^ 

1 16'^ 4 38 1 4 4f ¥ sf 

116^' 4381*’"’^’^^^^^ 

122^4381^^’^^'^^^^ 
M29G0022 
M290G 02 3 
M2900024 
M29uD Q25 
M2900Q26 
M2900027 
H290G02S 
M290Q 029 
MSOSM290Q030 
MSDSM29G0u31 
MSOSM290 0032 
MSOSM2900033 
4.1^^M2900034 
M290 0 035 


1¥¥H2900 038 
1¥¥H29Dij 039 
1¥¥H29G0040 
1¥¥H290C041 
1¥¥M29G0042 
1¥¥M29DQ 043 
M2900 044 
M2900045 
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■u 


( ) 


r\ 
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0 0 53 
005 A 
0 0 5 5 
00 5 t) 
0 0 5 7 
0Q5S 
00 59 
0 3 5 0 
uu 51 
0052 
0 u 5 3 
005 4 
0 0 6 5 
0 0 6 6 
00 5 7 
0 0 5 8 
0 0 6 9 
00 7 0 
0 3 7 1 
0C72 
00 75 
00 7 4 
0 0 7 5 
00 7 6 
00 7 7 
0078 
0D79 
G I 3 C 
0081 
0082 
00 8 3 
0 0 8 4 
008 5 
0 0 8 5 
0 0 8 7 
0088 
0039 
0.-9 0 
0 091 

0092 

0093 
0 0 94 
0 095 
00 9 6 
0 0 97 
0 0 98 
0099 
fllO G 
GlQl 
010 2 
0103 
QIO- 
010 5 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 


F1033 6 

TMRTYP 

LOGIA 

E17811 

F17811 

JOBENT 

LIBEDT 

PROTEC 

SYSLVL 

K65T10 

lUP 

INPTV4 

AUTFg 

AUTFA 

AUTFB 

Ml, 

LSIZV4 

PSIZV4 

JBFLV4 

EFLOCK 

HIBX 

TOFUNC 

SYSHOH 

SY50AY 

SY3YER 

SYSID 

FSLIST 

ADRFMS 

BEGLUl 

BEGLU2 

BEGLU3 

BEGLU4 

8EGLU5 

8EGLU6 

BEGLU7 

BEGLU8 

NUMFSfl 

NUMFSl 

NJMFS2 

NUMFS4 

NUMFS5 

NUHF36 

NJMF37 

NUHFS8 

OUTPUT 

SPACE4 

N0G30A 

REL 

SCH 

PTNALC 

PTNREL 

SPCE\/4 


N5 


DATE: 01/27/99 


ENABLE 10336-1 

TIHER type DESIGNATOR »^MS0S 4 

TABLE OF P.D.T. ADDRESSES ^^MSOS 4 

1781-1 H.E.S. 

1781-1 INITIAL FUNCTION 
INDEX TO J08ENT DIRECTORY ENTRY 

INDEX TO LIBEDT DIRECTORY ENTRY 

INDEX TO PROTEC DIRECTORY ENTRY 

SYSTEM LEVEL (^S STATEMENT) 

ENTRY TO PARTITION CORE DRIVER (PRTCDR) 
STANDARD INPUT (TRVEG) 

, INPUT UNIT FOR JOB PROCESSOR (TRVEC) 
AUTOLOAD STD INPUT (TRVEC) 

AUTOLOAD STD PUNCH (TRVEC) 

AUTOLOAD STD LIST (TRVEC) 

,N6,N7,N8,N9,N1S ,Nii,N12,N13,Nl4,N15 ^-HSOS 4 
OVERLAY LENGTH OF LIBEDT »^MSOS 

OVERLAY LENGTH OF PROTECT PROCESSOR ^^HSOS 


LOCK OUT LOGGER FLAG 
LOCK OUT HIPRO 
TIME/DATE FUNCTIO 
MONTH SYSTEM WAS 
DAY SYSTEM WAS 
YEAR SYSTEM WAS 
SYSTEM IDENTIFICA 
START OF FILE SPA 
BEGINNING OF FILE 
BEGINNING ““ * 

BEGINNING 
BEGINNING 
BEGINNING 
BEGINNING 
BEGINNING 
BEGINNING 
BEGINNING 
LENGTH 


"^^MSOS 4 


FIL 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 

file 

LENGTH OF FILE 

LENGTH OF FILE 

LENGTH OF FILE 

LtNGTH OF FILE 

length of file 

LENGTH OF FILE 

LENGTH , OF FILE 

LENGTH OF FILE 

SWAP ROUTINE WRIT 

SPACE REQUEST TO 
SWAP ROUTINE READ 
RELEASE ROUTINE 
SCHEDULE ROUTINE 
SCHEDULE PRTCDR 
RELEASE PRTCDR 
PRT 16 PARTITION 


OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 


N ORDINAL 
LAST BUILT 
LAST BUILT 
LAST BUILT 
TION BUFFER 
CE LIST 

SPACE-LIB. UNIT 
SPACE-UNIT 1 ’ 

SPACE-UNIT 2 
SPACE-UNIT 3 
SPACE-UNIT 4 
SPACE-UNIT 5 
SPACE-UNIT 6 
SPACE -UNIT 7 
SPACE-UNIT 8 
SPACE-LIB. UNIT 
SPACE-UNIT 1 
SPACE-UNIT 2 
SPACE-UNIT 3 
SPACE-UNIT 4 , 

SPACE-UNIT 5 
SPACE-UNIT 6 
SPACE-UNIT 7 
SPACE-UNIT 8 
E REQUEST 
UNSWAP 
REQUEST 


CORE R £Q, 


(DCORE) 

(DCORE) 

(DCORE) 

(DCORE) 

(DCORE) 

(PRTCDR) 

(PRTCDR) 

(PRTCDR) 


^^MSOS 

*^^MSOS 

^^HSOS 

’f^^MSOS 

^'^HSOS 

*^^MSOS 

^»HSOS 

•^^MSOS 

=»‘^MSOS 

»^MSOS 

»^MSOS 

^^MSOS 

«^MSOS 

-^MSOS 

^’^MSOS 

**MSOS 

^^MSOS 

«^^MSOS 

^^MSOS 

^^HSOS 

^^HSOS 

»^MSOS 

♦^MSOS 


M2900046 
.1^^M2900047 
.1^=^M29Q0Q48 
M293fl049 
M2900Q5G 
M290 0 051 
M2930052 
M29G0053 
MaecooB^t 
H29u 0 05 5 
H29] 0 056 
M29UQ057 
H2900 058 
M293Q059 
M2900 060 
.l«^^‘M2900u61 
4.0M2900062 
4. GM29Q0063 
M29D 0 064 
.l’-''"M2900,065 
M2900066 
.i»^M29DG 067 
.l’^^M2900068 
.i*^-M29Qfl069 
.1^^M2900070 
.1?^^M2900 071 
.l^^M29G0 072 
.1,^,^M2900Q73 
.1^^M29G0074 
,1»^M2900075 
.1^->M2900 076 
.i*^M2900077 
.1»-'^M29D 0 078 
.i*«‘M2900079 
.1-^^M2900 08G 
.l*^^M2g00G81 
i»^M2900082 
.i^^M2900 083 
.1^^M2900084 
.1»^H2900085 
.l«-^M290fl 086 
.l’^^M2900fl87 
i»^M29Q0088 
.1^^M2900089 
.1^^M290Q Q9Q 
M290Q091 
M290 0092 
M2900093 
M29J 0 094 
M2900095 
M2900096 
M29J0097 
M2900098 


u 

O 

O 


c 

c 

o 


o 

o 

Q 

O 

O 

o 

o 

r") 


o 



SPACE 


PAGE 3 

010 6 


EXT 

RDPTV4 

0107 


EXT 

0UT=V4 

010 a 


EXT 

PCORE 

0109 


EXT 

P18ECM 

0110 


EXT 

P13PGA 

0111 


EXT 

P18AOO 

0112 

O0F7 

EQU 

L0C0RE($F7) 

0113 

0 0F6 

EQU 

HIG0RE($F5) 

UllH 


EXT 

P18HXP 


o 

o 

o 


date: 01/27/99 


M29GQ 099 
M2900100 
M2900101 
M 29 00 10 2 
M290 0103 
M290010A 

M29C0105 


PRT 16 SWAP AREA READ REQ. (PRTCDR) 
PRT 16 SWAP AREA WRITE RED. tPRTCOR) 
PHYSTAB FOR CORE DRIVER (SYSDAT) 
POINTER TO ECH DRIVER {SYSDAT) 

PAGE FILE ADDRESS 
PAGE MEMORY ADDRESS 
SYSTEM LOW CORE DATA 
SYSTEM HIGH CORE DATA 
MAXIMUM PAGE 


o 

o 


o 


o 


o 

C' 

c 

o 


r. 


O 


O 

u 

O 

o 

o 


C^' 


o 


o 


o 


SPACE 


PAGE 


A 


date: 01/27/99 


0 1 1 b 


¥-¥'¥-S‘^ 

Oil 7 


■¥■ 

0118 


If..:}, j;. if. Jf. tf. If. ^ ^ 

0119 

0001 

EQU 

0120 

0 0 03 

EQU 

0121 

00 04 

EQU 

Q122 

0 022 

EQU 

0123 

0 0 23 

EQU 

0124 

00 07 

EQU 

0125 

00 02 

EQU 

012o 

0 0 F4 

EQU 

012 7 

00 25 

EQU 

0128 

0 0 FB 

EQU 




LUC0RE( 1) 
VR(3) 

V PL { A ) 

ZER3 ($22) 
ONEBIT($23) 
VTMPt 7) 
LPiSKlZ ) 
AMONI (5F4) 
FOJR{$25) 
SYDIR (B EB) 


f. >1.^ H. -I. If. :f. if. If. ^ ^ If. ^ ^ ^ •¥■»■“-? •¥■■» ■ 

EQUIVALENCES 

LOGICAL UNIT OF CORE ALLOCATOR 
RETURN IN VOLATILE 
PRIORITY IN VOLATILE 
ZERO 

TEMP IN VOLATILE 






* M290U107 
M29QQ1Q8 
^ M29Q0109 
M 29 0 0110 
M2900111 
M29Q0112 
M290U113 
M290011A 
M29D0115 
M2900116 
M 2900 117 
M2900118 
M2900119 


L..' 

C' 


O 

o 


o 


C) 

o 

o 

o 

o 

c 

o 









SPACE 



="AGE 5 

DATE: 01/27/99 



n, 

G13 C 




V- 





M29C0121 


G151 




V 


RW REQJEST PROCESSOR (-fUST BE PRESENT 


M2900122 


ai32 






FOR OPERATION 

OF THIS MODULE. 


M2900123 

c 

0133 




■¥ 





M2900124 

015^+ 






LUCORE MUST BE EQUATED TO THE LOGICAL 


M2900125 


0135 






UNIT ASSIGNED 

TO THE CORE ALLOCATOR. 


M29G0126 


0137 


oa 00 

P 


EQU , 

,T17 {^ ) 


^^MSOS 

4. GM2900128 

o 

C158 

PO 0 G li 

U822 


Tio 

TRA 

Q 



M290 0 129 


0139 

PO 001 

CiOd 



LDA- 

8,1 


^♦MSOS 

4. GM290 0130 


0140 

P 0 0 0 2 

0133 



SAM 

CORI 

SKIP IF INDIRECT REQ 

’^^MSOS 

4. QM29UU131 

' c 

0141 

P 0 Q Q 5 

.0AG5 



ENA 

5 

INCREMENT RETURN ADDRESS 


M2900132 

014 2 







FOR DIRECT 


M2900133 


0143 

POOG4 

8103 



ADD- 

VR,I 

CALL 


M29G0134 


0144 

p 0 a 0 5. 

6103 



STA- 

VR, I 



M290 Q135 


0145 

POO Ob' 

C622 


CORi 

LDA- 

(ZERO ) ,Q 

GET REQUEST PRIORITY 


M2900136 


014 6 

POOG 7 

A400 

X 


AND 

RPMASK 



M29D0137 



P00G8 

7FFF 

X 








0147 

P u 0 0 9 

6104 



STA- 

VPL,I 



M2900138 

c> 

0148 

POGLA 

54 0 0 

X 


RTJ 

CKTHRO 

CHK FOR ZERO THREAD LOC, 


H 290 0 13 9 


POOQB 

7FFF 

X 








0149 

PO QGC 

C107 



LOA- 

VTHP,I 

CHECK REQ CODE 

^^MSOS 

4. 0M290014G 


0 15 Q 

PO OOD 

09F5 



INA 

-10 


’‘^MSOS 

4, 0M2900141 

o 

0151 

PO QOE 

01 02 



SAZ 

CORZ 

SPACE REQUEST 

»^MSOS 

4. 0H2900142 

0152, 

PO OOF , 

14D0’ 

X 


JMP 

K65T10 

A PARTITIONED REQ 

**MSOS 

4. LM29D0143 



POGIQ ^ 

7FFF 

X 








0153 

PuGll 

OCOl 


CORZ 

ENQ 

LUCORE 


^^MSOS 

4. 0M2900144 

- C) 

015 4 

P0012 

1400 

X 


JMP 

SAVLU 

SET UP LU FOR ALLOCATOR 


M290G145 

L-- 


P0013 

7FFF 

X 








015 6 

PO 014 

OCOl 


TO I OLE 

ENQ 

1 

ENTER TIME/DATE Q CODE 

'^^MSOS 4. 

1^^M2900147 

■ o 

015 7 





SCHOLE (TD“UNC)»4 


»»HSOS 4. 

i--M2900148 


0157 

P0015 

5 4 F4 









015 7 

FQ016 

1204 








. o 

0157 

P0017 

FFFF 

X 







L-- 

015 8 

PGG18 

14 a 0 

X 


JMP+ 

I DL E 

GO TO IDLE LOOP 

-^MSOS 4. 

1^-'^M2900149 



P0019 

7FFF 

X 







: O 

u 15 0 







M2900151 

0161 

POGIA 

0 OGQ 


A RE AC. 

AOC- 

0 

TOTAL LENGTH OF ALLOCATAB'Lt CORE 


H 29 3D 15 2 


0162 

P li 0 1 B 

FFFF 


ADC 

, (S7FFF) 

THREAD 


M2900153 

: O 

G 1 6 3 




-f- V-S V- V- V- 9 ^ ^ V “ir ^ ^ •W' ■¥■ •¥• >!■ V- V- '4- ^ if- V V- ^ AfAf •¥• ¥■¥ 

M290G154 


c 


o 

n 





SPACF 


= AGE 


date: 01/27/99 


015 5 
C 1 5 D 

0157 

0158 

0159 
017 0 

0171 

0172 

0173 

0174 
017 5 
0176 
017 7 

0178 

0179 
013 0 


¥ 

* 


¥ 

V- 

¥■ 


THIS IS THE RESTART. ROUTINE. 


ITS PURPOSE IS - 


I. SET UP THE CORE ALLOCATION TABLE 

?. PROTECT AND UNPROTECT APPROPRIATE: CORE LOCATIONS 

3. SET JP THE SYSTEH DIRECTORY ENTRY OF CERTAIN JOB 
PROCESSOR MODULES 

4. START THE SYSTEM TIMER, AND INITIATE THE DIAGNOSTIC 

tiner;..and tihe-of-day programs 

5. PRINT THE SYSTEM PSR LEVEL MESSAGE 

5. REDJEST THAT.- THE PROGRAM PROTECT SWITCH BE ENABLED 
IF IT IS NOT 

7. PRINT THE SYSTEM IDENTIFICATION 

8. PRINT THE SYSTEM CORE SIZE MODE 

9. ■ PERFORM A VALIDITY CHECK ON THE SYSTEM FILES (IF ANY) 
ID. INITIATE A REQUEST FOR THE TIME AND DATE 

II. TRANSFER CONTROL TO THE SYSTEM IDLE LOOP 


M290 0156 
M29D0157 
M2900158 
M2900159 
M 29 0 0 16 0 
M29D0151 
M2900162 
M 29 0 0 163 
M29D0164 
M2930165 
M290G166 
M290 0167 
M2900158 
M290Q159 
M2900 170 
M2900171 


0182 

0183 

0184 

018 5 
0186 

0187 

0133 

0189 

0190 

0191 

0192 

019 3 
0 19 •+ 
0195 
019 6 

Q19 7 




SET UP THE SORE ALLOCATION TABLE 


POO IG 
PO OlO 
POOIE 
POulF 
P0020 
PCG21 
P0022 
P0 023 
PQ 02-t 
P0025 
3Q026 
P0G27 
P0G28 
P0 029 
PC 02A 
P G u2 B 
P002C 
P002D 
P 0 u 2 E 


C8Q0 
0 49F 
09 02 
6800 
049C 
OCQF 
CO 00 

00 lA 
ODFE 
60FF 
CAOO 
0495 
0101 
0902 
8 OFF 

01 43 
660 0 
7FFF 
18F5 


RESTRT 

LDA 

ALCLGH 





INA 

2 

ALLOW 

ROOM FOR 

THREAD BETWEEN AREA 


STA 

ALCLGH 




RSTl 

ENQ 

1 5 





LDA 

=XAREAC 




SETT3L 

INQ 

-i 

SETUP 

ALLOCATION TABLE (LVLSTR) 


STA- 

I 





LDA 

ALCLGH, Q 





SAZ 

CHKENO 

NO ALLOCATION, 

SEE; IF DOME 


INA 

? 




CHKEND 

AOD- 

I 





SQZ 

SETENO 





STA 

L VL 5 T R , Q 





JMP-*^ 

SETT6L 





M290 0173 
M 2930 17 H 

122^438 

0-1 M29Q0177 

M29Q0178 

122^438 

M2900179 

M29Q0 130 
M2900181 
M 29 GO 18 2 

M29G0183 

M29u0184 

M2900185 

M29UG186 

M29G0137 

M 290 0188 




SPACE 


PAGE 

7 

0199 

PG02F 

0 9 01 

SETEND INA 

1 

SETUP 

02 0 0 

P003Q 

6400 X 

STA 

LE'IO 



PQ031 

7FFF X 





date: 01/27/99 

END OF PROTECTED ALLOCATABLE AREA M2900190 

M290Q191 


SPACE 


PAGE 


8 


DATE: 01/27/99 


0202 PGG32 OCOA 

0203 P0033 E6E9 
Q2Q 4 P0Q34 Q1 51 
D2G'j> P0u35 18 DF 
02Qo PDG36 C 8 62 
0 23? POO 37 CO GO 

PD038 7FFF 
u2Go P0039 0834 

0209 PCG3A ul21 

0210 P0Q3B 1819 

0211 POQoC 0105 

0212 P0G3D EG GO 
P0G3E 04BC 

0213 POQ3F 8203 

0214 POC 4 O 6203 

0215 P0041 18DF 

0216 P0042 0854 

0217 PQQ43 18G7 

0218 P0C44 0822 

0219 PGQ45 90F7 
u22u POO^+B 0132 

0221 P0fl47 4QF7 

0222 P0048 4 OEO 

0223 P0049 0814 
022-^ P0Q4A- 9000 


FIX4 


. ENQ 10 
LDQ- ($E9),D 
SQN FIX4 
JHP^ FIX4Y 
TCA Q 

LOA =XE'^OCV4 


AAQ A 
SAP FIX 4 A 
JHP^ NTEMUF 
FIXhA SAZ FIX4X 

, LOQ =XALCLGH, 

ADD- 3,Q 
STA- 3,Q 
JHP^ RSTl 
FIX4X TCQ A 

JHP* SKIPIT 
FIX4y TRA Q 

SUB- $F7 
SAM SKIPIT- 1 
STQ- $F7 
STQ- $ED 
TRQ A 

SKIPI T SUB =XAREAC-1 




P0 04B 

00 19 

P 




0225 

P004G 

68C0 


STA^ 

AREAC 


0226 

P0040 

6400 

X 

STA 

CALTHD 



PQ 04E 

7FFF 

X 




0227 

P 0 0 4 F 

6400 

X 

STA 

MIBX 



P0050 

7FFF 

X 


EFLOCK 


0228 

P0051 

6400 

X 

STA 



P0052 

7FFF 

X 




0229 

P0Q53 

1810 


JMP» 

INIT 


IS UNPROTECTED IN PART 1 
YES^ 

NO 

-(END OF ALLOCATABLE) TO Q 
ADD'R OF LAST LOCATION IN PART 

COMPUTE # EXTRA LOCATIONS 
SKIP IF .EXTRA. GE. ZERO 
GO AWAY IF NOT ENOUGH ROOM 
SKIP IF ZERO EXTRA MEMORY 
START. OF LENGTH TABLE TO A 


^-'‘MSOS' 4.1«^^M290 0 193 
♦»MSOS 4.1»-*^M2900194 

122 ^ 4381 ’^^^’^’^*’^^'' 
122 ^ 4381 »^’^ 5 ^--^’'^ 
0 TO A 122^4381^»^^^^»^ 

122^4361»^=f-‘^-*^"^*^^ 

122^4381^^^^«^^^^ 

122^4381----^--’' 


ADO EXTRA TO REQUESTED AREA 4 122^4381’^^-'' 

STORE BACK IN TABLE ^22^4361^^^-^^^* 

SET UP ALLOCATABLE WITH NEW AREA - 122-4381«^-’-^^’^'^» 

SET A TO END OF ALLOCATABLE ^ 22-4381^-»“^ 

122*^4 38 ^ ^ 

IS THE SIZE OF ALLOCATABLE GREATER . 122^ 438 1^^^ ^ 

THAN SPECIFIED BY THE INITIALIZER M2900197 

NO M29QC196 

yes, SPECIFY THE NEW SIZE M2900199 

, . M 290 0 20 0 
, M2900201 
M29002G2 

SETUP TOTAL AVAILABLE PROTECTED ALLOCATABLE M2900203 

M2900204 


LOCK OUT MIPRO 
LOCK OUT LOGGER 


M290U205 
^^MSOS 4.1^'f-M29G0206 


0231 

0232 

0233 
G23h 
0 2 3 3 

0236 

0237 


0239 

0240 

0241 

0242 


b2‘T-r 


SPACE 


PAGE 


DATE: 01/27/99 


POOS^t 

54F4 


NTENUF 

RTJ- 

(A33NI) 

PRINT INSUFFICIENT MEMORY MESSAGE 

P0055 

OCUQ 



AOC 

SOCQO 


PG Q 5 6 

0 QUO 



ADC 

0 


P0G57 

0 0 0 0 


MTETHD 

ADC 

0 


P0058 

18FC 



NUM 

SiSFC 


PGQ59 

0 0 10 



ADC 

NTEMSL 


P 0 05 A 

0 0 60 

p 


ADC 

NTEMSG 


P003B 

G8F8 


NTEWA T 

LOA^ 

NTETHD 


P005C 

0 101 



SAZ 

1 


P0D5O 

18FD 



JMP’^ 

NTEWAT 

WAIT FOR COMPLETION 

PO 05E 

5400 

X 


RTJ 

S YF A I L 

KILL SYSTEM 

P005F 

7FFF 

X 





P0 060 

49 4E 


NTEHSG 

ALF 

INSUFFICIENT ALLOCATABLE MEMORY^ 

P0 061 

5355 






PG0b2 

■4 646 






PO 0 63 

4943 






Pu 0 6 *+ 

4945 






P006 5 

%E54 






P0 066 

2 0 41 






P0067 

^•C 4C 






P0068 

^F43 






P00b9 

>+154 






P 0 0 6 A 

4142 






PO 06B 

4C:-5 






PQ 0 6fj 

20 4D 






PQQ60 

4540 






PG QBE 

tF52 






P 0 0 oF 

5920 







0010 


NTEMSL 

EQU 

mtem'sl 

-NTEMSG) 


122^ 4- 38 1'^'^ 

122 ^ 4381 ^’^^'-^^^'^ 

122 -^ 4361 '^ 

122^4381-s‘^-'^»^^^ 


122^4381’-'^^^^**^ 
12 2-^4 381»-'^^’^^-^-’^ 


122-4 38i^-»‘-p^^-^^^ 







SPACE 


PAGE IQ 

DATE; 01/27/99 



0?47 







116^4381^^’^'*^^^^^ 


0248 





INITIALIZE ALL LOCATIONS ABOVE PHYSICAL LOCATION $FFFF 

116-^438 

o 

0249 





IF TIMESHARE SYSTEM 

116^4381»*»’-»»«-- 

0 2 5 0 









0251 









02 5 2 





1. SET PAGE REGS 0 

-15 TO 0-15 BECAUSE 

116^4381»^*-^^-^»*^ 

c 

0253 





THIS COOE IS IN THE LOWEST 32K OF MEMORY 


0254 







116^4381»^-5^’-^^«^^ 


0 2 5 5 





2. GO TO PAGE. MODE 

0 

116^4381^*^^*^’^'^ 


0256 




3f. 

3. USE PAGE REG 16 

TO INDEX PAGE (2K) TO WORK ON 

ilb^kZ&i**'^****^ 


025 7 




* 

START WITH PAGE 

127 (POSSIBLE LAST PAGE IN MACHINE) 



0258 





4. WRITE SISFF TO 

ALL LOCATIONS IN CURRENT PAGE 



0259 





AND SET PROTECT 

BIT ON 

lib'^438 


0260 





5. DECREMENT PAGE 

NUMBER until ALL PAGES ABOVE $FFFF , 

116*4381’^^-^’^^^*^ 

o 

0261 






IN BOTH CPUS HAVE BEEN COVERED. 


0262 





IF A PAGE DOES 

NOT EXIST, THE WRITE OPERATION WILL 



0263 





BE ABORTED AND 

PARITY ERROR SET 

116^438 


0264 





6. 60 TO ABSOLUTE 

MODE 

116^4 38 


0 2 6 5 




-¥■ 

7. SET PAGE REGS 16-31 TO CONTAIN 16-31. THUS 



0 2 6 6 





PHYSICAL ADDRESS = LOGICAL ADDRESS FOR THE LOWEST 65K 



0267 









0268 

PQO 70 

COQO 

X 

INI T 

LDA =XCCP 

CURRENT CONTROL POINT 




POu 71 

7FFF 

X 






0269 


0 0 71 

P 


EQU ACCP{--1) 

' 

116^4381^''^^^'^^^ 


0270 

PQ072 

BOll 



EOR- LPMSK+15 


116^4381"- 


0271 

P0073 

0111 



SAN SETUPO 

SKIP IF PATCHED 

116^4381^^^*^'’^^^ 


0272 

P00 7^ 

1827 



UMP^ SPBLPO 


116^4 3 


0273 


0 075 

P 

SETUPO 

EQU SETUPG(^) 




0274 

0274 

P0 075 

0 BOB 



APM 0 

GO TO ABSOLUTE MODE 



. 0275 

P 0 0 7 6 

0 8 44 



CLR A 

ASSUME THIS CODE IS IN THE LOWEST 32K 



. . 0276 

POO? 7- 

QCOF 



ENQ 15 

OF MACHINE THUS 

116^438 


0277 
027 7 

PQ078 

0BG3 


setup' 

HPR A 

FILL PAGE REGS 0-15 WITH 0-15 

116^' 


0278 






WRITE IN PAGE REG 



0279 

Pu079 

8-0 0 0 



ADD =N$D801 

INCREMENT PAGE REG AND ITS CONTENT 

116-^438 



P007a 

0 8D1 







028 0 





nqp 



o 

023 0 
0281 

PO 07 B 

06A5 




116^438 



0282 

P007C 

0500 



IIN 0 

INHIBIT INTERRUPT FROM PARITY ERROR 

116^4381^^*^^^^^^ 


028 7 





PMO 0 

GO TO PAGE MODE 0 

li6^4381^»-^^«‘»^^ ^ 


0263 

P0 0 7D 

OB DC 






‘s-y 

028t^ 

P0 07E 

OAIO 



ENA $10 


116-^438 


028 5 

P0 0 7F 

OFCB 



ALS 11 

USE PAGE REG $10 TO INDEX EACH PAGE 



028 6 

PQ080 

60FF 



STA- I 

CURRENTLY BEING WRITTEN 

110^438 


0287 

PO 081 

Q9 7F 



INA $7F 

MAX PAGE IN MACHINE 

llo^4381*-^^-^^’^^ 

0288 

0238 

P0082 

07C1 



XFA 1 

REG 1 CONTAINS CURRENT PAGE (BITS 0-8 




0289 




if. 


AND PAGE REG (BITS 10-15) 

116^438 

o 

0290 

P0U83 

0A5F 



ENA $5F 

TOTAL NO. OF PAGES = 96 ($60) 


0291 





FROM PAGE 127 TO 31 (ALL LOCATIONS 



0292 






ABOVE PHYSICAL SFFFF) 



o 


i 




o 


Q 

o 

o 


o 

o 



o 


n 


O 

O 

c 


o 


SPACE 


PAGE 11 


DATE! 01/27/99 


P0084 

POOfiS 


07C2 
C864 
00 86 P 


P0086 0B23 


P0G87 

P0088 

PGG89 

P008A 


P008B 

P008C 

POG80 


0 4 83 
CO 62 

EOFF ^ 
FOOD 

0088 P 
6622 
0600 
ODFE 


PO Q8E 0663 


P008F 0401 
P0090 9003 

PO 091 06 4B 

P0ijg2 GICG 


LDA^ LOCO- 

NXTP3E ECU NXTPGE(^) 
WPR 1 

LR3- H7FF 


LDQ- I 

ADQ- LPMSK + 11 

NXTLOC EQU NXTLOG(^) 
STA- (ZERO),Q 
SPB 0 
INQ -1 
D3P ^-'^XTLOC 


SBl- LPMSK+1 


D2P ^-NXTPGE 


SPE 0 


DATA TO WRITE IN REG A ($18FF) 
REPEAT 

WRITE CURRENT PAGE IN PAGE REG $lu. 
TOTAL NO. OF LOCATIONS IN ONE 


PAGE = $800 (2K) 

REG Q CONTAINS THE LOGICAL ADDRESS 
OF LOCATIONS IN PAGE, LAST L0C=$7FF 
REPEAT 

WRITE 16 BIT DATA 
SET PROTECT BIT TO ONE 
DECREMENT LOGICAL ADDRESS BY ONE 
UNTIL ALL LOCATIONS IN A PAGE WERE 

WRITTEN ENDREPEAT 

DECREMENT PAGE NUMBER BY ONE 


UNTIL ALL 96 PAGES HAS BEEN WRITTEN 
ENDREPEAT 

CLEAR PARITY ERRORS WHICH MIGHT BE ■ 
CAUSED BY WRITING INTC NON-EXISTING 
MEMORY 


FILL PAGE REGS 16-31 WITH 16-31 SUCH THAT PHYSICAL 
ADDRESS = LOGICAL ADDRESS F3R LOWEST 65K OF MEMORY 


PC093 080B 
P0G9-+ OCOF 
PU095 COOO 
P0096 8010 

P0097 0BC3 
P0098 8000 
P0099 0801 

P009A 06A3 


ENQ 
. LDA 

SETUPl WPR 


15 

=N$8010 


=N$Q8 01 
^-SETUPl 


o 

o 




116-^ 4-38 

116^4381»-»»»^»^ 




1 16^4381’^^^^^^^^f-^ 


116^4381^-^'^ 

O 

116-^4381^^*^ 


C 

IId-4381^^-^-^--^ 

116^4381’^^^®^^^^ 


o 

1 16^438 1’^'^ ^ 

1 16^ 438 1 

ll6-’^438 


11 6^4381"'^^^^ 
li6-**-4381^^»^^-«'^^ 

c„.- 


■ o 

116^438 

116-4381^^^^-^^^^ 

r\ 

. f'3 

‘w' 

llb^'4 381^^^^^'^^'*^ 


' i’^) 


1 16^4381^^^^^^^^ 
116^4381^^^^*'^^*^ 

, o 

116-*f 4 381*-^^*-»^^^ 

' o 



116^4381 
1 16 ^4381*’- 


n 


SPACE 


==AGE 12 


DATEJ 01/27/99 


PROTECT AMl) unprotect APPROPRIATE CORE LOCATIONS 


N290 0208 


0098 P SPBLPO 
P0G93 E0F5 
PC09C 06DO SPBLOP 
P0u9D 0142 
PO 09t ODFE 
P0Q9F 18FC 
POOAO C40 0 X. CLRP3 
PQQAl 7FFF X 
P0GA2 E0F7 
P00A3 Oil! 

P0GA4 1822 

OOA5 P CLRP31 
P00A5 C8CB 
PCGA6 BOil 
P00A7 0111 
P00A3 181A 




EQU SP3LPO(») 
LDQ- $F5 
SPB 0 
SQZ CLRPB 
INQ -1 
JMP^ SPBLOP 
LDA+ HPFLAG 


LOQ,- 

SAN 

JMP* 

EQU 

LDA^ 

EOR- 

SAN 

JMP» 


SF7 

CLRPBl 
NOTMP 
CLRPBl (^) 
ACCP 

LPiSK+lS 

CLRPBT 

NOTTS 


NON-ZERO IF AN MP SYSTEM 

BOTTOM OF AREA - 1 
SKIP IF AN MP 


CURRENT CONTROL POINT 
SKIP IF TIMESHARE SYSTEM 


P00A9 
POQAA 
PO OAB 
PQGAC 
POOAO 
POOAE 
Pi] OAF 
POOBO 
POOBl 
POOB2 
P0QB3 
PQOBa 
P00B5 
PO 0B6 
P0 0B7 

P00B8 

P0QB9 

POGBA 

POOBB 

POOBC 

POOBO 

POOBE 

POOBF 

PQOCO 


0 50 0 
OAOO 
0 BCD 
C0F7 
u 4 0 Q 
7FFF 
0 BCl 
C0F6 

&4 0 0 

7FFF 
OBCO 
C0F7 
OCOl 
6600 
7FFF 
OOB7 
6CFE 
OGFE 
6EFC 
G 0 F 6 
OCOl 
6 6 0 0 
7FFF 
0 0 BE 
6CFE 
OGEE 


CLRPBT 


UN 0 
ENA 0 
NUM SOBCQ 
LDA- LOCORE 
STA LBPROT 

NUM SQBCl 
LOA- HIGORE 
STA UBPROT 

NUM SOBCO 
LDA- LDCORE 
ENQ 1 

STA LOB3TB,Q 

EQU LOBDAD(^-l) 
STA» CLOBDA3) 

ENQ -1 

STA^ (LOBOAD),Q 
LOA- HIGORE 
ENQ 1 

STA UPBDTB,Q 

EQU UPBDAD(^-l) 
STA=f (UPBDAQ) 

ENQ -i 


1 1 4 38 i ^ ^ ^ 
’f^HSOS 4.i^’^M2900 210 

PROTECT »Ll OF ftVSILABLE CORE • St! I3P IM 

SKIP IF ALL UNPROTECTED »JH|OS L.0M290g|l| 

^^MS0S4. 0 ^M2900214 

NON-ZERO IF AN MP SYSTEM M290G215 

BOTTOM OF AREA - 1 MP HSOSM2g00216 

SKIP IF AN MP 

116*4 38 

CURRENT CONTROL POINT 116^4381******** 

SKIP IF TIMESHARE SYSTEM f f Ml - 

116 * 4381 *****’^** 

. INSTRUCTION ON SETTING UPPER AND f 

SOUND REGISTERS 1^5^4381******** 

r UPPER BOUND REGISTER TO ZERO -- 
TURN OFF BOUNDS 
■ LOWER BOUND REGISTER, AND 

r UPPER BOUND REGISTER. 

116*4^81******** 

DISABLE INTERRUPT 

116 * 4381 ****^^^^ 
1 1 381 ******** 

116*4381******** 

116*4381**** **** 
116*4381******** 
116*4381******** 

116*4381******** 

GET LOW CORE DATA AND SET FOR LOWER 

BOUND REGISTER DATA FOR TABLE 116^4381******** 

LEVEL -1, 0 AND 1 LOWER BOUND REG ISTER116 *438 1***** ** * 


SPECIAL INSTRUCTION ON SETTING UPPER 
LOWER BOUND REGISTERS 
(!) SET UPPER BOUND REGISTER TO ZtRO 
TURN OFF BOUNDS 

(2) SFT LOWER BOUND REGISTER, AND 

(3) SET UPPER BOUND REGISTER. 

DISABLE INTERRUPT 


TABLE 

INITIALIZATION 


GET HI-CORE DATA - 

INITIALIZE LEVEL -1, 0 AND 1 UPPER 
BOUND REGISTER DATA TABLE 


116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 

116*4381******** 


SPACE 


=AGE 13 


DATEi 01/27/99 


03 7 3 

PGOCl 

bEFC 


STA^ 

{UP3DA0) ,Q 

037 -r 


G0C2 P 

NOTTS 

EQU 

NOTTS (^ ) 

0 3 7 5 

PO 0C2 

GBAl 


NUM 

S03A1 

03 76 

P0QC3 

EOF6 


LOQ- 

SF6 

0 3 7 7 

PQ 0G4 

OBAO 


NUM 

JOBAO 

0378 

POOG5 

1808 


JMP^ 

R5TRT2 

038 0 

P00C6 

ODOl 

NOTHo 

INQ 

1 

0381 

P00C7 

0 7 GO 

RSTRTl 

CPB 

0 

0 382 

PG0C8 

ODOl 


INQ 

1 

0383 

PQ0C9 

C0F6 


LDA- 

SFo 

0 3 6^ 

POOCA 

0874 


EAQ 

A 

0385 

POOCB 

0101 


SAZ 

RSTRT2 

0 3 8 5 

PQQCC 

18 FA 


JMP^^ 

RSTRTl 

03 8 3 

PO OCO- 
PO OCE 

EO 00 
G0F3 

RSTRT2 

LDQ 

=N$F3 

0389 

POOCF 

0700 


CPB 

0 

0 39 0 

POODO 

GDOC 


INQ. 

{j: r* 
■P u 

0391 

PO JDl 

07 0 0 


CPB 

G 

0 392 

PO 002 

QDC5 


INQ 

-$3A 

0 3 93 

P0QD3' 

0 700 

F?STRT3 

CPB 

0 

0394 

PGQD4 

PG GD5 

coao 

0 0E5 


LDA 

=N$E5 

0 39 5 

PC 006 

0 874 


EAQ 

A 

039 6 

POOD? 

ODOl 


INQ 

1 

0397 

POuOa 

0 101 


SAZ 

1 

0398 

P0009 

18F9 


JMP^ 

RSTRT3 

0 399 

PQQDA 

E0F4 


LDQ- 

4 

04 0 0 

PG 0D8 

0 700 


CPB 

0 

0 40 2 

PGOOC 

C0F2 


LDA- 

$F2 

0 4 0 3 

POODD 

60FF 


STA- 

I 

0 40 4 

P 0 0 D E 

QCQ2 


ENQ 

2 

0^-0 5 

PDOOF 

0 8 54 

RSTRT 4 

TCQ 

A 

0 40b 

PO OEO 

80F1 


ADD- 

$F1 

QhU7 

PQOEl 

Q13C 


SAM 

RSTRTo 

0408 

P 0 0 E2 

48 06 


STQ^ 

R3TRT5 

0409 

P00E3 

E3Q1 


LDQ- 

1,B 

0410 

PO QE4 

07Q0 


CPB 

0 

Otll 

POO E5 

E803 


LDQ^ 

RSTRT5 

0412 

PG0E6 

0D04 


INQ 

4 

0 4l 3 

P00E7 

18F7 


JMP» 

R3TRT4 

0 415 

PQ0E8 

aooo 

RSTRT5 

NUH 

0 

0 416 

P0GE9 

18FF 

LOCO 

ADC 

S18FF 

0 417 

POOEA 

07FF 

H7FF 

NUM 

$7FF 


116^438 

LOAD LOWER BOUNDS REGCENH INSTR LLB, Q) NP MSDSH290Q218 
TOP OF AREA +• 1 


HP MSOSM29u0219 


LOAD UPPER BOUNDS REGCENH INSTR LUB Q) HP HSOSM29Q0220 


SKIP OVER OLD CODE 


HP MSOSH290Q221 


DO IT THE OLD WAY 

CLEAR JOB AREA PROTECT BITS 

END OF AREA + 1 


HP MSOSM2900 223 
M29Q0224 
M2900225 
M2900226 
M 290 0 22 7 
M29Q 0228 
M29GQ229 


CLEAR SPECIAL COMMUNICATION AREA H290Q231 

M29GQ232 

M2900233 

M2930234 

UNPROTECT FORTRAN AREA ($C5-$E5> M2900235 

H2900237 


UNPROTECTED REQUEST ENTRY 
POINT 


H2900238 
M 2900239 
M2gu0 2-r0 
M29G0241 
M2900242 
M 290 0243 


UNPROTECT PRESET LOCATIONS 


LENGTH OF TABLE OF PRESETS 


M2900245 
M29GQ246 
M 290 0 247 
M2900248 
M29b02^9 
M290025D 
M2900251 
M2900252 
M290 0 253 
H2900254 
M2900255 
H2900256 


COUNTER 

CONSTANT 


M290 0 25 8 
11d^4381»^»’^ 





SPACE 


PAGE 14 

date: 01/27/99 



C) 

•w- 









o 


C'^19 




¥- 

SET UP SYSTEM DIRECTORY FOR JOBENT, LI8EDT, AND PROTEC 

M290 a 260 


O 

Q~^^ 

P0QE8 

7FFF 

X 

SDJ03 

ADC JOBENT 


M2900262 

o 


u^ZZ 

POOEC 

7FFF 

X 

S0LI3 

ADC LIBEDT 


M2900263 


( 

0423 

PO OED 

7FFF 

X 

SDPR3 

AOC PROTEC 


M2900264 

: O 


0-f25 

POOEE 

EOEB 


RSTRT6 

LDQ- SYOIR 


M29Q 0 256 


0 42 6 

POOEF 

F8F8 



ADQ^ S0JD8 


M2900267 



DHa"" 

POuFO 

CAIO 



ENA $10 

SET PRIORITY OF JOBENT TO 1 

M2900268 



0428 

POOFi 

66 22 



STA- <ZERO),Q 


M2930269 

U 


0 4-2 9 

P00F2 

EOEB 



LDQ- SYOIR 


M290027G 



043Q 

P0QF3 

F8F8 



ADQ^ SDLIB 

SET LIMITS FOR INITIAL LOAD 

M2900271 



0431 

PQ0F4 

COO 0 

X 


LDA =XLSIZ\/4 

LIBEDT LOAD LENGTH 

^^HSOS 4. GM2900272 

O 

\ 


P00F5 

7FFF 

X 






G^32 

P00F6 

6625 



STA- (FOUR),Q 

^‘VHSOS 4.1^ M2900273 



0 m.3 %5 

P00F7 

EOEB 



LDQ- SYDIR 


M2900274 


o 

043-r 

POOF8 

F8F4 



ADQ^ SDPRO 

SET LIMITS FOR INITIAL LOAD 

M2900275 


0 435 

PG0F9 

COCO 

X 


LDA =XPSIZ\/4 

PROTEC LOAD LENGTH 

^^MSOS 4.0M29G0276 



POOFA 

7FFF 

X 






0436 

POOFB 

6625 



STA- (FOUR),Q 


M2900277 


Q 

0437 

POOFG 

CQFB 



LDA- $FB 

GET STANDARD LIST 

M29'3 0 27 8 


0 43 8 

POOFD 

5 40 0 

X 


STA4 AUTFB 

SAVE IN TRVEC 

M2900279 

1 I 



PO QFE 

7FFF 

X 






0439 

POOFF 

COFA 



LDA- $FA 

GET STD PUNCH 

M290 0280 


/ "l 

0t4 j 

-PGIDO 

640 0 

X 


5TA+ AUTFA 

SAVE IN TRVEC 

' M2900281 

o 



PQIOI 

7FFF 

X 






0441 

P0102 

CQF9 



LDA- $F9 

GET STANDARD INPUT 

^«MSOS‘ 4. 0H29Q0282 



0442 

PO-10 3 

6 4 0 0 

X 


STA+ AUTF9 

SAVE IN TRVEC 

M2900283 


/ 'l 


Pul04 

7FFF 

X 





^ o 


G 4 4 0 

PQlfl 5 

802F 



ADD- $2F 

ADO ASCII MODE 

^^HSOS .,.GM29u0284 


0 4 4 -t 

P01C6 

6 40 0 

X 


STA lUP 


-^MSOS 4. GH 290 0 2 85 




P01D7 

7FFF 

X 






o 

0 h4 5 

POIG 8 
P0i09 

D4U fl 

7FFF 

X 

X 


STA INPTV4 

SET UP FOR JOB PROCESSOR INPUT 

^^MSOS 4. 0M290Q286 

, o 

o 

0 4-47 





DISABLE THE 1576-1 

STALL ALARM INTERRUPT, IF PRESENT 

H29Q 0288 

■ o 


0449 

POlOA 

COOO 

X 


LDA =XE157d1 


M290C290 




POICB 

7FFF 

X 






o 

0 4 5 0 

PGIOC 

B3 11 



EOR- LP'ISK + tS 

IS THE STALL PRESENT IN THE SYSTEM 

M2900291 

■ o 

0 451 

POIOD 

0104 



SAZ TIM3RT 

NO 

M2900292 


0 45 2 

POIGE 

E4G0 

X 


LDQ4 £15761 

YES, DISABLE THE INTERRUPT 

M2900293 




POIDF 

OlOB 

X 






0453 

P Q 11 0 

QA05 



ENA 5 


M2900294 

■ o 


0 45 4 

POlll 

0 3 50 



OUT SREJ-^ 


H290O29 5 

o 









o 

o o 









. o 

o 

_ - 



... 





_ _ , . 


. , 




SPACE 


PAGE 15 


OATE: 01/27/99 



H290 0297 


^'^‘HSOS .:t.i»^M2gQ 0299 
»-KSOS 4. 1«^^^M290 0 30 0 
*^MSOS A.l’f^MagOO 301 
^^MSOS 4.1^^M290 0302 
^^MSOS -r.l^^M290 0303 
♦-^MSOS 4.i‘*^^M29Q 030 4 
^^HSOS 4,1^»M2900305 
^^HSOS_ 4.1"^^M29Q 0 306 
’'•^MSOS 4.1=*‘^-M29G 030 7 
»^MSOS -..i'^»H290G308 
=^^MSOS 4.1^^M29QQ309 
M29003iC 
M2900 311 
^^MSOS 4.1«^^M2900312 
’^^HSOS 4.1^^H290fl313 
M29Q 0314 

»^MSOS 4.i»^M290031 5 
^^MSOS 4.i»^H2900316 
^•^MSOS 4.1*^M2900 317 
»^MSOS ,4,1'^^M2900318 
»fHSOS. 4.i’^^M29C0319 
^^MSOS '4.1^^M2900320 
♦^HSOS 4.i^^M2900321 
^^‘MSOS 4.1’^^M29S0 322 
;',»^HSOS 4.1^^M2900323 
:'^^HSOS 4.i*^^H2900 324 
’^■^HSOS 4.1’^^M29Q0325 
^^HSOS 4.1’f»M29a 0 325 
77 M29G0327 

M290 0 328 
H29Q 0 329 
^^MSOS .4.1^^M29Q 0330 
^^HSOS 4.l»^M29a0331 
»^HSOS 4.1’f»M29flQ332 
^^HSOS 4.1’^^M2900333 

»»HSOS 4.1^^M290 0334 

♦=»^MSOS 4.1^^H29Q0335 
^=*^HSOS 4.1^^M290 0336 
»^HSOS 4.i^^M29QQ337 

»*MSOS 4.1»^M2900338 
^‘^MSOS 4.1*^‘M290 0339 
»^MSOS 4.1^^H290034G 


r„, 

o 

o 

o 

c 

o 

c 

ri 

“V,.* 

o 

o 

o 

o 

o 

c 

c 

o 



SPACE 


PAGE 16 


OATES 01/27/99 


1573 TIMER STARTING CODE 


Piil2A E^OO 
P012B 7FFF 
P012C ODFE 
P012O CQ32 
P012E 18F8 


P012F 
P0130 
PC 131 
PC 132 
PC133 
PD134 
PC135 
PQ136 
P0137 
PG138 
P0139 


£<+0 0 
7FFF 
0 A3G 
050(3 
A4Q0 
7FFF 
G9D2 
6400 
0134 
0 40 0 
18ED 


P013A 
PO 13B 
P013C 
PD15D 
PQ13E 
PG13F 
PG14Q 
P0141 
PGi42 
PO l‘+3 
PO 14 4 
P0145 
P0l4fa 
P0l4 7 
PQ148 


E4Q0 
0130 
0 A27 
0500 
A400 
0137 
09 p 
6 40 0 
013F 
Q4Q0 
033C 
E4 0 0 
7FFF 
C4i3 0 
7FFF 


P0149 18DD 


P014A E4G0 
P014B 7FFF 
P014C 0A06 
P014D 1309 


POItE E400 
P014F 7FFF 


T15 73 LDQ+ E1573 
INQ -1 

LDA- ONEBIT+15 
JMP^ TOUT 


function CODE 


$8000 = ENABLE 
GO TO OUTPUT 


1572-1 L3T STARTING CODE 


T72LST LDO+ F15721 

ENA $3C 
II N a 
AND+ H15721 

INA 2 
STA+ H15721 

EIN 0 
JHP^ TOUT 


FUNCTION CODE 

AND MASK FOR SRG FUNCTION BITS 


2 = ENABLE INTERRUPT 
RESTORE HISTORV WORD 


GO TO OUTPUT 


1572-i SRG STARTING CODE 


T72SRG LDQ+ £15721 

ENA $27 
IIN 0 
ANO+ H15721 

INA 310 
STA+ H15721 

EIN 0 
OUT REJ-^ 
LDQ+ 015721 

LDA4 015721 

EXT 015721 
JMP4 TOUT 


FUNCTION CODE 

AND MASK FOR LSI FUNCTION BITS 


$10 = ENABLE INTERRUPT 
RESTORE HISTORY WORD 


DATA CODE 

REGISTER COUNTS 

SRG TIME BASE/CLOCK FREQ. 
GO TO OUTPUT 




36-^-4 COMMUNICATIONS MUX. TIMER 
LDQ+ EQ3644 FUNCTION CODE 


ENA 6 
JMP- TOUT 


6 = ENABLE CLOCK 
GO TO OUTPUT 

PSR 85^2236 DELETED FOR PSR 9o^ 


T10336 


10336-1 STARTING CODE 
LOQ+ E10336 FUNCTION CODE 


*^=>^MSOS 4.i^^M2900342 
»*MSOS 4.i»*M2900343 
4^MSOS ^.i-''-M290 0 344 

4^^MSOS 4.1^^M290Q345 
^^MSOS 4.144M2900346 
»^MS0S 4,1^4M290 0 347 
44MSOS 4.1^4H290D348 
«^-MSOS 4.i-^4H2900349 
»4MS0S 4.1’^^M290035Q 
’^’^MSOS 4.1’^4H2900 351 

H290 0 352 
44MSOS 4.1^^M29QQ 353 
44MSOS 4.1=^»M29u0354 

»^MSOS 4.1=»-^M29i}0355 
»4MS0S 4.1^4M29Q0 35b 

4VHSOS 4.1»’‘M2900357 
^4MS0S h.1^^H2900358 
»4MSOS 4.144H290Q359 
44HSOS 4.1*^M29Q 0 360 
^^MSOS 4.1«^-'^M2900361 
*»MS0S 4.1»*M29Q0362 

M2900363 
4^MSOS 4.1*^4^2900364 
♦-HSOS 4.144M2900 365 

44MSOS 4.14^-M290Q 36b 
4+MSOS 4.144M290 0367 

^4-MSOS 4.144M290Q 368 
44MSOS 4.i44M2930 369 
44HSOS 4.144H29Q037G 

44HSOS 4.14^M29aO 371 

■4-MSOS 4.144M29U 0372 
44HSOS 4 . i 4^M29C Q 373 
M29QQ 374 
44HSOS 4.144H2900 375 
H2900 376 
44HSOS 4,14^M29uQ377 

44HSOS 4.i4^M29u0378 
44HSOS 4.144H2900379 
77 M29DQ38Q 

M2900381 
M290G382 
M290Q383 
M290 0 384 


L. J 

C' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 




SPACE 



PAGE 17 

date: 01/27/99 



0 5 4 T 

PO 150 

C400 

X 


LDA + 

F1D336 

enable CODE 




P0151 

7FFF 

X 







0 5 45 

PG 15 2 

032E 



OUT 

REJ-^ 




UO hb 

P0153 

QOFE 



INQ 

-1 

DATA CODE 



0 5 4 7 

P0154 

C400 

X 


LDA + 

010336 

CLCOK REGISTER VALUE 




P0155 

7FFF 

X 







0 5 4 8 

P0156 

1800 



JMP^ 

TOUT 




05 49 







PSR 35*2236 DELETED, FOR 

PSR 93*3177'-. 


0 5 5 0 









^ MP 

0551 





MP17 

REAL-TIHE ADT 

CLOCK 


HP 

05 5 2 




-V- 





MP 

0 55 3 

P0157 

E4 go 

X 

MP17CK 

LOQ4 

DHICOD 

ENABLE AOT/HICRO-INT NUMBER 

HP 


P0158 

7FFF 

X 







0 55 “T 

P0159 

C400 

X 


LDA + 

TBLADR 

AOT TABLE ADDRESS 


MP 


PQ15A 

7FFF 

X 







0 55 5 

P 0 15 B 

0B06 



NUM 

$B0o 

DEFINE HICRO-INTRPT (ENH 

INSTR OMI) 

MP 

0 5 5 6 

PG15C 

E4 00 

X 


LOQ4 

EMPSRT 

RESET AND START FUNCTION 

CODE 

MP 


P0150 

7FFF 

X 







055 7 

P015E 

18 C8 




TOUT 

'A" REG NOT USED 


HP 


M 290 0 38 5 

M290C386 
M2900337 
M2900 388 

M290 0 389 
M290 0390 
MSOSM2900 391 
HSOSM 290 0 392 
MSOSM2900 393 
HSOSH 290 0 39 4 

MSOSM290 0 395 

HSOSM290 0 396 
MSOSM29QO 397 

MSOSM2900398 


SPACE 


PiiGE 18 


DATE: 01/27/99 



PROGRAHS 


M 290 u 40 0 



^^MSOS 


M 290 0 40 2 
M 29 0 0 40 3 
M29G 0 404 
i*.l^^M290Q 405 


’^^^MSOSa. 


M 29 0 0 40 7 
0M290 0 408 
M29Du 409 


»^HSOS 4.1’^^^M2900 411 
^^MSOS 4.1^^M290Q 412 
»^4SOS 4.i^-M29G04l3 
^^MSOS 4.1-^M2900414 


^^MSOS 4,1^^M2900416 
.^*MSOS 4.1«^^^M290Q 417 
^‘^HSOS 4,1»^M290 0 418 
^^MSOS 4.1«-^H2900 419 


M2900421 

M29Q0 42 3 
M 290 0 42 4 
M290 0425 
M290 0 42 6 
M2900427 
M290Q42O 
M29G0429 
H290 0430 

M 290 0 432 
M29u0h33 
M290 0 434 
M29'J 0 43 5 


M 29 do 43 7 


C' 

O 

r'\ 

V.-' 

r' ■ 

O 

o 

o 

o 

o 

o 

o 

c 

G 


SPACE 
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date: 01/27/99 



G59fl 


TIHER REJECT MESSAGE 


o 

o 

o 

o 

o 

o 


0600 P018Q 0800 REJ 
060 1 P0181 EO 00 X 
P0182 7FFF X 
0502 P0183 E2Q1 
06D3 POlBii. C20D 
060 A PQ18 5 AO 11 

0605 P0186 B032 

0606 P0187 5200 

0607 P0188 OAOO 
0508 PQ189 6400 X 

Pfll8A 0113 X 


NOP 0 

LDQ =XL0G1A 


LOQ- 1,0 
LDA- 13, Q 
AND- LPM3K+15 
EOR- ONEBIT+15 
STA- 13,0 
ENA 0 
STA+ TMRTYP 


OSlu P018R 54F4 

0611 P018C GCOQ 

0512 P018D 0000 

0613 PG18E OGCO REJH 

061^ P018F 18FC 

0616 PQ190 0006 

UdIo P0191 0196 P 


RTJ- (AMONI) 
ADC SuCCQ 
A DC 0 
ADC a 
ADC $18FC 
ADC 6 
ADC REJMSG 


0618 P0192 C3FB 

0619 P0193 0101 

0620 PD19h 18FD 

0621 PQ195 1307 


REJC< LDA-'^ REJTH 
SAZ 1 
JMP» REJCK 
JMP^ RSTRT9 


DISABLE DELAYED CORE SWAPS 
INDICATE NO TIMER 

PRINT TIMER REJECT MSG 
WAIT FOR COMPLETION 


o 

o 


062 3 P0196 5^49 REJMSG ALF 6, TIHER _REJECT 
P0197 ^+045 
P0198 5220 
PC199 5245 
P019A 4A45 
P0198 4354 


o 


O 

O 

o 

o 

r'") 


( 


M290 Q 439 


M29Q0 -+41 
^^^MSOS 4.1^^M2900 h42 

»-MSOS 4.i«^^M29Q0 443 
«-^MSOS 4.1^^M29QQ 444 
^^MSOS 4.1»^^M29Q 0 
»^MSOS 4.1»^M2900*,46 
»^MSOS 4.1^*M29G0-f47 
«^^MS0S 4.1^’^M2gQ0 448 
^^MSOS 4.i^-H29Q0449 


M29G0 451 
M290G 452 
H290 0 453 
M29Q 0 454 
M 290 0 43 5 
M290 0456 
M290 0 h5 7 

M290 0 459 
M29G Q 460 
M29Cu 461 
M290 0 -,62 


»^MSOS 4. 1'‘^H290Q4d4 


c 

o 

o 

o 

o 

C) 

o 

o 

u 

Q 

o 

o 

o 

o 


SPACE 
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date; 01/27/99 


0 b 2 5 
0626 


* 


IF SYSTEM CONTAINS A 1761-1 
CLEAR THE UNIT AND SET IT'S 


HARDWARE FLOATING POINT UM 
INITIAL OPERATING MODE 


M 29 0 0 A6 6 
M2900 A67 


052 8 

PQ19C 

C 4 OO 

X 

RSTRT9 

LDA 

E17811 


PQ19D 

7FFF 

X 



Q629 

P019E 

0822 



TRA 

Q 

06 3 0 

P019F 

BO 11 



EOR- 

$11 

0631 

POIAO 

0111 



SAN 

RSTR9A 

0632 

PfllAl 

1818 



JMP* 

RSTRIO 

0 6 3 3 

P31A2 

uDFC 


RSTR9A 

INQ 

-3 

G 63 ‘T 

P01A3 

OA 01 



ENA 

1 

0 63 5 

P01A4 

03 05 



OUT 

HFPREJ-^ 

0636 

P01A5 

C400 

X 


LDA 

F17S11 


POIA 6 

7FFF 

X 



0637 

P01A7 

0302 



OUT 

HFPREJ-^ 

05 3 6 

PG1A8 

1811 



JMP^ 

RSTRIO 


PICKUP 1731-1 EQUIPMENT CODE 
SAVE IN Q 

(S7FFF) CHECK FOR UNPATCHED 
SKIP IF PATCHED 
BYPASS STARTUP IF UNPATCHEO 
SET a FOR 1781-1 FSR LOAD 

CLEAR 1781-1 

PICK UP INITIAL OPERATING FUNCTION 

OUTPUT TO UNIT 
CONTINUE 


M29Q0469 

M290 0 470 
M290 0 471 
M 290 0 472 
M2900473 
M290 0 474 
M2900-47S 
H290Qh76 
H2900 h77 

M29U 0 47 8 
H2900479 


054-0 PQ1A9 OROfl 
0 d41 

Gb4i PQIAA 64 F 4 
0o41 POIAB OCCO 
0541 POIAC uQOO 
PGIAD QOOQ 
0541 POIAE 18FC 

0541 PGIAF 0007 
P0180 01B2 P 

0542 P0181 1803 


HFPREJ NOP 0 

F WRITE £FC, 0,HFPRJMtHFPRJL,A,0,C,I 


JMP^ RSTRIO CONTINUE 


M290 0 481 
M2900482 


M2900-+83 


0644 PC1B2 5137 
PQ1B3 3831 
P01B4 2031 
P0185 2052 
P01B5 45hA 
P01B7 4543 
PG1B8 5420 
Qo45 0 007 


HFPRJM ALF 1781-1 REJECT^ 


HFPRJL EQU HFPRJLC ^-HFPRJM) 


M29Q0 485 


M290 0 486 


SPACE 


^AGE 21 


date: 01/27/99 



o 

0&47 


^ PRINT THE SYSTEM PSR LEVEL AND DATE OF BUILD 


G 

0549 

P0189 

C800 

RSTRIO 

LDA 

MONTH 


POIBA 

0129 





0550 

POIBB 

8011 


EOR- 

LPM3K+15 

O 

0o51 

PulBC 

0111 


SAN 

1 

0652 

POIBD 

1817 


JMP^ 

PSRMSG 


0 65 3 

POIBE 

C800 


LDA 

MONTH 



POIBF 

0124 




o 

0o5 4 

POICO 

QC20 


ENQ 

$20 

0 5 5 5 

POICI 

GFE8 


LLS 

8 


0 65 6 

PO 1C2 

092F 


INA 

$2F 


055 7 

P01C3 

48 00 


STQ 

DATE+1 



PO 1C 4 

GOFF 



OATE+2 


0 5 5 3 

P01C5 

D 8 4 0 


STA 



P01C6 

OOFE 





055 9 

P01C7 

C8G0 


LOA 

DAY 

o 


P01C8 

one 



DATE+3 

0 5 5 0 

PQ1C9 

6800 


STA 



POICA 

00F8 





D 651 

PQICB 

C8G0 


LDA 

YEAR 



POIGC 

0119 



$2F 


D 5 5 2 

POIGO 

0C2F 


ENQ 


0663 

POICE 

0 FF8 


LLS 

8 


0 65 4 

POICF 

0920 


INA 

$20 

o 

0 65 5 

POIDO 

48 0 0 


STQ 

DATE+4 


POIDI 

0 0F5 



DATE+5 


0 D 5 5 

P01D2 

58 0 0 


STA 

O 


PO 103 

00F4 




0 5 5 0 

P01D4 

5 4 F4 

PSRMSG 

RTJ- 

{ AMONI) 


0559 

PG1D5 

0 C 01 


ADC 

SOCGl 


G 57. 0 

P0106 

0 0 00 


ADC 

0 

o : 

0571 

P0107 

00 00 

TX 

ADC 

0 

0572 

P01D8 

18FC 


ADC 

SISFC 


0 67 3 

PO 1D9 

0014 


ADC 

LSUMLV 


0674 

PO IDA 

02B5 

P 

ADC 

SUMLVL 


0 5 76 

POIDB 

C8FB 

LTX 

LDA^ 

TX 


0677 

POIDC 

0101 


SAZ 

AlOlM 


0578 

POIDD 

18F0 


JMP^ 

LTX 


O 


IS THE BUILD DATE PATCHED 
NO 

ADD LEADING SPACE 
ADO TRAILING SLASH 

FORM SYSTEM BUILD DATE 

ADD LEADING SLASH 
ADO TRAILING SPACE 

PRINT THE MESSAGE 


WAIT FOR COMPLETION 


o 

o 

o 

•Vw/ 


M 2900 488 


L.. 


M290U490 

^^•MSOS 4.1»^M2900 491 
’^^MSOS a.1«^^M290 0 492 
^»MS0S 4.1»^H2900 493 
^^MSOS 4.1^^M290 0 h94 

^=^MSOS 4.1^^M2900 -t95 
i^^MSOS 4.1^-M2900 496 
*^HSOS 4. l'^^M290 0 497 
«^»MS0S 4.1^^M29Q0 498 

»^MS0S A.I'^^MESOO h99 

»»HSOS 4.1^^H29005QQ 

^^MSOS 4.1^^M290fl 501 

^^MSOS A.l'^^HEgOO 502 

»^MSOS h.1^,-H290 0503 
^^’^MSOS 4.1«‘^M29D 0504 
«^^MSOS ' 4.1'^^M290 0 505 
»»MSOS 4.1¥^M2900506 

^•^MSOS 4.1^^M2900507 


^^MSOS 4.1'^^M2900509 
M290 0 510 
M29Q0511 

H 29 00 51 2 , D 

M 290 0 513 , 

M 29 0 0 514 
M2900515 

M293 0 517 . 

M29GQ518 

M29 00519 

o 


o 


o 


o 


O 



SPACE 


PAGE 22 


OATEJ 01/27/99 




» DETERHINE THE POSITION OF THE PROGRAM PROTECT SWITCH 


o 

0632 

POIDE 

U500 

AiOlH 

IIN 

0 


0633 

PfllDF 

C4QQ 

AlDl 

LDA + 

$101 



POIEO 

0101 




o ^ 

^ 0o8- 

POIEI 

6810 


STA» 

SlOl+1 

0 6 3 5 

P01E2 

C 4 Q u 

A102 

LDA + 

$102 



P01E3 

0102 





’■ OSSb 

P01E4 

681D 


STA^ 

S102+1 

1 V 

, 0 637 

P01E5 

Q30C 


TRM 

A 

‘ T 

■w' 

0688 

POlEb 

681E 


STA^ 

3M + 1 


053 9 

P01E7 

COOO 


LDA 

= NBl4oO 



P01E8' 

1400 




c 

069 G 

P01E9 

6GF6 


STA^ 

lAlCl+1 ) 

059 1 

POIEA 

EG 00 


LOQ 

=XFAULT 



P01E8 

01F2 

P 




069 2 

POIEC 

0700 


GPB 

Q 

0 

0693 

POIED 

OAOl 


ENA 

1 

0 5 9 4 

POIEE 

0821 


TRA 

M 


0695 

POIEF 

0DG6 


INQ 

6 


0696 

POIFO 

4CF2 


STQ«^ 

(A1G2+1) 


0 69 7 

POIFI 

0400 


EIN 

0 


0698 

P01F2 

4CF0 

FAULT 

STQ- 

iA102+l ) 


0599 

P01F3 

C800 


LDA 

PP-LAG 



PQ1F4 

OOAF 




o 

070 0 

P01F5 

0103 


SAZ 

HANGIT 

07 0 1 

P01F6 

0800 


RAO 

FLA3IT 



P01F7 

0 OAD 





0702 

PG1F8 

1802 


JMP^ 

GOPP 


0 7 0 3 

P01F9 

18F8 

HANGIT 

JMP^ 

FAULT 

U 

0 70 4 

PGIFA 

OlEQ 

GOPP 

SPF 

0 


0 70 5 

P01F8 

QDF9 


INQ 

-6 


0706 

PulFC 

0600 


SPB 

0 


o 


SAVE THE CONTENTS OF THE TRAP 


SAVE. THE CONTENTS OF 'H' 
SET UP RETURN 


ALLOW ONLY A PP FAULT 

IS THIS THE FIRST PASS 

NO, HANG WAITING FOR PP SET 
SET FLAG FOR SET PP MESSAGE 

GO TO RESTORE PROTECT SETUP 
WAIT FOR PP FAULT 
CLEAR PROTECT FAULT 

RETURN TO PRIOR STATUS 


O 

o 


o 

o 

o 

C) 


M290 0521 


*^MSOS 4.1*‘'^M2900 523 
50^919 ■ M290G52-+ 

50^919 M2900525 

50^919 M29DG526 

50^919 M29D0527 

50^919 H2900528 

50^919' M29S0 529 

50^919 M29Q0530 

50^919 M2900531 

50^919 M2900 532 

' 50^919 M2900533 

50^919 M2900 534 

50^919 M29j 0 535 

^^MSOS 4.1«^-^M2guQ536 
50^919 M29Q 0537 

51^919 M2900 538 

50-919 H2930539 

M29005AQ 

*^MSOS 4.i^^‘M290 0 541 
M2900 542 

^^MSOS 4.1'^»H2900543 
»^MSGS 4.1»^M290 0 544 
’^-MSOS 4.1’^-M2900 545 
^-'^-MSOS 4.i^^‘M2900546 
50^919 H290Q547 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


SPACE 
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date; 01/27/99 



0 7 0 3 

PQIFD 

GOOD 

SlOl 

LDA 

= N0 



PO IFE 

00 00 




o 

07Q9 

POIFF 

6CEQ 


STA» 

( AlQl+1 ) 

0710 

P0 20 0 

COGO 

S1Q2 

LDA , 

=N0 



PO 201 

0 0 00 





0711 

P0202 

6CE0 


STA^ 

(A1Q2 + 1 ) 

r~\ 

0712 

P0203 

CQQG 

SM 

LDA 

= NQ 



P02G4 

0 0 00 





0713 

P0205 

0821 


TR A 

M 


U714 

P020o 

0 40 0 


EIN 

0 

,r-*V 

0 7 1 5 

PQ207 

C8G0 


LDA 

P PFLAG 



POZuci 

0 0 9 B 





0716 

P02G9 

Oili 


SAN 

S103 


0717 

P02G A 

1812 


JMP^ 

OUT 10 


0718 

P020 B 

C8D0 

S10 3 

LDA 

FLAGIT 



PO 20C 

0098 





0719 

P020D 

OlOE 


SAZ 

OUTID 


0 72 G 

P02GE 

Q8‘+4 


CLR 

A 


072 1 

P02GF 

6800 


STA 

P FFLAG 



PO 21U 

0 093 





C723 

P0211 

54F4 


RTJ- 

i AMONI) 


0 7 2 ^ 

P0212 

ocoi 


AOC 

SuCOl 


■ 0725 

PC213 

0 0 00 


ADC 

0 


0725 

P0214 

0 0 00 

PPTH 

ADC 

0 


0727 

PO 215 

18FC 


ADC 

$18FC 


0 72 8 

P0216 

0 DOC 


AOC 

12 

o 

0729 

P0217 

02C9 

P 

ADC 

PP 


0731 

PG218 

C8FB 

PPWAI T 

LDA’^ 

PPTH 


0732 

P0219 

0 101 


SAZ 

OUTPP 


0733 

P021A 

18F0 


JMP*^ 

PPWAIT 


0 734 

P021B 

18C2 

OUTPP 

JMP^ 

AIOIM 


IS THIS FIRST TIME THROUGH 


SECOND PASS 

IS THIS FIRST TIME, BUT NEED 

SKIP IF NO MSG NEEDED 
NEED TO SET PP 
SECOND TIME FLAG 


WRITE PP MESSAGE 


WAIT FOR COMPLETION 
GO WAIT FOR PP SET 


u 


u 


O 

o 

o 

o 


50-919 M2900549 

SO'^-DIO M290 0 55Q 
50^919 M290G551 

50-^919 M2900 552 

50^^919 M2900 553. 

50^919 M29Q0554 

50^919 M290Q555 

M2900556 

M2900557 
, M290 0 558 

M29Q 0 559 

^^MSOS 4.1^^M2900560 
««MSOS A.1'^'^M29Q0561 
M29Q 0 5o2 


»^MSOS i*.l'^^M290 0 56 4 
»^MSOS 4.i»’^M290Q565 
^-MSOS -. 1 »^M 29 G 05 d 6 
»^MSOS -t.l«^^M 2900567 
«f'^MSOS 4,1«^^M2900568 
’"^^HSOS L.i'^^HEgOOESg 
^^MSOS 4.1^^M2900570 

»^MSOS 4.1^^M2900572 
^-HSOS 4.i^*M2900573 
’^-MSOS A.l'^'^MZgOO 574 
^^MSOS 4.1^^H2900575 


O 

O 

/***'', 

\ ) 

o 

o 

0 

I’"’! 

1 \ 

o 

c 

o 

o 

c 

c 

c 



o 

o 

o 


^^MSOS 4.i^“-M29uO 577 


»-MSOS 4.1^^'M2900579 

»»MSOS 4.1»*M2900580 
^^MSOS 4.1^^-M2900 581 
»^MSOS 4.1»’fH29Q0582 
»^MSOS 4.1»^M29Q0583 

M2900584 

’^^HSOS 4.i«'^M2900585 
^^»MSOS 4.1»^M290058b 

»^HSOS 4.1^^H2900587 


*^HSOS 4,i’^^M29G0589 
»^MSOS 4.1^^M29Q0590 

«-»HSOS Q 591 

^^HSOS 4»1^^H29G0592 
^»MSOS 4'.1=^^M290G 593 
«-^^HSOS 4.1^^H290Q 594 
»^HSOS 4.1^^M29Q0595 
s'^M.SOS 4.1^^^2900595 
»^MSOS 4.1^^H2900597 

♦^HSOS 4.1^^M29G0599 
»^MSOS. 4.1^^M29u 0800 
^^MSOS 4.1^^M29006Q1 
»^HSOS 4.i«-»M29flfl 602 
«^-»MSOS 4.1^^M290ti603 
^^HSOS 4.1-^'H290G604 
■»^HSOS 4. l^^H29Q 060 5 

"^^HSOS 4.1’^^M29G0607 
^-MSOS 4.1»^H290G608 
^^MSOS 4.1*‘^M2900609 

- ^*MSOS 4.i^^M2900611 
’*^-'^HSOS 4,i^=^M290G612 


O 

O 

O 

O 

o 

o 

o 

o 

© 

o 

o 

o 

o 

o 


C.-' 


r *1 



SPACE 



PAGE 25 

DATE; 01/27/99 




Q77Z 





DETERMINE THE CORE 

SIZE MODE, AND PRINT IT 


M290 0 614 

o 

Q775 

P0242 

CC63 


MODE 

LDA^ 

(ID 

CHECK MULTI-LEVEL INDIRECT 

’■^HSOS 

4.1^‘^M2900616 


0776 

P0243 

6864 



EOR^ 

13 

FOR MODE 

^^M'SOS 

4.1^^M29Q0bl7 


0777 

PQ244 

0101 



SAZ 

M32K 


^■*fMSOS 

4,i’^M29QQ 618 

o 

0778 

P02-5 

1804 



JMP^ 

M65< 


’^^MSOS 

4.1^^M29006i9 

Q7 7 9 

P0246 

COCO 


M32K 

LDA 

= XX32K 

SETUP 32K MODE 

-^MSOS 

4.i^^M29Du620 



P0247 

0 2D5 

P 








078 0 

PG243 

1805 



JMP» 

STO 


^3^MS0S 

4.i»^M2900621 


0781 

PQ249 

CO 0 0 


M65K 

LDA 

=XX65K 

SETUP 65K MODE 

^^MSOS 

4.D^^M2900622 



P024A 

02DC 

P 







0732 

PC24B 

OCQl 



ENQ 

1 


^^MSOS 

4.1^^^M2900623 


073 3 

P024C 

44E9 



STQ- 

(SE9) 

SET MODE FLAG 

-«^MSOS 

4.1=^-M2900o24 

l' '[ 
> 

0 73^ 

PQ 2hD 

68C7 


3T0 

STA^ 

MM09E 


^^MSOS 

-.i*^M2900625 


0 7 3 6 

P024E 

54F4 



RTJ- 

( AMONI) 

WRITE MODE MESSAGE 

^^MSOS 

a.i^^^M29uQo27 


0 7 8 7 

PO 24F 

CGOi 



ADC 

$ tj C 0 1 


’■^MSOS 

4.1^^ ^^M290Q628 

1 1 

0 78 8 

P0250 

G 000 



ADC 

0 


^^^MSOS 

4.1^^M290Q629 

\ } 

07 6 9 

P0251 

0 0 C 0 


MODETH 

ADC 

0 


- *^-HSOS 

4.1«^^M29Q 0630 


079 0 

Pfl 252 

18FC 



ADC 

S18FC 


^-MSOS 

P.1^-M290Q631 


0791 

PQ253 

0 0 0 7 



ADC 

7 


»^MSOS 

4.1^^M2900632 

Q- 

0792 

P0254 

COQO 


MMOOE 

ADC 

0 


^^MSOS 

4.1^^M29G0633 


0 79- 

P0255 

C8FB 


MOO WAT 

LOA^ 

MODETH 


’i^^MSOS 

4.1»^M29Q0635 


07 9 5 

PQ25d 

0101 



SAZ 

FILCLS 



M29DQ 636 

o 

0796 

P0257 

18F0 



JMP» 

M09WAT 

WAIT FOR COMPLETION 

^^‘HSOS 

4.1^^M2900 637 

079 7 

P0258 

COCO 

X 

FILCLS 

LDA 

=XJBFLV4 



M293 0638 



P0259 

7FFF 

X 








0 7 9 3 

P025A 

G102 



SAZ 

FILCHK - 



M29Q 0639 

o 

079 9 

P025B 

5800 



RTJ 

CL3FIL 

GO CLOSE ALL JOB FILES 


M2900640 


P025C 

0183 








0801 

P025D 

5800 


FILCHK 

RTJ 

BONES 

GO CHECK FOR FILE- ERRORS 


M29S0642 



PQ25E 

0 0 83 









0802 

P025F 

0500 



IIN 

0 

INHIBIT WHILE SETTING PRIORITIES 


M2900643 


0803 

P0260 

E849 


T1 

LDQ^ 

ATC 

LOAD Q WITH COUNT VALUE 


M29i3Q644 


080 4 

P0261 

EA49 



LDQ^ 

T,Q 

GET ADDRESS FROM TABLE 


M2900645 

D 

080 5 

PQ 2b2 

0814 



TRQ 

A 

DO NOT SET PRIORITY IF 


M290 0646 


0806 

P 0 26-3 

Bull 



EOR- 

LPHSK+15 

EXTERNAL IS UNPATCHEO 


M2900647 


0807 

P0264 

0107 



SAZ 

TIB 



M2900648 


08 3 8 

P0265 

C622 



LDA- 

(ZERO) , Q 

IF VALUE OF ADDRESS IS ZERO 


M2900649 

C) 

08 0 9 

P0266 

0107 



SAZ 

SETPF 

TABLE IS COMPLETED 


M29Q0o5G 


081 G 

P0267 

C4u 0 

X 


LDA 

PC ORE 

GET CORE DRIVER COMPLETION PRIORITY 

M2900651 



P0268 

7FFF 

X 








0811 

P0269 

A u 06 



AND- 

LPMSK+4 



M290G652 

O 

0812 

P026A 

B622 



EOR- 

(ZERO),Q 

AND 


M29GC653 
M290 0 654 

0813 

P026B 

6622 



STA- 

(ZERO) , Q 

STORE BACK INTO REQUEST 



031- 

P026C 

D830 


TIB 

RAO^ 

ATC 

CONTINUE SETTING PRIORITIES 


M290 0 655 


0815 

PQ260 

18F2 



JMP^ 

T1 



M2900656 


o 


l:' 

O 

O 

O 

Q 

{'^'\ 

V-*' 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


SPACE 
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DATE: 01/27/99 


PQ26E 

P026F 

P027G 

P0271 

P0272 

P0273 

P0274 

P0275 

P0276 


CO 00 . 

7FFF 

BOll 

ulll 

1829 

OCIF 

D814 

OFCB 

0 8 74 


P0278 

PQ279 

P027A 

P027B 


PG27C 
PQ27D 
P0 27E 
PQ27F 
P028Q 
PQ281 
P0282 
P0283 
P028-+ 
Pfl285 
P0286 
P0287 
P0288 

P0289 
P0 28A 
P028B 
PQ28C 
P0280 
PQ28E 
PQ 28F 

PO 290 
PC 291 

P0292 

P0293 

P0294 

P0295 

P0296 

PG297 

P0298 


X SETPF 
X 


SPF 

3PF1 


P0277 08C3 


0 1 42 
OOFE 
18F9 
GBOC 


0A20 
681D 
0500 
9400 
7FFF 
0133 
0102 
OICO 
1817 
C815 
84 0 0 
7FFF 
08C3 

GOOD 
04 OG 
7PFF 

6803 

6804 
C4 QO 
0 0 0 0 
0 2 8F 
6400 
0 0 0 0 
0291 
C8FE 
AOOO 
0102 
Q9FE 
18F3 
0803 
C802 


SPF5 

V- 


X RSETl 
X 


RSET2 


X RSET4 
X 


P lRSEF 


P SRSET 


RSET6 


CHECK IF MEED TO 

LDA =XP18ECM 

EOR- LPH3K+15 
SAN SPF 
JMP^ TIAA 
ENQ 31 
TRO A 
ALS 11 
EAQ A 

BITS 0-8 OF A GO 

BIT 10 SPECIFIES 

NUM $0BC3 

WPR A 

SQZ SPF5 

INQ -1 

JHP^^ SPFl 

NUM SOBOC 

WANT TO RESET UPR 

FETCH A^J3 RESTORE 


PAGE FILE 


EXTENDED CORE^ STORAGE 


FETCH EXTENDED CORE POINTER 


SKIP IF ECM IN THE SYSTEM 

SET LAST PAGE FILE ADDRESS 

PAGE FILE SELECTED. BITS 11-15 
VALUE SET . BITS 0-8 
INTO PAGE FILE SPECIFIED BY BITS 
FILE 0 OR 1 0 FOR PAGE FILE 

HARO CODE ENHANCED INSTRUCTION 
SET UP THIS PAGE FILE 
SKIP IF ALL FILE ENTRIES SET 


M 290 0 65 8 
M29Q0659 
M29QQ66a 


11-15 OF 
ZERO 


ENA S20 
STA^ PFCNT 
IIN 0 
SUB P18HXP 


CONTINUE SETTING PAGE FILES 
SET PAGE NODE TO -ZERO 
ER CORE IN CASE OF PARITY IN MQS MEMORY. 
MILL CLEAR ANY PARITY AND NOT 'CHANGE UPPER 
BIAS TO FIRST 65K OF UPPER CORE 


MINUS MAXIMUM PAGE IN SYSTEM 


SAM 

SAZ 

SPE 

JMP^ 

LDA^ 

EOR 


RSET2 

RSET2 

0 

TIAA 

PFCNT 

P18PGA 


SKIP IF NOT END 
SKIP IF NOT done 
CLEAR PARITY INT 


STATUS 


BRING 


PAGE ADDRESS BITS 10-15 


NUM $0BC3 
WPR A 

LDA- LPMSK-Hl 

EOR P18ADD 

STA^ LR3ET 
STA^ SRSET 
LDA+ OuOO 


HARO CODE ENHANCED INSTRUCTION 
SET UP THIS PAGE FILE 
$7FF LAST ADDRESS IN 2K BLOCK 
OR IN BLOCK ADDRESS 


EQU LRSET(^-l) 

STA+ aooo 

EQU SRSET (»-l) 
LDA^ SRSET 
AND- LPM3K+11 
SAZ RSET5 
INA -1 
JMP^ RSET4 
RAO» PFCNT 
LDA^ PFCNT 


SAVE 2K ADDRESS ONLY 


M290 

M290 

M290 

M293 

M290 

M298 

M290 

M290 

M290 

M290 

M290 

M290 

M290 

M290 

M293 

M290 

C0REM29G 

M290 

M290 

M29i 

M29Q 


0661 
0662 
0 663 
0 66 4 
0 66 5 
0 666 
0 667 
0668 

0669 

0670 

0671 

0672 
0675 
0 674 
0675 
0675 

0677 

0678 
067? 
0 68 0 
0681 


M29u 0 682 
M 29 00683 
M293 0684 
M2900685 
M2900685 
M2900687 

M293 0688 
M2900689 
M2900690 
M2900691 

M2900692 
M2900 693 
M2900694 

M290Q&95 

M2900696 


M290 

M290 

M290 

M293 

M290 

M290 

M290 

M290 


0697 

0698 

0699 
0 700 
0 701 
D702 

0703 

0704 


SPACE 


PAGE 27 


DATE: 01/27/99 


o 


OBbi* P0299 18E5 RSETl M293 0 70 5 

0Bo5 P029A 0000 PFCNT NUH 0 M2900706 


{■’ ; 

o 

r 

: O 

^ . 


O 

o 

Q 

' O 


O 






o 

o 


■ o 



Qi 

o 



o 

o 

Q 

o 

u 

o 

o 

o 

o 

o 


r-\ 



SPACE PAGE 28 DATE: 01/27/99 


085 7 

PQ29B 

0 4 0 0 


TIAA 

EIN 

0 




M290 0 70 8 

0 858 

P029C 

0 AOO 



ENA 

0 



»^MSOS 

4,l>f4H290 07D9 

0 8 59 

P029D 

6^00 

X 


STA 

HIBX 

, CLEAR 

MIP.RO AND : 


M29Q 0 710 


P029E 

00 50 

X 








037 0 

P029F 

6400 

X 


STA 

EFLOCK 

LOGGER LOCKOUT FLAGS 

«-^MSOS 

‘-,1’^^M290 0 711 


PO 2A0 

0 0 52 

X 








CS71 

P02A1 

1800 



JMP 

TOIDLE 

GO TO 

IDLE EXIT 

’‘^MSOS 

4.1--M29G0 712 


P02A2 

FD71 









0 873 

P02A3 

0 0 01 


PPFLAG 

NUM 

1 



-^^MSOS 

4.i^'--N29QG7l4 

087^- 

P02AA 

0 0 0 0 


FLA GIT 

NUH 

0 



^^MSOS 

A.l'^^-Mzgoo 716 

087 6 

P0 2A5 

82A6 

P 

11 

ADC 

(12) 



^^MSOS 

4.1^^M2900717 

0877 

P02A6 

02A7 

P 

12 

ADC 

13 



-^MSQS 

4.i>^-M29G0 718 

0 878 

P02A7 

7F9C 


13 

NUM 

S7F9C 



»’^MSOS 

4. 1^^M29Q0719 

0679 

PQ2A8 

e 000 


SAVID 

NUM 

0 



^^MSOS 

4.1»¥M2900 720 

0881 

PG2A9 

GOOD 


ATC , 

NUM 

0 

INDEX 

FOR TABLE 


M29G 0 72 2 

0832 

P02AA 

7FFF 

X 

T 

ADC 

OUTPUT 




M 290 0 72 3 

0883 

PQ2A8 

7FFF 

X 


AUC 

SPA3E4 




M290 0724 

088w 

PQ2AC 

7FFF 

X 


ADC 

NOG30A 




M290 0 725 

0865 

P02AO 

7FFF 

X 


ADC 

REL 




M29 0 0 726 

0 886 

P02AE 

7FFF 

X 


ADC 

SCH 




M29 j 0 72 7 

0887 

P02AF 

•7FFF 

X 


ADC 

PTMALC 




H 290 0 72 8 

0683 

PO 2B0 

7FFF 

X 


ADC 

PTNREL 




M290Q729 

0889 

PO 2B1 

7FFF 

X 


ADC 

SPCEV4 




_M2g0Q730 

0890 

P02B2 

7FFF 

X 


ADC 

RDPTV4 




M29 0 0 731 

0891 

PQ2B3 

7FFF 

X 


ADC 

OUT'^VA 




M290 0 732 

0892 

P02Ei+ 

0 0 22 



ADC 

ZERO 

THIS 

IS USED TO INDICATE THE END 


M2900733 


SPACE PAGE 29 DATE: Gl/27/99 


0 b 9 4- 

P02B5 

ODOA 


SUML^L 

NUN 

SGDQA 



M290 0 755 

089^ 

P02B6 

4D53 



ALF 

10,M5O5 5.0--PSR LEVEL 



M290G736 


PQ2B7 

4F53 









P02B8 

2035 









P02B9 

2E30 









P02BA 

2020 









PG2BB 

50 53 









P02BC 

5220 









P02BD 

4C4-5 









PQ2BE 

56 45 









P02BF 

4C20 








Q696 

PQ2C0 

20 31 



NUM 

$2031 FOR PSR SUMMARIES 

OVER 10 0 


, ' M2900737 

G89? 

P02C1 

7FFF 

X 


ADC 

SYSLVL SYSLVL ISC2 LEAST 

SIGNIFICANT 

DIGITS 

M2900738 

0898 

P02C2 

20 20 


DATE 

ALF 

6 t 


^^MSOS 

4.i*^M29G0739 


P02C3 

20 2Q 









P02C4 

20 20 









P02C5 

2020 









PQ2C6 

2Q2Q 









P02C7 

2020 








0899 

PC2C8 

20 GO 



NUM 

$2000 



H2900740 

C90 0 


0014 



EQU 

LSUMLVl »-SUML VL) 


-^MSOS 

4.1^i‘»M2900741 

0 9 0 2 

P02C9 

20 OD 


PP 

NUM 

$20 00 



M290 0743 

09 0 3 

PG2CA 

5345 



ALF 

10, SET PROGRAM PROTECT 


^^MSOS 

4.i^^M2900744 


P02CB 

542 0 









P02CC 

5052 









PQ2CD 

‘^F47 









P02CE 

52 41 









P02CF 

4020 









PO 2D0 

50 52 









P02D1 

4F54 









PG2D2 

4543 









PC2D3 

5420 








090^+ 

P0204 

2Q OO 



NUM 

$20 00 


’^^MSOS 

4.1’^^M2900745, 

090 6 

PQ205 

GDGA 


X32K 

NUM 

$Q30A 


^^HSOS 

4.1^^M29QQ747 

09 0 7 

P02D6 

3332 



ALF 

i+,32K MODE 


«^^HSOS 

^.i^^H2900748 


PG2D7 

4820 









P02D8 

4 0 4F 









P02D9 

4 4 45 








09 J 8 

PQ2DA 

ODOA 



NUM 

$OOOA 


^^HSOS 

4.1^^1M2900 749 

G9 0 9 

P02DB 

20 00 



NUM 

$2000 


^*HSOS 

4.i»^H290075D 

0911 

P02DC 

ODOA 


X65K 

NUM 

$0D0A 


^->MSOS 

h.1^’M2900 752 

0912 

P02UD 

3635 



ALF 

4,65K MODE 


^^MSOS 

h.1»^M2900753 


P020E 

4B20 









PQ20F 

404F 









PO 2E0 

4445 




. ^ 




0913 

P02E1 

ODOA 



NUM 

$0D0A 


^^MSOS 

h.1^^M29G0754 

0914 

P02E2 

20 GO 



NUM 

$2000 


^»MSOS 

4.i^^M290 0 755 

0 915 

P02E3 

7FFF 

X 

MONTH 

ADC 

SYSMON 


^^MSOS 

4.1«^^M2900757 

0917 

PD2E4 

7FFF 

X 

DAY 

ADC 

SYSOAY 


’•^MSDS 

i*.l*^^M290 0 75 8 


r--' 

\ 

SPACE PAGE 30 DATE: 01/27/99 

O 

0913 PQ2E5 7FFF X YEAR ADC SYSYER ^^MSOS A . 1 29 0 0 75 9 

o 

o 

r^ 


C) 


o 


SPACE 


PAGE 31 


ri 



092 0 




SUBROUTINE TO GHE 


0922 

P02E6 

0800 

BONES 

NOP 

0 


0923 

P02E7 

C8 61 


LDA» 

F5PNT 


0924 

P02E8 

90 11 


SUB- 

LPM3K+15 


0925 

P02E9 

0111 


SAN 

1 

0926 

P02EA 

ICFB 


JMP^ 

(BONES) 


0928 

P02EB 

QCQQ 


ENQ 

0 

G 

0929 

P02EC 

5800 


RTJ 

HE3SAG 



P02ED 

0 0 EC 





0930 

P02EE 

C400 X 


LDA + 

ADRFHS 



P02EF 

7FFF X 




c 

0931 

P02F0 

68 54 


STA^ 

SECTOR 

0932 

P02F1- 

CC57 

BONESO 

LDA^ 

(F3PNT) 


0 93 3 

PQ2F2 

0900 


INA 

0 


0934 

P02F3 

0114 


SAN 

BONES 1 


093 5 

P02F4- 

OCOl 


ENQ 

1 

■J 

0936 

P02F5 

5800 


RTJ 

MESSAG 



P02F6 

0 QE3 





0937 

PQ2F7 

IGFE 


JMP«^ 

( BONES) 


0938 

P0 2F8 

0 8 42 ■ 

BONESl 

CLR 

Q 


0939 

P02F9 

^+853 


STQ^- 

ACCUM 


09 4 0 

P02FA 

QFE9 


LLS 

9 


09 41 

P02FB 

QFC7 


ALS 

7 

o ■ 

0 9 42 

P02FC 

484E 


STQ^ 

LUENTL 

0943 

PQ2F0 

68 7A 


STA- 

MMLU 


0 9 4‘t 

P02FE 

E8 4A 


LDQ^ 

FSPNT 


0945 

P02FF 

C201 


LDA- 

1,Q 

r’"A ■ 

0 3 4 6 

PC 30 0 

6843 


STA^ 

BGSGPL 


0 9 4 7 

P0301 

C202 


COA- 

2, a 


■ 0948 

P0302 

68 4B 


STAL 

F3ENT0 


0949 

P0303 

GDG4 


INQ 

*+ 

0 

095 0 

P0304 

4845 


STQ-^ 

F3LUPT 

0951 

PQ3G5 

0116 


SAN 

BONES2 


0952 

P03u6 

C842 


LOA- 

FSPNT 


0 953 

P0307 

8843 


ADD^ 

LUENTL 

o 

0954 

P03Q8 

6840 
0 844 


STA* 

FSPNT 

0 95 5 

P0309 


CLR 

A 


0 95 6 

P03CA 

6842 


STA^‘ 

ACCJM 


Q 9 5 7 

P03uB 

1825 


JMP-^ 

80NES7 


O 


O 

o 

o 


DATES Jl/27/99 


K ALL FILE MANAGER SPACE THREADS 


H290Q761 


IS THERE A FILE MANAGER IN THIS SYSTEM 
YES 

NO, RETURN 


PRINT INITIAL MESSAGE 


INITIALIZE THE LIBRARY UNIT SPACE ADDRESS 

GET FSLIST POINTER 

IS THIS THE ENO OF THE LIST 

NO 

YES, PRINT FINAL MESSAGE 


AND RETURN 

CLEAR LU AVAILABLE ACCUMULATOR 
SHIFT LU ENTRY LENGTH INTO Q 
SHIFT LU NUMBER INTO A 
SAVE LU ENTRY LENGTH 
SET UP LU FOR READ 
GET LIST POINTER INTO Q 
GET START OF FILE SPACE POOL 
ANU SAVE IT 

GET NUMBER OF AVAILABLE SECTORS 
AND SAVE IT 

INCREASE POINTER AROUND HEADER WORDS 
AND SAVE AS LU ENTRY .POINTER 
SKIP IF FSLIST HAS BEEN SET UP 
GET POINTER TO CURRENT LU ENTRY 

INCREMENT IT BY LENGTH OF THE ENTRY 
AND STORE IT AS THE CURRENT LU ENTRY POINTER 

CLEAR ACCUMULATOR 
GO PROCESS NEXT LU 


M2930763 
M29D076R 
M293 0755 
M290 0766 
M290Q767 

M29QQ769 
M29] 0770 

M29Q0771 

M29Q G 772 
M29Q0773 
M290Q774 
M29Q0 775 
M290 0 776 
M2900777 

M29Q 0778 
H29GQ779 
M290Q78G 
M2900 781 
M 29 00 78 2 
M2900783 
H 2900784 
H29G0785 
M29Q0 785 
M29J 0787 
M29D 0 788 
M29a0789 
M290Q790 
H293 0 791 
M2900792 
M 2900793 
M2900794 
M290Q795 
M290 0795 
M2900797 
M2900798 


c; 

o 

o 

o 

c 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 



SPACE 


PAGE 32 


0959 

0960 
0951 
0962 
0 9 5 3 
0 95 H 
0 9 55 
0956 
0 9 5 7 
0958 
0969 
u97 0 
097 1 
0972 
097 5 
G97U 
0975 
0 976 

0977 

0978 
u9 79 
0 98 0 

0981 

0982 
09 3 3 
0964 
0985 

0936 

0937 

0988 

0989 
099 0 

0991 

0992 

0993 

0994 
0 99 5 
0 99 6 


PQ3CC 

C83F 

BONE52 

LDA^ 

BGSCPL 

PQ3DD 

OlOF 


SAZ 

80NES3 

P03GE 

5858 


RTJ^- 

RDMA5S 

PG30F 

C344 


LDA^ 

MMBUFFf 2 

PO 310 

683F 


STA» 

BLKSIZ 

P0311 

8838 


ADO^ 

ACGUH 

PQ 312 

683A 


STA^- 

AGCJH 

P0313 

C83F 


LOA» 

MMBJFF+1 

P031-^ 

9837 


SUB^ 

BGSCPL 

P0315 

0111 


SAN 

BONES6 

P0 316 

18 6F 


JMP^ 

ERROR 

P0317 

C838 

B0NE36 

LOA^ 

MMBUFF+1 

P0318 

6833 


STA^ 

BGSCPL 

PQ319 

C838 


LDA» 

MHBUFF 

P031A 

68 34 


5TA^ 

T H3PNT 

P031B 

5817 


PTJ^ 

ANATHO 

PO 31C 

18EF 


JHP^ 

BDNES2 

P031O 

C82C 

0ONES3 

LDA* 

FSLJPT 

P031E 

982A 


SUB^ 

FSPNT 

P031F 

982B 


SUB^ 

LUENTL 

P0320 

0137 


SAM 

B0MES4 

P0321 

C82B 


LDA» 

ACCUM 

PG322 

982B 


3UB^ 

FSENTO 

PQ323 

0101 


SAZ 

BONES 5 

P0324 

18 61 


JMP- 

ERROR 

P0325 

C824 

B0NE35 

LDA^ 

FSLUPT 

PO 326 

6822 


STA^ 

FSPNT 

P0327 

18 09 


JHP^ 

B0NES7 

P0328 

CC21 

B0NES4 

LDA^ 

(FSLUPT ) 

P0329 

6825 


STA^ 

THQPNT 

PQ32A 

D81F 


RAO- 

FSLUPT 

PG32B 

CCIE 


LOA^ 

(FSLUPT ) 

P032C 

6823 


STA’-^ 

BLKSIZ 

PU32D 

D81C 


RAO^ 

FSLJPT 

P032E 

58 04 


RTJ^ 

ANATHO 

PG32F 

18EO 


JMP^ 

BDNES3 

P0330 

0820 

BON E3 7 

RAO^ 

LU'43 

PC331 

18BF 


JHP^* 

BONES 0 


DATE: 01/27/99 


GET POINTER TO NEXT FILE SPACE POOL HEADER 
IF IT IS ZERO WE ARE DONE WITH SPACE POOL 
READ HEADER 
GET BLOCK SIZE 
AND SAVE IT 
INCREMENT ACCUMULATOR 

BY THE SIZE OF THIS BLOCK 
GET POINTER TO NEXT HEADER 
DOES THE THREAD POINT TO ITSELF 
NO 

YES , ERROR 

SAVE HEADER POINTER 
GET THREAD POINTER 

AND. SET UP TO ANAL'IZE IT 

GO^GET^NEXT^HcADER AND SET IT UP FOR ANALYSIS 

'■°*SUOTRACT^POINTER TO FIRST WORD FOR THIS LJ 
SUBTRACT LENGTH OF THIS LUS ENTRY 
IF NEGATIVE SET UP TO ANALIZE NEXT CORE THREA 
GET OUR TOTAL 

SUBTRACT THEIR TOTAL 
SHOULD BE EQUAL 
NOT EQUAL, ERROR EXIT 
GET CURRENT LU POINTER 

AND USE IT AS HEADER POINTER FOR NEXT ENTR 
GO ANALIZE NEXT LUS ENTRY 
GET THREAD POINTER 
AND STORE IT 
INCREMENT LU POINTER 
GET THIS THREADS BLOCK SIZE 
AND SAVE IT 
INCREMENT LU POINTER 
GO ANALIZE THREAD 
GO SEE IF WE ARE DONE 
INCREMENT THE LU COUNT 
AND CONTINUE 


M29008QO 
H29008Q1 
M290 0802 
M29Q03Q3 
M 290 080 4 
M293 0805 
M 29 0 0 8 0 6 
M2930807 
M29008Q8 
M29Q 0809 
M2900810 
M2g008il 
M 290 0 812 
M2900813 
H 2900 814 
M290 0815 
M2900 816 
M293 0817 
M2900818 
M2900 819 
DM290Q 820 
M2900821 
M2900822 
M290 0823 
M2900 824 
M29Q0825 
YM2900326 
M2900827 
M290 0828 
M290 0829 
M2900830 
M293 0 831 
M29G0832 
M2900833 
M290 QS34 
M290 0835 
M2900336 
M290 0 837 


SPACE 


=>AGE 33 


DATES Qi/27/99 


C 


ROUTINE TO ANALIZE THREADS 


P0332 
P0333 
PQ334 
P0335 
PQ 336 
P0337 
P0338 
P0339 
P033A 
P033B 
PQ33C 
P033O 
P 0 35 E 
F033F 
PO 3hG 
P03A1 
P0342 
P 0 3 A3 
PG 3A4 
PQ3A5 


0 0 GO 
C81B 
0111 
ICFC 
C819 
8815 
6814 
9814 
0132 
0101 
18 ^9 

can 

5 8 23 
C812 
98QE 
0 111 
1843 
G8 GE 
680A 
18 ED 


ANATHD 

ANATHO 


ANATHl 


ANATH2 


ANAH3 


NUM 

LDA^ 

SAN 

jMP^ 

LDA- 

ADD^ 

STA^ 

SUB^ 

SAH 

SAZ 

JMP* 

LDA^ 

RT 

LDA^ 

SUB^ 

SAN 

JMP^ 

LD A^ 

STA^ 

JMP- 


TH3PNT 

ANATHl 

(ANATHD) 

3LKSIZ 

ACCJH 

ACCJH 

FSENTO 

ANATH2 

ANATH2 

ERROR 

THD^NT 

RDMASS 

MMBUFF 

THOPNT 

ANATH3 

ERROR 

MMBJFF 

THOPNT 

ANATHO 


ENTRY POINT 

GET THREAD POINTER 

IF NONZERO GO ANALIZE IT 
FINISHED WITH THIS THREAD^ EXIT 
GET BLOCK SIZE 

INCREMENT ACCUMULATOR 

SUBTRACT THEIR AVAILABLE SPACE FOR THIS LU 

SKIP IF NOT BEYOND IT 

SKIP IF NOT BEYOND IT 

ALREADY TO MUCH, ERROR EXIT 

GET SECTOR FOR READ 

READ UP NEXT ENTRY, IN THREAD 

GET THREAD 

DOES IT POINT TO ITSELF 
NO 

YES, ERROR 

SAVE THE NEW THREAD 
GO INCREMENT ACCUMULATOR 


M 290 u839 
M2900840 
M29G0841 
M29G08 h 2 
M2900843 
M290 0844 
M293Q845 
M29G 0 846 
M2900847 
M29J0848 
M29G0849 
M290085Q 
M29G0851 
M2900852 
M2930 853 
M2900854 
H2900355 
M 290 0 85 6 
M29C 0857 
M2900858 
M290 Q859 
M29a085Q 
M29DG861 


SPACE 


PASe 34 


DATE: 01/27/99 


c 



1022 









M290G863 



1023 





DATA 

STORAGE 



M29Q 0 864 


C) 

102 4 









M293G865 

o 

1G2 9 

»0346 

0 Q 00 


NUMRD 

NUM 

0 

ACCUMULATOR OF NUMBER PASSES 

THROUGH RDMASS 

M2900856 


102o 

P0347 

7FFF 


MAXR9 

NUH 

$7 = ~f 

PASS CYCLE LIMIT 


M29G 0867 



1027 

P0348 

7FFF 

X 

FSPNT 

ADC 

FSLIST 

FILE SPACE LIST POINTER 


M2900868 


o 

1C28 

PC 349 

0 000 


FSLUPT 

NUM 

0 

CURRENT LU POINTER 


M29U 0 869 

r-, 

lu29 

P034A 

0 0 00 


LUENTL 

NUM 

0 

LENGTH OF THIS LUS ENTRY 


M2900370 

V.-' 


1030 

PQ34B 

0 0 0 0 


BGSCPL 

NUM 

0 

POINTER TO FILE SPACE POOL 


M2900871 



1031 

P034C 

aooo 


ACCUH : 

NUM 

0 

ANALYSIS ACCUMULATOR 


M 290 087 2 



1032 

P034D 

GOOD 


FSENF 0 

NUM 

0 

WHAT THEY THINK TOTAL SHOULD 

BE 

M290 0873 

/* 

'<,^1 

1033 

P034E 

GO 00 


THOP'^T 

NUN 

0 

CURRENT THREAD POINTER 


M290 0374 

L„.-‘ 


10 3 4 

P034F 

0 0 0 0 


BLKSIZ 

NUM 

0 

CURRENT BLOCK SIZE 


M2900375 



1035 

P0350 

0 00 0 


LUNO 

NUM 

a 

CURRENT UNIT NUMBER 


M2900376 


o 

10 3 6 

P0351 

0003 


MHBU- F 

BZS 

MM3UFF ( 3 ) 

MASS MEMORY READ BUFFER 


M290Q877 

o 

1038 

PQ354 

0 0 0 0 


SECTOR 

ADC 

0 

TABLE OF SPACE POOL STARTING 

SECTORS 

M29Q0879 



lu3 9 

P0355 

7FFF 

X 


ADC 

SEGLUl 



M290 088Q 


n 

1040 

P0356 

7FFF 

X 


ADC 

BEGLU2 



M29G0dSi 


1041 

P0357 

7FFF 

X 


ADC 

BEGLU3 



M290Q382 

' 


1042 

P0358 

7FFF 

X 


ADC 

BEGLU4 



M29jG883 



10 43 

P0359 

7FFF 

X 


AOC 

BEGLU5 



M290DS84 


0 

10 4 4 

P035A 

7FFF 

X 


ADC 

3EGLU6 



M 29b 0 88 5 

^ 0 

lu t p 

P035B 

7FFF 

X 


ADC 

8EGLU7 



M 290 0 886 


10 V 6 

P035C 

7FFF 

X 


AOC 

BEGLU8 



M 290 0 88 7 ■ 



1047 

P035D 

7FFF 

X 

LENGTH 

ADC 

NUMFSO 

TABLE OF SPACE POOL LENGTHS 


M2900888 


r') 

1048 

P035E 

7FFF 

X 


ADC 

NUHFSl 



M2900889 

; 0 


1G4 9 

PQ35F 

7FFF 

X 


ADC 

NUMFS2 



M290Q890 


10 50 

P0360 

7FFF 

X 


ADC 

NJHFS3 



M2900891 



1051 

Pfl 361 

7FFF 

X 


AOC 

NUHFS4 



H 290 0892 


O 

1052 

P0 362 

7FFF 

X 


AOC 

NJMFS5 



M2900 393 


1053 

P0363 

7FFF 

X 


AOC 

NUMFS6 



M2900894 



1054 

P0364 

7FFF 

X 


AOC 

NUMFS7 



M2900895 ■ • 



1055 

P0365 

7FFF 

X 


ADC 

NJMFSa 



M 290 0896 



r') 


O 

■ o 

o 

C) 

: O 

o 

o 

o 

o 

C) 



“S,.' 


SPACE 


PAGE 35 


o 

1057 



-¥■ 




1058 



ROUTINE TO READ T: 

r‘ 

1059 




NUM 



1050 

PD36& 

0 0 00 

RDMASS 

0 


1051 

PO 3b 7 

6819 


STA^ 

SEC 


1362 

P0368 

E8E7 


LDQ- 

LUNO 

o 

1 u 5 3 

P0369 

CAEA 


LDA^ 

SECTOR, Q 

10 5 4 

PQ3oA 

9811 


SUB^ 

SEC 


10 5 5 

P036B 

0101 


SAZ 

SAMOK 


1 0 6 o 

PG36C 

0125 


SAP 

ROMO 

; V 

10 67 

PQ36D 

CAE5 

SAHOK 

LDA^ 

SECTOR, Q 

{ 1 

1056 

PQ36E 

8AEE 


AOD^‘ 

LENGTH, Q 


lCb9 

P036F 

09FE 


INA 

-1 


1070 

P0370 

9808 


SUB* 

SEC 


1071 

PQ371 

0121 


SAP 

RDM! 


1072 

PD372 

1813 

ROMO 

JMP* 

ERROR 


1079 

P0373 

59F9 

RDHl 

RTJ- 

{ AMONI) 


1075 

P0379 

0 801 


ADC 

$0 80 1 


1075 

P0375 

00 00 


ADC 

0 


lu77 

P0376 

0 0 00 

RDTH9 

ADC 

3 


10 78 

PO 37 7 

0 0 00 

MMLU 

ADC 

0 


lu79 

P0378 

0 0 0 3 


ADC 

3 

10 3 0 

P0379 

0 3 51 

P 

ADC 

MMBUFF 


1G3 1 

P037A 

0 00 0 


ADC 

0 


1082 

P037e 

0 0 00 

SEC 

ADC 

0 

o 

1039 

P037C 

C8F9 

RDWAIT 

LDA* 

RDTHQ 


1085 

P037D 

0 101 


SAZ 

iRDHIN 


1085 

PQ37E 

18FD 


JMP* 

RDWAIT 

O 

1088 

PC37F 

0175 

ROMIN 

SQM 

ERROR 


1089 

P0380 

03C5 


RAO* 

NJMRO 


109 0 

P0381 

C8C9 


LOA* 

NUHRO 

^'***'^ 

1091 

PQ382 

98C9 


SUB* 

MAXRO 


10 9 2 

PG 333 

0 121 


SAP 

ERROR 


1G93 

PO 389 

ICEl 


JMP* 

i ROMAS 3 ) 


n 


o 


u 


o 


O 


date: 01/27/99 

WORDS FROM MASS MEMORY 
SAVE THE CURRENT SECTOR 


IS THE CURRENT SECTOR IN RANGE 
YES, SAME SECTOR 
NO 

CALCULATE THE ENO SECTOR FOR THIS UNIT 


IS THE CURRENT SECTOR IN RANGE 
Y ES 

NO, ERROR 
READ THE THREAD 


WAIT FOR COMPLETION 
I/O ERROR 


HAS THE READ CYCLE SEEN EXCEEDED 
YES, ERROR 


M2930898 
M2900899 
M290 0900 
M29D09G1 
M290G902 
M2900903 
M29Q Q9Q A 
M2900905 
M290 0905 
M290 0 90 7 
M29QQ908 
M290 0909 
M29009i0 
M290091i 
M2900912 
M2900913 

M293Q915 
M290 0 916 
M29u 0917 
M290 0 918 
M2930919 
M290 0920 
M2900921 
M 29 D 0922 
M2900923 

M 290 0 92 5 
M290092D 
M290 0927 

M29Q 0929 
M 29 0 0 93 0 
M2900931 
M290G932 
M290Q933 
M2900934 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


IG 9 5 


1097 

1G98 

1100 
1111 
1102 
1103 
iio^t 
110 5 
1106 

110 8 

1109 

1110 

1112 

1113 

111 - 

1115 

lilb 

1117 

1118 

1119 

1120 
1121 


1123 

112h 

1125 


SPACE PAGE 36 DATE: 01/27/99 

^ ROUTINE TO PROCESS FILE THREAD ERRORS 


P0385 

0CC2 

ERROR 

ENQ 

2 

P0366 

5853 


RTJ- 

ME33AG 

P0387 

54F4 


RTJ- 

{AM ON I) 

P0388 

0 801 


AOC 

$0801 

PG389 

GOOD 


AOC 

0 

P038A 

0 000 

ERTH9 

ADC 

0 

P038B 

18FO 


ADC 

S18FO 

P038C 

0 0 03 


ADC 

3 

P038D 

0 3 51 P 


ADC 

MMBUFF 

P038E 

C8FB 

ERWAIT 

LDA- 

ERTHD 

PQ38F 

0101 


SAZ 

ERl 

PQ390 

18FD 


JMP^ 

ERWAIT 

PO 391 

G8BF 

ERl 

LDA^ 

MMBUFF 

P0 392 

90 0 0 


SUB 

= AYE 

P0393 

59 45 



CLJFIL 

P0 394 

0109 


SAZ 

P0395 

C8BB 


LDA^ 

MMBUFF 

P0396 

9000 


SUB 

= AN3 

P0397 

4E4F 



£R2 

P0398 

0101 


SAZ 

P0399 

18EB 


JMP^ 

ERROR 

P039A 

0C03 

ER2 

ENQ 

3 

P039B 

583E 


RTJ^ 

ME3SAG 

P039C 

ICOO 


JMP 

(BONES) 

P039D 

FF48 





PRINT ERROR MESSAGE 
READ THc REPLY 


INPUT IS COMPLETE 

IS THE ANSWER YES 
yes, clear THE FILE TABLES 
IS THE ANSWER NO 
yes, EXIT 

NEITHER, REPEAT THE .REQUEST 

PRINT LF/CR 
EXIT 


M29G0936 


M29Q 0938 
H290 0939 

M29ia9-^l 
M29009A2 
M 2900943 
M2900944 
M2900945 
H29D0945 
M2900947 

M290 0949 
M290095Q 
M2900951 

M29Q0953 
M290 0954 

M290 0955 
M2930 95b 
M2900957 

H293 0953 
M2900959 
M290G950 
M2900961 
M 290 0952 


P039E E0E9 CLJFIL LDQ- $E9 

P039F 0844 GLR A 

P03AQ 6213 STA- 19, Q 


CLEAR JOB table INITIALIZATION FLAG 
SO JOB FILES WILL BE CLEARED 


H29 00954 
M29D0965 
H 290 096 6 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 


SPACE 


PAGE 37 


DATE; 01/27/99 


li?7 




ROUTINE TO CLEAR 

ALL SYSTEM FILES 


1129 

PG3A1 

£ 0 0 0 X 

CLFILE 

LDQ =XF3LIST 




PQ3A2 

0 3 48 X 





1130 

P03A3 

ODFC 


INQ -3 

SAVE THE BASE ADDRESS 


1131 

PQ3A4 

482B 


STQ^ CLADR 


1132 

P05A5 

OAOQ 


ENA 0 

CLEAR FIDSEC 


1133 

P03A6 

6622 


STA- (ZERO), a 


1134 

PG3A7 

52 01 


STA- 1,0 

CLEAR FIBLSA 


1135 

PC3A8 

6202 


STA- 2,0 

CLEAR FIBNIX 


1136 

PG3A9 

0003 


INQ 3 

SFT UP THE BASE ADDRESS OF 

FEIST 

1137 

P03AA 

40 FF 


STQ- I 

1138 

P03AB 

OCDO 


ENQ 0 



114 0 

P03AC 

CA A7 

CLFILl 

LOA-^ SECTOR, Q 

INITIALIZE THE FILE MANAGER 

TABLE 

1141 

P03AD 

6101 


STA- 1,1 

1142 

P03AE 

Q A 0 0 


ENA 0 



1143 

P03AF 

6102 


STA- 2,1 
LOA^^ LENGTH, Q 



1144 

P0380 

CAAC 




1145 

P03B1 

6103 


STA- 3,1 



1146 

P03B2 

C4FF 


LOA- (I) 

LENGTH OF THIS UNIT 


1147 

P03B3 

OF 47 


ARS 7 


1148 

P03B4 

80FF 


ADD- I 

POINT TO NEXT UNIT 


1149 

P03B5 

6QFF 


STA- I 


1150 

P03B6 

C4FF 


LOA- (I) 

IS THE LIST COMPLETE 


1151 

P03B7 

0 900 


INA 0 


1152 

P03B8 

3102 


SAZ CLFIL2 

YES 


Up 3 

P03B9 

OOOl 


INQ 1 

CONTINUE 


1154 

Pu3BA 

18F1 


JMP^ CLFILl 



M29Q0968 


M29J 0970 

M29Q0971 
M29Q0972 
M2900973 
M290 097A- 
M29Q0975 
M2900976 
M2900977 
M29Q 0978 
H2900979 

M2900981 
M29a0982 
M2900983 
M29QG984 
M290 0985 
M 290 0 98 6 
M290 0987 
H290 0988 
M2900989 
M2900990 
M290Q991 
M290 0992 
M2900993 
M 290 0 99 4 
M290 0995 


SPACE 


PAGE 


38 


date: Oi/27/99 


1156 

P03B3 

OAcO 

CLFIL2 

ENA 

96 

, CALCULATE THE WORD ADDRESS OF 

H2900997 

1157 

P03BC 

uC04 


END' 

*+ 

THE CORE IMAGE 

• M2900998 

1158 

P03BD 

26E9 


MUI- 

($E9) 


M2900999 

1159 

P038E 

OFEl 


LLS 

1 


M2901000 

1160 

P03EF 

OFCF 


ALS 

15 


’ M29U10Q1 

1161 

P03CU 

88DF 


AOD^ 

CLADR 

CALCULATE THE ADDRESS OF THE FILE TA8L 

M2901002 

1162 

P03C1‘ 

0122 


SAP ■ 

CLFIL3 

IN THE CORE IMAGE 

M2901G03 

1163 

P03C2 

ODQi 


INQ 

1 


M290 100 4 

116 4 

P03C3 

AO 11 


AND- 

LPMSK+15 


M2901005 

1155 

P03C4 

48QC 

CLFI_3 

STQ» 

FL'ISB 


' M2901006 

116 7 

PQ3C5 

68DC 


STA^ 

FLLSB 

SAVE FOR THE TRANSFER 

M29010Q8 

1158 

P03C6 

COFF 


LOA- 

I 


; M2901009 

1169 

P03C7 

9808 


SUB^ 

CLADR 


M2901010 

1170 

P03C8 

6806 


STA- 

CLLEN 

LENGTH OF THE TRANSFER 

■ M2901011 

1172 

P03C9 

5 4 F4 


RT J- 

( AMONI) 


M2901Q13 

1173 

PQ 3CA 

QhOI 


ADC 

$0401 

WRITE CLEARED TABLE TO CORE IMAGE 

M290 1014 

117^ 

P03CB 

0 0 0 0 


ADC 

0 


M2901Q15 

1175 

P03CC 

00 00 

CLTH3 

ADC 

0 


M2901016 

1176 

P03CD 

0 8C2 


ADC 

$08C2 


M2901Q1? 

1177 

PQ3CE 

00 00 

GLLE^ 

ADC 

0 


M2931018 

117 8 

P0 3CF 

OuOO 

CLADR 

ADC 

0 


M2901019 

1179 

PQ 3D0 

0000 

FLMS3 

ADC 

0 


M29D102G 

1180 

P03D1' 

0000 

FLLSB 

ADC 

0 


M2901021 

1132 

PQ3D2 

C8F9 

CLFIL4 

LOA-'^ 

GLFHD 


M2901023 

1133 

PG3D3 

OlCl 


3AZ 

CLFIL5 

THE WRITE IS COMPLETE 

M29D1024 

1184 

P030m- 

18FD 


JMP^ 

CLFIL4 


M2931025 

1186 

P03D5 

D C03 

CLFIL5 

ENQ 

3 


M2901027 

1137 

P0 3D6 

5803 


RTJ^ 

H E 3 3 A G 

PRINT LF/CR 

M2901Q28 

1188 

P03O7 

ICOO 


JHP 

1 BONES) 

RETURN 

M2901029 


P03O8 

FFOO 







SPACE 


PAGE 39 


DATE! 01/27/99 


1190 ^ MESSAGE SUBROUTINE 


o 


1192 P03D9 uBGO 

1193 P03DA CAOF 

1194 P03DB 6809 

1195 P03DC CAll 
119o P03DD 63G6 


MESSAG NOP a 

LDA^ MESSAD^Q 
STA^ MESADO 
LDA^ MESSLN,0 
STA^ ME5LEN 


SET UP THE MESSAGE ADDRESS 
SET UP THE MESSAGE LENGTH 


1198 P03DE 54F4 RTJ- tAMONI) PRINT THE MESSAGE 

r, 1199 P03DF 0401 ADC SQ401 

' 120 0 PO 3E0 0 G QQ ADC 0 

1201 P03E1 0000 HESTHD ADC 0 

1202 P03E2 18FG ADC SiSFC 

r-, 120 3 PG3E3 QQQQ MESLEN ADC 0 

^ ' 1204 P03E4- OOQO MESADD ADC 0 



120 6 

P03E6 

C8FB 


MESCHK 

LDA^ 

MESTHD 




120 7 

PQ3E6 

0 101^ 



SAZ 

MESDUN 

OUTPUT 

COMPLETE 


1203 

PG3E7 

18FD 



JMP^ 

MESCHK 




1209 

P03E8 

iCFO 


MESDUN 

JMP^ 

(MESSAG) 

RETURN 



1211 

P83E9 

Q3F1 

P 

HESS AO 

ADC 

ME3SG1 

MESSAGE 

ADDRESS 

! ) 

1212 

P03EA 

0 3 FA 

P 


ADC 

MESSG2 




1213' 

PQ3EB' 

03FC 

P 


ADC 

MESSG3 




1214 

PQ3EG 

O^OE 

P 


ADC 

ME33G4 




1215 

P03ED 

0 G 09 


MESS..N 

ADC 

LMESSi 

MESSAGE 

LENGTH 

U ; 

1216 

P03EE 

00 02 



ADC 

LME3S2 




1217 

P03EF 

0012 



ADC 

LHESS3 




1218 

Pg 3FQ 

OQQl 



ADC 

LMESS4 




o 


o 


o 

o 

o 

o 



M290ia31 


M29Q1033 

M2901034 

M29ai035 

M2901Q3D 

M290i037 

M2901039 

M2901040 

H29J1041 

M2901042 

M2901Q43 

M2901044 

M2901045 

M2901047 

M2901048 

M2901049 

M2901u5G 

M2901U52 

M2901053 

M2901054 

M2931055 

M2931056 

M2901057 

M2901358 

M29Q1059 


C 

O 

o 

r\ 

O 

n 

C' 

o 

o 

o 

c 

o 

r"'. 

o 


o 


SPACE 


PAGE i+0 


DATE: 01/27/99 


1220 « FILE CHECK MESSAGES 


u 

1222 

P03F1 

4348 

MESSCl 

ALF 



P03F2 

4543 





PQ3F3 

4849 





P03F + 

4E47 




P0 3F5- 

2046 





P03F6' 

494C 





P03F7 

4553 



O, 


P03F3 

2020 



1223 

P03F9 

2020 
0 0 09 


EQU 



1224 

P0 3FA 

4F4B 

MESSG2 

ALF 

O 

1225 

P03FD 

UAQA 


NUM 

1226 


0 0 02 


EQU 


122 7 

P03FC 

4 552 

MESSG3 

ALF 



P03FD 

524F 





P03FE 

5253 


NUM 


1228 

PG3FF 

Q DQA 



1229 

P0400 

^34C 


ALF 



PO-tOl 

4541 





P0402 

5220 





P0403 

41 4C 





P0404 

4C2Q 





P0405 

4649 



o 


P 0 H G 6 

4C45 




P04G7 

533F 





P0408 

2028 





P0409. 

5945 





P 0 40 A 

532F 





P04GB 

tE4F 





PG4LC 

2920 





P040D 

2020 




1230 


0012 


EQU 


1231 

P040E 

OA OA 

MESSG4 

NUM 


1232 


ODOl 


EQU 




o 

o 

o 

o 

C) 


CHECKING FILES - $ 


LMESSK^-MESSGi) 

$»0K$ 

SOAOA 

LMESS2(^^-MESSG2) 

$,ERR0RSS 


S 0 D u A 

S, CLEAR ALL FILES? (YES/NO) S 


LMESS3 ( ^-MESSGSJ 
$0 ADA 

LME3S4( ^-MESSGA ) 


M29Dld61 


M29Q1063 


M290 1064 
M29Qi0b5 
M2901056 
H29010&7 
M2901068 


M29D1069 
M2901 070 


M29ulu71 

M2901072 

M2901073 


C' 

O 

O 

o 

o 

C-' 

o 

o 

o 


o 

o 

o 

o 


SPACE 


= AGE A1 


date: 01/27/99 


o 


o 



1234 

P040F. 

■00 0 0 

. CLSFIL 

NUH 

0 


1235 

P0410 

0 8=+4 


CLR - 

A 


1 ? 3 o 

PO 4 II 

■681E 


STA^ 

V20 


1237 

P0412 

681E 


STA^ 

V22 


1258 

P0413 

681E 


STA^ 

V27 


1239 

P0414 

E0E9 


LOQ- 

$E9 


1240 

P0 415 

G208 


LDA- 

8,D 

u ■ 

1241 

Pu *tl6 

68 30 


STA^ 

FL305D 


12 4 2 

Puh17 

58 3 0 


RTJ'^ 

FLS05 


1243 

P0418 

4800 


NUM 

$480 0 

.•-* 

124u 

P04ig 

C622 

FL06Q1 

LOA- 

(ZERO) , Q 


1245 

PQ41A 

C206 


LDA- 

6,D 


1246 

P041B 

0107 


SAZ 

FL0610 


1247 

P041C 

0126 


SAP 

FLQolO 

. , 

1248 

P0410 

AO 11 


AND- 

LPM3K+1 5 

( J 

1249 

P041E 

62 06 


STA- 

6, Q 


1250 

PGhIF 

C207 


LOA- 

7,Q 


1251 

PO 42 0 

■AO 11 


AND- 

LP.MSK + 1 5 


1252 

PQ421 

6207 


STA- 

7,Q 


1253 

P0422 

D80D 


RAO^ 

MZQ 


12 5 H 

PO 423 

C8 QD 

FL0610 

LDA^ 

V22 


1255 

P0424 

09F6 


INA 

-9 


12 5 6 

P0425 

0116 


SAN 

FL0614 


1257 

P0426 

C809 


LDA* 

\fZD 


1258 

PG427 

0104 


SAZ 

FL0614 


1259 

PGh28 

581F 


RTJ^ 

FL305 


1250 

P0h29 

4C0Q 


MUM 

$4CG0 

'■sj 

1251 

PG42A 

0 8 44 


CLR 

A 


1262 

Pu 42 B 

6804 


SlIX* 

V20 


1255 

P042C 

5807 

FL 061 4 

RTJ* 

FL305 


1254 

P042D 

ICEl 


JMP^ 

(CLSFIL ) 


1265 

P042E 

18EA 


JHP^ 

FL0501 


12 6 6 



* 




1267 

P042F 

0 0 00 ^ 

V20 

NUM 

0 


1268 

P 043 0 

0 0 00 

V22 

NUM 

0 


1269 

PO 431 

OOGO 

\IZ7 

NUH 

0 


1270 



V- 




1271 

PO 432 

ICDC 

FILERR 

JMP^ 

(CLSFIL ) 


{ ^ 


SUBROUTINE TO CLOSE ALL JOB FILES 
INITIALIZE 


FREAD JOB FILE DIRECTORY 


SKIP IF NOT DEFINED 
SKIP IF CLOSED 

CLOSE FILE 


SET TO READ MODE 

SET FILE CLOSED INDICATOR 


SKIP IF NO FILES HERE CLOSED 
REWRITE THE FILE BLOCK 
FWRITE 


CLEAR FILE CLOSED INDICATOR 
GET NEXT FILE ENTRY IF ANY 
FINISHED, RETURN 
ppnr.FG?: thf next entry 


FILE CLOSED INDICATOR 
INDEX TO ENTRY IN FILE BLOCK 
INDEX TO NUMBER OF FILES 


ERROR, RETURN 


M29Diu75 

M2901076 

M2901 077 

M29D1078 

M2901079 

M2901Q80 

M29G1081 

M2901082 

M29'3108 3 

M2901 084 

M 290 108 5 

M2901086 

M 290 1087 

M2901088 

M29Q1089 

M2901090 

M2901091 

M2901092 

M2901Q93 

M290 1 09A 

M2931095 

M2901 096 

M2901097 

M2901098 

M2901099 

M2901100 

M2901101 

H2901102 

N2901103 

H2901104 

M 290 1105 

M2901106 

M 29 01 10 7 

M2901108 

M290 1109 

M29J1110 

M2901111 

M2901112 


C; 

O 

O 

O 

O 

o 

o 

o 


C) 


1273 

P0 43 3 

OQ 00 

FLS05 ■ 

NUM 

0 

12 74 

P0‘t34 

D8FB 


RAO^ 

vzz 

1275 

P0435 

D8FB 


RAO^ 

V27 

1276 

P0436 

P0437 

COGO X 
0 2 59 X 

‘ 

LDA 

= XJBFL\/4 

1277 

P0 438 

98F8 


SUB^ 

V27 

1278 

P0439 

0111 


SAN 

FLS06A 

1279 

PC 43A 

180C 


JHP-«" 

FLS069 

1280 

PO h3 B 

C8F4 

FLS05A 

LDA^ 

V22 


o 


SECTION TO FIND NEXT FILE ENTRY 
IN THE FILE BLOCK 


NOT DONE,. SKIP 
JUMP IF ALL checked 
CHECK IF ALL OF THIS 


BLOCK DONE 


M 290 111.4 
M2901115 
H290111& 
M290 1117 

M 2901118 
M2901119 
M29Qil20 
M29D1121 


O 


o 

o 

o 




SPACE 


PAGE A2 


DATE 


01/27/99 


1291 

PQit3C 

Q9F5 


INA 

-10 


M2901122 

1282 

P G 4SO 

0102 


SAZ 

FL3061 

SKIP IF YES 

M2901123 

129 3 

P0H-3E 

0009 


INQ 

9 


M2901124 

128-f 

P043F 

1806 


JMP^ 

FL3067 


M29Q1125 

1285 

PC 440 

D813 

FLSG&l 

RAO< 

FL505D 

UPDATE LS8 OF SECTOR 

H29ail26 

1286 

P0441 

5806 


RTJ^ 

FLS05 

READ THE NEXT SECTOR 

M2901127 

126 7 

PD W 

4800 


NUH 

$430 0 

FREAD 

M2901128 

1238 

PQ443 

0 8 44 


CLR 

A 


M2901129 

1239 

PO 444 

68EB 


STA^ 

V22 

FIRST ENTRY IN FILE BLOCK 

M2901130 

129C 

P0445 

D8ED 

FLSGd7 

RAO^ 

FL306 


M29D1131 

129 1 

P 0 h46 

IGEC 

FLS069 

JMP^ 

(FLSQ6) 


M29Q1132 


1293 

P0447 

GOOD 

FLS 05 

NUM 

0 

SECTION TO REAO/WRITE A FILE BLOCK 

M2901134 

1294 

PQ448 

CCFE 


LDA^ 

fFLS05) 


M2901135 

1295 

P0449 

6803 


STA^ 

FLSQ51 

SAVE THE REQUEST CODE 

M29Q1136 

1296 

PO 44 A 

D8FC 


RAO^ 

FL305 

UPDATE RETURN 

M 290 113 7 

1297 

P044B 

54 F 4 


RTJ- 

{ AMONI) 


H29Q1136 

1298 

P044C 

00 0 0 

FLSC51 

NUM 

0 

+0 REQUEST CODE 

M2931139 

1299 

PO 44 D 

flOUfl 


ADC 

0 

+ 1 CA 

M2901140 

1300 

PD44E 

DO 00 

FLSQ5A 

ADC 

0 

+ 2 T 

M2901141 

1301 

PO 44F 

a 8C2 

FLS05B 

NUM 

$8C2 

+3 LIBRARY UNIT 

M2901142 

1302 

P045G 

0 0 60 


NUM 

95 

+4 NUMBER OF WORDS 

M2901143 

130 3 

P0451 

0 4 5C P 

FLSG5C 

ADC 

BUF2A 

+5 START ADDRESS 

M2931144 

1304 

P0452 

0 0 00 


NUM 

0 

4 6 MSB 

M29U1145 

1305 

P 045 3 

00 00 

FLSG3D 

NUM 

0 

+ 7 LSB 

M2g31l46 

13 0 6 







H2931147 

130 7 

PO 454 

C8F9 

FLSu 5 2 

LDA^ 

FLS05A 

CHECK REQUEST COMPLETED ' 

H29Q1148 

1308 

P0455 

0101 


SAZ 

FL3D58 

COMPLETED, SKIP 

M2901149 

13 0 9 

P 0456 

18F0 


JMP- 

FL3052 


M29D115C 

1310 







M 290 1151 

1311 

PO 457 

C8F7 

FLS053 

LDA^ 

FLS05B 

i 

M2901152 

1312 

P0458 

U121 


SAP 

FLS059 

MO ERROR. SKIP 

M29G1153 

1313 

P0459 

1808 


JMP» 

FILERR 

I/O ERROR 

M2901154 

1314 

P045A 

E8F6 

FLSC59 

LOQ^ 

FLS05C 


M293 1155 

1315 

PD453 

ICEB 


JMP^ 

{FLS05) 


M290il56 

1316 

P045C 

00 60 

BUF2A 

BZS 

BUF2A(96) 


M29G1157 


SPACE 


PAGE 43 


date: 01/27/99 


1318 

1319 

1320 

1321 

1322 


ALLOCATION LENGTHS 

AREAS 1, 2, AND 3 ARE SETUP BY ^S CONTROL CARDS 
SYSTEM INSTALLATION FILE. AREAS 4-15 ARE SETUP 
EQUATES IN 3YSDAT 


M29Q1159 
M2901160 
^^MSOS 4.1.»^M2901161 
»^MSOS 4. 1^^M2901162 
^^MSOS -.,1^^M2901163 


132^ 

P04BC 

7FFF 

X 

ALCL3H 

ADC 

Ml 

ALLOCATION 

length 

FOR 

AREA 

1 

H293 1165 

132 5 

P04BD 

7FFF 

X 


ADC 

N2 

ALLOCATION 

LENGTH 

FOR 

AREA 

2 

M29Q1166 

1326 

PO 4BE 

OOFA 

X 


ADC 

PSIZV4 

ALLOCATION 

LENGTH 

FOR 

AREA 

3 

»»MSOS 4,1«^^M29011&7 

1327 

P048F 

7FFF 

X 


ADC 

N4 

ALLOCATION 

LENGTH 

FOR 

AREA 

4 

M 290 1168 

1328 

PO 4CD 

7FFF 

X 


ADC 

N5 

ALLOCATION 

LENGTH 

FOR 

AREA 

5 

M29Q1169 

1329 

P04C1 

7FFF 

X 


ADC 

No 

ALLOCATION 

LENGTH 

FOR 

AREA 

6 

M290117Q 

133 0 

PO 4C2 

7FFF 

X 


ADC 

N7 

ALLOCATION 

LENGTH 

FOR 

AREA 

7 

M2901171 

1331 

PO 4C3 

7FFF 

X 


ADC 

N8 

ALLOCATION 

LENGTH 

FOR 

AREA 

8 

M2951172 

1332 

PQ4C4 

7FFF 

X 


ADC 

N9 

ALLOCATION 

LENGTH 

FOR 

AREA 

9 

M29Q1173 

1333 

PO 4C5 

7FFF 

X 


ADC 

NIO 

ALLOCATION 

LENGTH 

FOR 

AREA 

10 

M29Q1174 

1 3 3 

P04C6 

7FFF 

X 


ADC 

Nil 

ALLOCATION 

LENGTH 

FOR 

AREA 

11 

M2901175 

1335 

P0hC7 

7FFF 

X 


ADC 

N12 

ALLOCATION 

LENGTH 

FOR 

AREA 

12 

M290il7o 

1336 

PC4C8 

7FFF 

X 


ADC 

N13 

ALLOCATION 

LENGTH 

FOR 

AREA 

15 

M29Q1177 

1337 

P0 4C9 

7FFF 

X 


ADC 

N14 

ALLOCATION 

LENGTH 

FOR 

AREA 

14 

M2901178 

1338 

P04CA 

7FFF 

X 


ADC 

N15 

ALLOCATION 

LENGTH 

FOR 

AREA 

15 

M29ail79 

134Q 

P04CB 

1800 



JMP 

RESTRT 

MUST ALWAYS 

BE 2 ' 

WORD 

INSTRUCTION 

^ ,»^MS0S4. D^M290118i 


P04CC 

FB4F 











1341 




¥• 


AUTOLOAD 

PROGRAH MOVED TO 

i HERE 




M29Q1182 

1342 












-M29Q1183 

1343 

P04CO 

1800 


STHS\/4 

JHP 

RESTRT 

FIRST WORD 

OF AUTOLOAD PROGRAM 

»^MSOS4. 0 ^M2901184 


P04CE FB4D 


1345 PQ4CF 0002 

13 4 6 

1347 


BSS (2) 


RESERVE TWO 
CORE THREAD 


WORD 


THE ALL0CATA8LE 


M2931186 

M29Q11S7 

M2901188 


0 401 


1233) 


DAT = 0 0 Q u { 


o 


SPACE 


PAGE 44 


DATE: 01/27/99 


EQUIVALENCES 


o 

DEE. LINE 

name 

VALUE 


REFERENCED AT 

LINE NUMBER 



DOOQ 

I 

uOFF 

{ 0OG2551 

0 19u , 

G 194, 

C286, 0299, 

04C 3, 

113 7, 


a 112 

locore 

0 0F7 

{ 0G0247) 

0 3 5 4* 

0 3 6 0 





ull3 

HICORE 

u GF6 

( 000246) 

0 357 , 

0 36 7 





0119 

LUCORE 

ODDI 

(000001) 

01p3 






a 120 

VR 

000 3 

( 0Q0003) 

0143, 

0144 





0121 

VPL 

000 4 

(000004) 

0 147 


0428, 0475, 

080 8, 

0 812 , 


G 122 

ZERO 

0022 

(000034) 

3 145, 

0 3 0 3, 

'sJ 

0123 

QNEBIT 

0023 

(00G03p) 

0 0 5 , 

0 60 5 





0 12 4 

V T M P 

00 0 7 

(000007) 

0149 


0308, 0308, 

034G , 

0450, 


0125 

LPMSK 

00 02 

( 00000 2) 

0270, 

0300, 



• 0 858 , 

0 924, 

1164, 1248, 

1251 

0668, 

u 

0126 

AMONI 

0 0 F 

( 000244) 

0231, 

0566 , 

Qp7i3, 0583, 

0610 , 


0127 

"OUR 

0025 

(000037) 

0-.32, 

0436 

0 433 




0128 

SYDIR 

OOEB 

{ 000235) 

0 425 , 

3 42 9, 



Q 

0 245 

NTEMSL 

0010. 

( Q0Q016) 

0 2 35 





0 645 

HFPRJL 

0 0 0 7 

(000007) 

0 6 41 






0 900 

LSUMLV 

001*+ 

(0Q0020) 

0673 






1223 

LMESSi 

0009 

(000009) 

1215 






122 6 

LMESS2 

00 0 2 

( 000002) 

1216 





vj 

1 23u 

LMESS3 

0012 

( 0G0018) 

1217 





o 

1232 

LMESS4 

uOOl 

(030031) 

1218 






o 

o 

o 

o 

r'\ 


C) 

o 

o 


11 4b , 

1148, 

1149, 

115 0 , 

1168 



. o 

0 813, 

0892, 

1133, 

12h4 




o 

0562, 

0571, 

0604, 

0650 , 

0739, 

0/44, 

Q806, 

0811, 0820, 0349 

0723, 

0758, 

0 786, 

10 74, 

1100, 

1172, 

1198, 

129 7 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 






SPACE 


PAGE 45 DATE; 01/27/99 


o 






o 

S Y H B 0 

L S 



O 


DEF.LINE 

NAME 

ADQRESS 

referenced AT LINE NUMBER 

; O 


0 0 0 7 

SPACE 

00 0 0 

0 0 0 7 



CQii* 

TIO 

iJOOO 

0014 



0 015 

STMSV4 

04CD 

0015 

L' 

u 

0 016 

T17 

000 0 

0016 



0 017 

AREAC 

OQIA 

0017t 0188, fl22t, 0225 



0 018 

ALCLGH 

Q4BC 

0018, 0184, 0186, 0191, 0212 



3 145 

CORl 

0 00 6 

] 140 

O 


0153 

GORZ 

0011 

0151 



0156 

TOIDLE 

0014 

0871 



0184 

RESTRT 

OulC 

1340, 1343 



3 187 

RSTl 

0021 

3 215 

O 


0189 

SETTBL 

002 4 

0197 



0194 

CHKENO 

0Q2A 

0 192 



0199 

SETEND 

Q02F 

0 19^ 



0 20 6 

FIX4 

003 6 

3 2 04 

{ \ 


0 211 

FIX4A , 

Q03C 

0 2 09 



0216 

FIX4X 

0042 

0 211 



S 218 

FIX4Y 

0 0 4 4 

0 205 

o 


0224 

3KIPIT 

0 04A 

0217, 0220 

'o 

0 231 

NTENUF 

0 0 5 4 

0210 



0234 

NTETHO 

005 7 

0 239 



0 239 

NTEWAT 

0058 

3 241 



0244 

NTEMSG 

0060 

0237, 0245 

■ Q 

■‘«w^ 

0268 

INIT 

0070 

0229 



0269 

ACCP 

0071 

0339 



0 273 

SETUPO 

0Q75 

0271 


,--v 

027 7 

SETUP 

0078 

0280, 0280, 028u, 0280 

o 

i \ 

“w.-*’ 

0 295 

NXTPGE 

0086 

0309, 0309, 0309, 0309 



0 302 

NXTLOC 

0 0 8 B 

0306, 0306, 0306, 0306 



0 522 

SETUPl 

0097 

0324, 0324, 0324, 0324 



0328 

SPBLPO 

009B 

0272 

■ o 

u 

0 33 0 

SPBLOP 

QC9C 

Q 3 33 



0 334 

, CLRP8 

00 AQ 

0 331 



0338 

CLR PBl 

OOA 5 

0 336 

o 


C 351 

CLRPBT 

00A9 

0 341 


0363 

L08DA0 

Q0B7 

3364, 0366 



0 37 0 

UPBOAD 

0 08E 

3371, 0373 



0374 

NOTTS 

Q0C2 

0 3 42 

- o 


0 38 0 

NOTMP 

0 0 C 6 

0337 


D 381 

RSTRTi 

00C7 

0 386 



0388 

RSTRT2 

OOCD 

0378, 0385 







o 

o 





o 






o 


SPACE 


PAGE 45 


DATE: Qi/27/99 


0393 

SSTRT3 

0003 

0 398 





0 hQ 5 

RSTRT^ 

DODF 

0 413 





0h15 

RSTRT5 

0GE8 

0 ^03 , 

3 411 




j Ai 6 

LOCO 

00E9 

0294 





0 417 

H7FF 

OOEA 

0297, 

0297, 

0297 



0 -+21 

3DJ0B 

OOEB 

0 426 





0 ^22 

SDLie 

OOEC 

0430 





0423 

SDPRO 

OOED 

0434 





0 

RSTRT6 

OGEE 

0 407 





0 473 

TIHSRT 

0112 

Q 451, 

0 594 




0 479 

T I H VC T 

0116 

0 674 





0 492 

T1572 

GllF 

. 0480 





0497 

TOUT 

0127 

0506, 

0517, 

0532, 

0538, 

0543, 0557 

0 50 3 

T1573 

012A 

3 481 





0 510 

T72LST 

012F 

3 482 





0 521 

T72SRG 

013A 

0 h83 





0536 

T3644 

G14A 

0 484 





0 543 

TIQ 336 

014E 

3 487 





0 553 

MP17CK 

015 7 

. 0 488 





0561 

CHKTMR 

015F 

0 4 8 5, 

0499 




0568 

RSTRTA 

016 5 

0 561 





0 5 70 

RSTRTT 

016o 

3 564 





0577 

TTRSTR 

016 C 

3 5 70 





0 58 2 

SREJ 

016E 

.0 4-54 





0586 

SRJTH 

G172 

3 591 





G 591 

3RJCK 

0176 

0593 





Q 59d 

SR J MSG 

017A 

0 589 





0 60 0 

REJ 

0180 

Oh-79, 

0 494, 

0t97, 

C 5 2 8 , 

0545 

G 613 

REJTH 

018E 

3 618 





Dole 

REJCK 

0192 

0620 





0 62 3 

REJMSG 

019 6 

3616 





062 8 

RSTRT9 

019C 

0573 , 

0578, 

0621 



0 633 

RSIR9A 

01A2 

3 631 





0640 

HFPREJ 

01A9 

0 5 35, 

0 63 7 




0 644 

HFPRJM 

01B2 

0 641, 

0 645 




0 649 

RSTRIO 

01B9 

3632, 

0538, 

0 642 



0668 

PSRMSG 

uIDh 

0 6 52 





0671 

TX 

0107 

0 6 76 





9 676 

LTX 

QIDB 

3 678 





0682 

AlOlM 

OIDE 

0o77, 

0 734 




0 68 3 

AlOl 

OIDF 

0 6 90, 

0 70 9 




0 68 5 

A102 

01E2 

0696, 

0698, 

0711 



3 698 

fault 

01F2 

3691, 

0703 




0 703 

HANGIT 

01F9 

0700 





0 70 4 

GOPP 

OlFA 

0 702 





0 70 8 

siai 

OlFD 

0 6 84 





3 71G 

S102 

020 0 

0686 





a 712 

3M 

0203 

0688 





0 71 8 

SIO 3 

020B 

0716 





3 726 

PPTH 

0214 

0 731 





0 731 

PPWAIT 

0218 

Q 733 





0 734 

OUTPP 

021B 

0732 





0 73 8 

OUTID 

C21C 

3717, 

0 719 





f' 


SPACE 


PAGE 47 


DATE: 

y' ' 

01/27/99 

c , 

0 74 2 

IDl 

0 221 

3 7 40 



' C) 


G 749 

ID2 

022B 

0 754 




o 

0 755 

ID3 

0233 

0 751 



- o 

0761 

IDTH 

0238 

0 766 




0 763 

IDL 

023A 

0 7 56 





0 766 

lOWAIT 

Q23C 

0768 





077D 

ID4 

023F 

0 753 , 

0 767 


o 


0 775 

MODE 

0242 

3 7 41 




0 77 9 

M32K 

0 24 6 

0 777 





0781 

M65K 

0249 

0778 





0 784 

3TO 

Q24D 

0 780 



o 


078 9 

MODETH 

0251 

0794 




0792 

MMOOE 

0254 

0 784 





0794 

MOOWAT 

0255 

0796 




f''! 

0 797 

FILCLS 

0258 

0795 



■ o 


0 8 01 

FILCHK 

Q25D 

0798 





0 80 3 

T1 

0260 

0815 





0814 

TIB 

G26C 

S807 




u 

C 819 

' 3ETPF 

026E 

0 8 09 




0 823 

■ SPF 

0273 

0 8 21 





0 824 

■SPFl 

0274 

0833 





0 83^ 

SPF 5 

027B 

0831 



1 

(r"j 

0840 

RSETl 

Q27F 

0 8 64 



V,.-' 

0 845 

RSET2 

0285 

3 841 , 

0842 



0850 

RSET4 

028A 

0861 





0 854 

LRSET 

028F 

3 851 




o 

0 85 6 

SRSET 

y 291 

3 8 52 , 

0 857 



0 862 

RSET6 

0297 

0859 



' v_.-' 


0 865 

PFCNT 

029A 

0838, 

0 845, 

0862, 0863 



0 867 

TIAA 

029B 

0822, 

0844 



o 

0 873 

PPFLAG 

02A3 

0 699, 

0 715, 

u721 


0874 

FLA GIT 

G2A4 

0 7 01 , 

G 718 


L/ 


0876 

11 

02A5 

0775 





0 877 

12 

02A6 

0 8 76 




o 

3 878 

13 

02A7 

3 7 76, 

0 877 



0879 

3AVIO 

G2A8 

Q 743 , 

0770 




0881 

ATC 

02A9 

0803 , 

G 814 




0882 

T 

02AA 

3 8 04 





0 894 

SUHLVL 

02B5 

0 6 74 , 

G900 


0 666 


0 898 

DATE 

02C2 

0657, 

9658, 

0660, 0665, 


0902 

PP 

02C9 

0729 





0 9C 6 

X32K 

0205 

0 779 




o 

0911 

' X65K 

020C 

0 781 



■ o 

u916 

MONTH 

02E3 

0649, 

0653 



0917 

DAY 

02E4 

0 6 59 





0 918 

YEAR 

02E5 

0661 




o 

0922 

BONES 

Q2E6 

0 8 01, 

0926, 

0937, 1121, 

118 8 r-'i 

. 0932 

BONESO 

G2F1 

0996 



' L--' 


0 938 

BONES! 

02F8 

0934 





0959 

80NES2 

Q30C 

0951 , 

0975 



o 

0970 

B0NES6 

031 7 

0968 



■ o 

0976 

80NES3 

u31D 

3960 , 

Q 994 



0 984 

80NES5 

0325 

0982 




o 







o 

o 









o 


SPACE 


PAGE 48 



DATE: 

01/27/99 



fi 

0 987 

B0NES4 . 

0328 

0979 









0995 

B0NES7 

0 33 0 

0957 , 

0986 







o 

IQOl 

ANATHD 

0332 

0 974, 

0993, 

1 -Gh 





0 

1002 

ANATHO 

0333 

1020 









lOD 5 

ANATHl 

0336 

1003 









1012 

ANATH2 

033D 

10 09 , 

1010 







("'"1 

'-W*' 

1018 

ANA TH3 

0343 

1016 







' 0 

1Q25 

NUMRD 

0346 

1089 , 

1090 







1C26 

HAXRD 

0347 

1091 









1027 

FSPNT 

0348 

0 9 23, 

0932, 

0 94v , 

0952 , 

0954, 0977, 

0985 



o 

1028 

FSLUPT 

0349 

0 950 , 

0 976, 

0984, 

2987, 

u 989, 0 990 , 
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00 0 7 
0 0 0 fl 
0 0 0 9 
0010 
Gull 
0012 
0013 
DOIL 


^ THERE ARE TW 

» IT CAN FJNCT 

^ -DO NOTHING- 

^ FOR A LOGICA 

« BE LOGGED OM 

^ AND REPORT A 

if. if. ::f. if. Jf. Jf. if. if. :f. if if if. 


If If H. If. If If If ififif^if If If If If If If If If If If If If If If 

0. FUNCTIONS THAT THIS DRIV 
ION AS A NORMAL DRIVER WIT 
FUNCTIONS, OR IT CAN FUNC 
L UNIT SO THAT DEVICE FAIL 
THE COMMENT DEVICE BUT RE 
N ERROR TO THE CALLER. 

If If If If Iff If If If If If If If If If If ififififif^^ififif^ 


ifififif^ifififif^if ifififififififif^-^ifififif ?. 

ER IS DESIGNED TO PERFORM.^ 
H A LOGICAL UNIT TO DO 
TION AS AN ALTERNATE ^ 

URES FOR THE UNIT WILL , ^ 

QUIRE NO OPERATOR RESPONSE'f 

If If ^if If If If If If If If If If If If If If ^ If 4- If If If 9 If If If 


M3 03 0 u0 7 
M300 000 8 
M30G0QQ9 
M3 00 0 010 
M3000uli 
M3QQ 0012 
M3000Q13 
H300 0 01^ 


0016 

0017 

0018 
0019 


DRIVER ENTRY 
ENT IQJMMY 
ENT CDUMMY 
ENT EDUMMY 


POINTS 

DUMMY INITIATOR ENTRY 
DUMMY CONTINUATOR ENTRY 
DUMMY ERROR ENTRY 


M300Q0ib 

M3000017 

M3000Q18 

M3000019 


00 21 
OG 2 2 
G023 
0024 


^ DRIVER EXTERNAL 

EXT LOGl 
EXT OUMALT 
EXT LOGIA 


POINTS 

LOGl TABLE IN SYSDAT 
DUMMY LOGICAL UNIT 
LOGIA TABLE IN SYSDAT 


M3000021 
M303Q Q22 
M30QQ023 
H30j a 024 


002 6 
0027 


0QB5 


V- 

0 328 


0 0 EA 



0029 


00 05 



00 3 3 


0 033 



03 31 


0 0 02 



0032 


00 09 



0033 


0023 



0 3 3 4 


0 0 B6 



003 5 


0 0 F4 



00 3 7 

pooao 

40FF 


IDUHMY 

03 38 

POOOi 

54B5 


CDUMMY 

00 39 

poao2 

14EA 


EDUMMY 

00 40 

P00 0 3 

El 05 



0 0 41 

P0Q04 

C 6 0 0 

X 



P0QG5 

7FFF 

X 


Gu42 

poao6 

90FF 



GO 43 

p 0 a 0 7 

0113 



Ou 44 

poooa 

54B6 



0 0 4:^ 

P0009 

13F7 



0 0 4 6 

POQOA 

7FFF 

X 

LUOUMY 

0047 

POGOB 

0 5 0 0 


ASALT 


DRIVER EQUIVALENCES 

EQU AFNR{$35) ADDRESS OF FIND NEX 

EQU ADISP(BEA) ADDRESS OF DISPATCH 


EQU ELJ(5) 

EQU ZR0BIT($33) 
EQU LPMSK(£2) 
EQU E3TAT1(9D 
EQU 0N£8IT($23) 
EQU ACDMPR($B6) 
EQU AM0NI($F4) 


TABLE OF COMPLEMENT 
TABLE OF RIGHT JUST 
POT STATUS 1 WORD 
TABLE OF SINGLE BIT 
ADDRESS OF COMPLETE 
ADDRESS OF MONITOR 


T REQUEST 
ER 

j»-^HSOS 

SINGLE BIT MASKS 
IFIED MASKS 

MASKS 

REQUEST 


M30GOQ26 
M3030027 
M3000028 
4.1^^M3000029 
M30a0Q30 
M300 0331 
M30G0032 
M3 00 a 033 
M3C0QO34 
M3000035 


STQ- 

I 

RTJ- 

fA-NR) 

JMP- 

(ADIS P) 

LDQ- 

ELU,I 

LDA + 

LOGIA, a 

SUB- 

I 

SAN 

ASALT 

RTJ- 

CACOMPR) 

JMP^ 

CDJMMY 

ADC 

QUMALT 

IIN 

0 


SAVE ADDRESS OF POT IN I-REG. 
LOOK FOR MORE REQUESTS 
NO REQUESTS--EXIT TO DISPATCHER 
GET LOGICAL UNIT NUMBER 
GET POT ADDRESS FOR THIS LU 


MINUS MY POT ADDRESS 

SKIP IF REQUEST AS ALTERNA 

COMPLETE REQUEST 

GO TO SEE IF MORE REQUESTS 

DUMMY LOGICAL UNIT 

LOCK OUT OTHER CHANGES TO 


TE DEVICE 


LOGl 


M3G0 0037 
M3GQa038 
M3000039 
M30GQ 040 
M30a Q 041 

M3000042 
M30G0043 
M30QQ Q44 
M30Q3 045 
M3000046 
M3000a47 


DUMMY PAGE 2 


C048 

PO OOC 

CE16 



LOA^ 

(ALOGl) , Q 

0049 

POOO 0 

AO 40 



AND- 

ZR3BITH3 

CQ50 

POOOE 

A03F 



ANO- 

ZR0BIT+-12 

GG51 
0 0 5 2 

POOOF 

6 E 13 



STA^ 

(ALOGl) ,Q 

00 5 3 

PGQIO 

E600 

X 


LOQ+ 

L0G1A,Q 


POOH 

0 0 05 

X 



ESTATl, I 

005,4 

P0012 

C109 



LOA- 

0055 

F0013 

AO 11 



AND- 

LPMSK+1 5 

0 0 5 6 

P0014 

BO 32 



t OR~ 

ONEBITH5 

00 57 

P0U15 

6109 



3TA- 

ESTATl, I 

0 0 5 6 

P0C16 

48 GA 



STQ^ 

AQRPHY 

0059 

P0017 

5486 



RTJ- 

(AOOMPR ) 

00 60 

P0018 

0500 



IIN 

0 

0051 

PQ019 

E3 07 



LDQ^ 

A DRPHY 

0 G 5 2 

PCOIA 

C2G5 



LDA-* 

ELU,Q 

00 5 3 

POGIB 

0115 



SAN 

BUSY 

00 6^^ 

POGIC 

C105 



LOA- 

£LJ,I 

0 0 5 5 

PUGID 

6205 



STA- 

ELJ.Q 
(AM ON I) 

0 0 6 6 

POGIE 

5 4F4 



RTJ- 

0--67 

POOIF 

20 0 0 



NUM 

$ 200 0 

00 66 

PG020 

OOCO 


AORPHY 

NUM 

0 

0059 

PG021 

18DF 


BUSY . 

JMP^ 

GDUMMY 

00 7 0 

PQ022 

7FFF 

X 

ALOGl 

ADC 

LOGl 

0 0 71 





END 



PGM= 0023 { 35) 30M = 0000 ( 0) 


DATE: Oi/27/99 


GET LOGl ENTRY FOR REQUESTED L.U. 

RESTORE UNIT 

CLEAR MESSAGE FLAG BIT 

1 CARD DELETED 

MODIFY LOG! ENTRY 

MAKE Q-REG. POINT TO FAILED L.U. POT 


SET ERROR INDICATOR IN V-FIELD 

SAVE ADDRESS OF FAILED L.U. POT 
COMPLETE REQUEST 

LOCK OUT OTHER ENTRIES TO FAILED DRIVER 

IS DRIVER BUSY (L.U. NOT ZERO) 

SKIP IF BUSY 

SET BUSY SO ANY NEW REQUESTS WILL 
BE THREADED 

PART 1 INDIRECT REQUEST 

POT ADDRESS OF FAILED DRIVER 
GO TO LOOK FOR MORE REQUESTS 


DAT = OQOQ { 0) 


M300 0 0A8 
M3000 049 
M3ufl0050 
M3000Q51 
M30UU052 
M3000053 

M3C00054 
M3QQ0055 
M300 oasb 
M3090057 
M3C00Q58 
M3DQfl 059 
M3QQ OOoG 
M3uG 0061 
M30u0062 
M3000063 
M3000 054 
M3000065 
M3000056 
M3000067 
M3000068 
M3C00Q69 
M3Q0Q07G 
M3B0G071 


OUMHY 


PAGE 


DATE: 


EQUIVAL ENCES 


oef.line 

NAME 

VALUE 


RcFERENG 

ED AT 

0 0 0 0 

I 

OGFF 

(000255) 

0037, 

0 042 

Q 027 

AFNR 

00B5 

(QOOiai) 
( 00Q234) 

0 038 


0028 

ADISP 

LiOEA 

0 059 

0 0 62, 

0 029 

ELU 

00G5 

( 000.00 5) 

0 040 , 

0 0 30 

ZROBIT 

0033 

(000051) 

0049, 

0050 

0 Q31 

LPMSK 

0Q02 

(000002) 

0 055 

0 05 7 

0 G 32 

ESTATi 

00 0 9 

(000009) 

0 0 54 , 

0 G33 

ONEBIT 

0023 

(000035) 

0 055 

0 059 

0 03 4 

ACOMPR 

0 0B6 

( 000182) 

0 0 44, 

0035 

AHONI 

0 0 F ^ 

(0 00244) 

0 0 66 



LINE NUMBER 


J 0 6 


-+ » 


0065 


01/27/99 


DUMMY 


PAGE 


4 


DATE: 01/27/99 


\ i 


n 

O 

G 

O 

C 

o 

o 

o 




o 

o 

o 


SYMBOLS 


DEF. LINE 

NAME 

ADDRESS 

0 017 

IDUMMY 

000 0 

0018 

CDUMMY 

(3 001 

0 019 

EDUHMY 

09 0 2 

0 0 4 6 

LUDUMY 

OOOA 

001^7 

ASALT 

OOOB 

0 068 

ADRPHY 

0020 

0 0 69 

BUSY 

0021 

0 07G 

ALOGl 

0022 


RE^ERENSED AT LINE NUMBER 
■ 0017 

00 18, 0 045, 0069 
00 19 

0 0 43 

0058, 0061 
0 0 63 

0043, 005? 


C 

O 


o 

o 

o 

TT 

'O 

o 

o 

o 


o 


o 



o 

0 

1 ) 


o 


DUMMY 


=^AGE 5 


DATE: 01/27/99 


EXTERNALS 


DEF.LINE NAME VALUE 

0 022 LOGl 0022 
0023 DUMALT ODOA 
0 02A LOGIA 0011 


REFERENCED AT LINE NUMBER 

0.0 70 , 

0 0 A6 

0041, 0053 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

c 

C3 

o 

c.) 

'l 

o 

o 

o 

o 

C'.' 


o 


DUMMY 


PAGE 


6 


DATE! Gl/27/99 


o 


A L 

P H A 

B E T I 

GAL 

SORT 

0 F 

S Y M B 

0 L S 



ACOMPR 

0 03h 

ADISP 

0028 

ADRPHY 

0 068 

AFNR 

0027 

ALOGl 

0070 

DUMALT 

0023 

E DUMMY 

0 019 

ELU 

0029 

ESTATl 

0 0 32 

I 

0 0 0 0 

LUDUH Y 

0046 

0NE3IT 

0033 

ZROBIT 

0030 






o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


AMONI 003 5 ASALT G0A7 BUSY 0069 CDUMMY 0018 

lOUMMY 0017 LOGl 0022 LOGIA 0024 LPHSK 0031 

u 

O 

0 

1 

o 

o 

o 

o 

o 

o 

o 

o 



OSBUFR 


PAGE 1 


DATEJ Oi/27/99 


00 0 1 
0002 
00 03 
CG 04 
00 0 5 


NAM DSBUFR . DECK-ID H32 MSOS 5.C 
OUTPUT MESSAGE BUFFERING PACKAGE 
MASS, STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


00 0 7 
00 0 8 
00 0 9 
0010 
0011 
0012 
0013 
0 j 1 4 
0015 


0016 


0017 


0 0 39 
0 038 
G 0F4 
0 OEA 
0 0 85 
O0B6 
Q u 02 
0 0 22 
0 0 23 
0 0 33 
OOEF 


ISBJFR 

CBWRIT 

CBREAD 

80UTC 

LOG 

ALTOEV 
R£JECT(57) 
XFRERR{56) 
AMONI (5F4) 


DRIVER INITIATOR ENTRY 
MM WRITE COMPLETION ENTRY 
MM READ COMPLETION ENTRY 
BUFFER OUTPUT COMPLETION ENTRY 
EF ERROR LOGGING ROUTINE 

•MASS MEMORY ERROR CODE 
STORAGE BUFFER FILLED ERROR 
,ADISP($EA) ,AFNR($B5) ,ACOHPC($B6) 


EQU LPMSK (S02) ,ZERO f $22 ) , ON EBI T { S23 ) , ZROB IT ($ 33 ) 


EQU LEVEL ($EF) 


0019 


BUFFER DRIVER - INITIATOR ENTRY 


0021 PGu DO 4QFF 

0022 POOGl 54B5 
Qj23 P0002 14EA 


ISBUFR STQ- I 
BFOl RTJ- (AFNR) 
JMP- (ADISP) 


I = ADR OF BUFFER TABLE 
FIND NEXT REQUEST 
NONE 


TRANSFER DATA FROM REQUEST TO BUFFER 


P0GG3 

F 0 0 C 4 

PO0G5 

Pu u Oo 

P0Q07 

PQOflg 

P0009 

POQCA 

PflOOB 

POGGC 

POuDO^ 

PQOGE 

POOOF 

POOIO- 

POOH 

PQ012 


E106 
C622 
OF 49 
A007 
09F1 
0111 
1859 
C203 
0FC3 
A032 
0822 
Cl GB 
910A 
0901 
0874 
611C 


LDQ- 6,1 
LDA- (ZERO),Q 
ARS 9 
AND- 7 
INA -14 
SAN 1 
JMP» BF40 
LDA- 3,Q 
ALS 3 

AND- ONEBIT+15 
TRA Q 

LDA- ELSTWDiI 
SUB- EGCORtl 
INA 1 
EAQ A 

STA- CONTRL,! 


REQUEST ADDRESS 
REQUEST CODE 


MOTION 

YES, COMPLETE 
GET MODE SIT 

SAVE 

SAVE 


ADO MODE TO NUMBER OF WORDS 
LENGTH OF MESSAGE + 1 


o 


i 


SUMMARY-11UH3200001 
M320D002 
M32ijQ 003 
M3200QQ4 
M320000S 


O 


^-MSOS 4.1«^-^M32D 0 00 7 
^-MSOS 4. 1-^M3200Q06 
»^MSOS 4.1^^M3200009 
^^MSOS 4.1’^'*^M320 Q310 
♦^MSOS 4.1’^^M320 0ull 
M3200 Q12 
^^MSOS 4.1»»M3200013 
*^MSOS 4.1^*M32GQ 014 
H32Q 0015 


o 

o 

c 


M3200 015 

M3200Q17 O 


M320 0019 


»^-*^MSOS 4. l*’^M32G002i 
M320G022 
M32QG023 


M32G 0 025 


M323Q027 
M3200 028 
M 320 0 029 
M3200030 
M320Q031 
M320fl032 
M32C0033 
M3200034 
«^^MSOS 4. OM320Q035 
’^^MSOS 4.0M320Q036 
^^MSOS 4. 0M3200037 
^^MSOS 4. OM320Q038 
M32a0 039 
M320004G 
*^^MSOS 4.0M3200a4l 
M3200042 


o 

o 

o 

o 

o 

o 

o 

o 


OSBUFR 


PAGE 


DATEJ 01/27/99 


2 


0 3 43 

P0013 

AO 11 



AND- LPMSK+15 

0 0 4“+ 

P0Q14 

0901 



INA 1 

0 Q 4 5 

P0G15' 

6118 



STA- OLEG, I 

0 0 + 6 

P0G16 

C112 



L D A- F I'RST , I 

Ou +7 

P0017 

911B 



SUB- STOR, I 

0348 

P0Q18 

0102 



SAZ BF10-»-l 

0 0 49 

P0019 

0128 



SAP BFll-^-1 

GO 5 u 

POOIA 

1316 



JMP’^ 8F12 

0 0 5 2 

PQOIR 

Clio 


BFIO 

LDA- LOCB, I 

00 53 

POQIG 

6112 



, STA- FIRST, I 

005 4 

POOlO 

6124 



STA- READ, I 

0 0 5 5 

PO 31E 

611B 



STA- STOR, I 

0 0 5 6 

POQIF 

Gill 



LDA- ENOB,I 

0 3 5 7 

P0020 

6113 



STA- LAST , I 

QG58 

P0021 

911B 



. SUB- STOR, I 

GG39 

P0Q22' 

9118 


8F11 

SUB- OLEG, I 

0 G 3 0 

P0Q23 

■J 131 



SAM ERRl-^-1 

00 61 

P0024 

1819 



JMP» 3F30 

0063 




>(■ 


QQ65 

P0 025 

0 A39 


ERRl 

ENA REJECT 

006 6 

P0G26 

El 05 


ERR2 

LDQ- ELJ,I 

0 05 7 

P0027 

0FA6 



. QLS 6 

0 0 6 8 

P0 028 

0872 



EAQ Q 

00 59 

P0 029 

C109 



LDA- ESTATl, I 

00 7 0 

P0 02A 

BO 32 



EOR- ONEBIT+15 

0071 

P002B 

6109 



STA- ESTATl,! 

GO 72 

PQu2C 

5400 

X 


R T J+ L 0 j 


P002D 

7FFF 

X 



0073 

P0Q2E 

1400 

X 


JMP+ ALTDEV 


P002F 

7FFF 

X 




LENGTH OF MESSAGE + 2 
EMPTY 

CHECK LOWER AREA 
CHECK UPPER AREA 

RESET BUFFER POINTERS 
NO FIT 


^»MSOS 4.0M32000L3 
M320Q 044 
M32U0Q45 
MS200a46 
M3200047 
M3200048 
M3200Q49 
M320005G 


M32Q0052 
M3200053 
' M3200054 

M3200055 
M32G 0 056 
M32D0 0 57 
■ M3200058 
M3200059 
M3200DB0 
»^HSOS h.1^’M3200u61 


REJECTED REQUEST 


M32Q0063 


ERROR CODE 

SET ERROR FLAG IN PDT 
LOG ERROR IN EF 


H32000b5 
M320 0 0o6 
M320Q067 
M 320 0 068 
^^MSOS 4.1^^H320QQ69 
»^MSOS L.i^^^MSEOOQTO 
^^MSOS 4.i»-M320007l 
^^MSOS u,i«-^M320 0 072 


GO TO ALTERNATE DEVICE HANDLER 


M320 0 073 


0075 P0030. Gill 
0Q7& P0031 911B 
0077 P0032 9118 
0Q78 PQ033 0129 
0379 P0Q34 C112 

0080 P0035 9110 

0081 P0036 9118 
0032 PG037 0121 
0383 P0038 18EC 


0085 P0039 CllB 

0036 P003A 6113 

0037 P0G38 Clio 


8F12 

LDA- ENDB,I 
SUB- STOR, I 
SUB- OLEG, I 

IF DATA 


SAP BF30---1 
LDA- FIRST, I 
SUB- LOCO, I 
SUB- OLEG, I 


SAP BF16-»-l 

IF DATA 


JMP^ ERRl 

REJECT 

BF16 

LOA- STOR, I 
STA- LAST, I 

LAST = 


LDA- LOCB, I 

STOR = 


FITS ABOVE STOR, GO TO 30 ^^MSOS 

FITS BELOW FIRST, GO TO 8F1 6 

STOR 

LOCB 


M 32 3 0 0 7 5 
H 320 0 Q76 
H32Q 0 07 7 
4. l’^ *^193200 078 
M320Q079 
M3200080 
M3200081 
M320Q 082 
M3200083 


M3200085 
M 3200086 
M3230087 


0 J 38 


0090 


0092 
Q093 
0 j 9 4 
0095 
0 J 9 6 

0097 

0098 

0099 
0 lu u 
OiOl 
G1C2 
utQ 3 


GIQ 5 


0iu7 

0108 

0109 

aiic 

0111 

0112 


0114 

0115 
01 1 b 

0117 

0118 
0119 
012Q 
U121 
0122 
0123 


0125. 
012 b 
G127 
012 8 

0129 

0130 


0132 

0133 


DS8UFR 


PAGE 3 


DATE; 01/27/99 


PG03G 

611B 


STA- STOR»I 




.¥• 

BUFFER INPUT 

handler 

P0Q3D 

U AOl 

8F3G 

ENA 1 

SET UP TO TRANSFER CONTRL TO BFR 

P003E 

61 18 


STA- OLEG, I 


P0 03F 

a A 1 C 


. ENA CONTRL 


PQ OhU 

8QFF 


ADO- I 


P0041 

6119 


STA- DART, I 


P0042 

GOFF 

BF31 

LDA- I 


P0043 

0914 


IN A DPLO 


PG044 

68 03 


STA^ BF32 


P 0 0 4 5 

5 4-F4 


RTJ- (AMONI) 

INITIATE MM WRITE 

PO 0 46 

200 0 


NUM $2000 

PART 1 INDIRECT 

P0047 

0 OQQ 

BF32 

NUM 0 


PQ048 

14EA 


JMP- (ADISP) 



H 323 0 088 


»^MSOS 4.1’^^M3200 090 


M32G0092 
M3200Q93 
M3200094 
H3200095 
M320 0 096 
M3200097 
H320a098 
M32QQ099 
M3200100 
^^HSOS 4.QM32QQi0i 
M32G0102 
H320010 3 


PO 049 

09E8 

* 

CBWRIT 

INA -DPLO 

P004A 

60FF 


STA- I 

P0Q48 

CllC 


LDA- CONTRL,! 

PO Q4C 

G17C 


SQM BF34-^-l 

P0 04D 

0111 


SAN 1 

P0Q4E 

1811 


JMP^ BF35 

P0G4F 

ClOA 


LDA- ECCORjI 

P u 05 0 

6119 


STA- DARI, I 

PGOSi 

CllC 


LOA- CONTRL, I 

P0052 

AQ 11 


AND- LPMSK+15 

PO 053 

09FE 


INA -1 

P005 4 

6118 


STA- OLEG, I 

P0055 

DilB 


RAO- STOR, I 

P0 056 

0 8 44 


CLR A 

P0057 

611C 


STA- CONTRL, I 

P0u58 

18E9 


JMP^ 8F31 

PO 059 

0113 

BF34 

SAN 8F38-^-i 

P005A 

CUB 


LOA- STOR, I 

P0 05B 

09FE 


INA -1 

PC05C 

611B 


STA- STOR,I 

PG06O 

0 A38 

BF38 

ENA XFRERR 

PO D5E 

18C7 


JMP^ ERR2 

P0G5F 

C118 

DF35 

LOA- STOR, I 

P0060 

6118 


ADD- DLEG,I 


COMPLETION OF MM WRITE 


M32QQ105 


RESTORE I=ADDR OF 8FRTAB ^^MSOS 4 .1^-’^M32Q 0 10 7 

M 320 0 10 8 
M32QQ1Q9 

IF MM WRITE FAILED GO TO BF34 M320Q110 

M3200111 

data TRANSFER COMPLETED OK M3200112 


SET UP TO TRANSFER UATA TO BFR M320011^ 

M 320 Oil 3 
M3200116 
’^^HSOS 4. CM32Q0117 
M32a0il8 
H320 Q119 
M320C12 0 
M32Qfll21 
M32QQ 122 
M320G123 


M 320 012 5 
M3200126 
M32QQ 127 
M320012S 
M329 0i29 
M 320 0 13 0 


M 3200132 
M3200135 


STOR = STOR 4 1 
SET CONTRL = 0 

RESET STOR POINTER 
SET ERROR CODE 

UPDATE STOR POINTER 




PAGE 


4 


DATEJ 01/27/99 



M32Q0134 


M 320 013 6 


M320Q138 
M3200139 
M320014Q 
THIS BFR H3200141 

M3200142 
^^MSOS 4. 0M32Q0143 

M3Z00144 

M3200145 

M3200146 

H320G147 

M3200148 

M3200149 


M32DQ151 


M 3200133 


H32Q0155 
H3200156 
M320Q157 
M32Q 0158 
H32Q0159 
M3 20 016 0 
M3200161 


M3200 163 
M32QQ164 
M32QQ165 
M32Q 0166 
H320 0167 


^^MSOS 4.1^^M3200169 


»^MSOS A.i’^-MSZOOl/l 
M320D172 
M3200173 
M3200174 
^f-MSOS ^.uM 3200 17 5 
M 320 0176 
M320 0177 


C' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

Q 

O 

o 

o 

o 

0 

1 ^ 


o 


OSBUFR 


PAGE 


DATEJ 01/27/99 


o ■ 

0179 




COMPLETION 

OF MH READ 


013 1 

PG082 

09E2 

CBREAD INA 

-OOJTO 

RESTORE I=ADDR OF BFRTAB 

o 

0132 

PG083 

60FF 

STA- 

I 


0183 

PO 084 

0161 

SQP 

BF73--^-l 

EXIT IF READ ERROR OCCURRED 


0134 

P0085 

14EA 

JMP- 

(ADISP) 


0185 

P0086 

C124 

BF73 LDA- 

READ, I 

UPDATE READ POINTER 


0186 

P0087 

8121 

ADD- 

OUTLNG,! 



0137 

P0088 

6124 

STA- 

READ, I 


r'") 

0139 




DATA IS NOW 

IN CHARACTER BUFFER 


M3200179 


»^^HSOS A.1^^M3200181 
M3200182 
M32Q0183 

WAIT FOR RESTART M320 018if 

H3200i85 
M320 0186 
M32Q0187 


H3200189 


( 1 


n, 


O 


V 


U 

o 


o 


0191 

P0089 

C125 


LDA- 

SKELNGtl 

0192 

P0G8A 

0102 


SAZ 

3F81-»-l 

0193 

P008B 

0131 


SAM 

BF81 

0 19 

P008G 

1811 


JMP^ 

3F82 

0195 

P0080 

E12B 

BF81 

LDQ- 

ACHAR,I 

019 6 

P008E 

C622 


LDA- 

(ZERO) , Q 

0197 

P008F 

AOll 


AND- 

LPMSK+15 

0198 

P0G9D 

6125 


3TA- 

3KE LNG, I 

0199 

poogi 

C129 


LDA- 

0UTP3,I 

020 0 

P0Q92 

A03F 


AND- 

ZR3BIT+12 

Q2G1 

P0093 

6129 


3TA- 

0JTP3,I 

0202 

P009*+ 

C622 


LDA- 

(ZERO) , Q 

0203 

PO 095 

OF 43 


ARS 

3 

020*4 

P0096 

A02F 


AND- 

ONE8IT+12 

020 5 

P0097 

B129 


eoR- 

OUTP3,I 

0206 

PQ098 

6129 


STA- 

OUTP3,I 

0 20 7 

P0099 

012B 


RAO- 

ACHAR,I 

020 8 

P009A 

C12A 


LDA- 

OUTP4,I 

02D9 

P0098 

0 9FE 


INA 

-1 

021u 

P009C 

612A 


3TA- 

0UTP4,I 

0212 

P009D 

C125 

8F82 

LDA- 

SKELNG, I 

0213 

P0Q9E 

912C 


SUO- 

LCHAR,I 

0214 

P009F 

6125 


STA- 

SKELNG, I 

0215 

POO Au 

0106 


SAZ 

8F33-^-l 

0216 

PO OAl 

012E 


SAP 

3F84“^-1 

0217 

PQ0A2 

8124 


ADD- 

READ.I 

0218 

P00A3 

6124 


STA- 

READ, I 

0 219 

P00A4 

C12A 


LDA- 

OUT34,I 
SKELNG, I 

0220 

P00A5 

8125 


ADD- 

0221 

POOAb 

612A 


STA- 

0UTP9,I 

0222 

PQ0A7 

C124 

BF83 

LDA- 

READ, I 

0223 

P00A8 

6112 


STA- 

FIRST, 1 

Q22-* 

P0QA9 

9113 


SUB- 

LAST, I 

0 225 

PO GAA 

0115 


SAN 

BF34-^-1 


NtW HtSSAGc. 


TOTAL MESSAGE LENGTH 
LOGICAL UNIT 
CLEAR MODE BIT 

MODE TO USE AND WORDS+1 


STORE NEW MODE 

ADJUST BFR ADDRESS OVER FIRST WORD 


ADJUST LENGTH OF TRANSFER 


LENGTH REMAINING 
COMPLETE 

MESSAGE NOT COMPLETED 

ADJUST LENGTH AND READ POINTER 

TO ACTUAL LENGTH OF MESSAGE 


FIRST = READ 


NOT END OF BUFFER 


M32 0 
M32Q 
M32 0 
M32G 
M32Q 
H320 
M320 
M320 
H320 
M32Q 
H32 0 
M32D 
M320 
M32S 
M32Q 
H320 
M320 
M323 
M320 
M320 


M320 

H320 

M320 

M320 

M320 

H32Q 

M32Q 

M320 

M320 

M32Q 

M320 

M320 

M32G 

M32Q 


0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 
020G 
0201 
0202 
0 203 
0 20 4 
0205 
0 206 
0207 
Q2Q8 

0209 

0210 


0212 

0213 

0214 

0215 

0216 

0217 

0218 
0219 
0 22 0 
0 221 
0222 

0223 

0224 

0225 


/ N 
1 t 


o 

o 

o 

o 

o 


o 

o 

C' 

o 

o 

o 

o 

o 

o 


o 



DSBUFR PAGE 6 DATE! 01/27/99 


0226 PQOAB Clli 

0227 POQAC 6113 
Q22o POOAD Clio 

0229 PODAE 6124 

0230 POQAF 6112 

0231 300B0 GOFF 8F84 

0232 POQBl 0926 

0233 P0082 6803 

0234 POO Bo 54F4 

0235 P0Q84 2000 

0256 PG0B5 DQuO BF85 
0237 P00B6 14EA 


LDA- 

STA- 

LOA- 

STA- 

STA- 

LDA- 

INA 

STA^ 

RTJ- 

NUM 

r4UM 

J.'IP- 


END3, I 
LAST, I 
LOG3, I 
READ, I 
FIRST , I 
I 

OUT^O 

8F85 

(AMONI) 

$2000 

0 

(ADI3P) 


LAST = ENDS 

READ = FIRST = LOCB 


INITIATE OUTPUT FRON CHAR BFR 
PART 1 INDIRECT 


o 


0239 


» CHARACTER BUFFER OUTPUT COMPLETED 


0241 PuOB? 

0242 P00B8 

0243 

0244 P00E9 

0245 POOBA 

0246 POGB0 
02M.7 POOBC 
0248 POOBD 


Q9D9 BOUTC 
60FF 

C122 

612B 

C12C 

612A 

18B2 


INA -OUTPO 
STA- I 

LDA- DAOR,I 
STA- ACHARtl 
LOA- LCHARiI 
STA- 0UTP4,I 
JMP^ BF53 


3 CARDS DELETED 

RESTORE ADDRESS OF SUFFER 

RESTORE LENGTH OF TRANSFER 
CONTINUE BUFFER OUTPUT 


o 



02 5 0 

0 0 05 

EQU 

ELJ (5) 


0251 

0 0 09 

EQU 

ESTATKBJ 


02 52 

OOOA 

EQU 

ECCOR(IO) 


0253 

QOQB 

EQU 

EL3TWD (11) 


Q25h 

0010 

EQU 

LOCBdo) 


0255 

0011 

EQU 

ENDB(17) 


0 25 6 

0012 

EQU 

FIRST (18) 


025 7 

00 13 

EQU 

LAST (19 ) 


0258 

0014 

EQU 

DPLO (20 ) 


0259 

0018 

EQU 

DLEG(24) 

o 

0250 

GQ19 

EQU 

OART(25) 


0251 

0 0 IB 

EQU 

ST0R(27 ) 


0262 

QOIC 

EQU 

C0NTRL(28) 


0253 

0010 

EQU 

DOUTO (29) 

o 

0 2 5 4 

OQIF 

EQU 

OOUT2 (31) 


0265 

00 21 

EQU 

OUTLNG(33) 


025 6 

Q0 22 

EQU 

DADR( 34) 

o 

025 7 

0 024 

EQU 

READ(36) 

Q268 

0 0 25 

EQU 

SKELNG(37) 


0259 

0 0 26 

EQU 

OUTPO (38) 


0270 

0 028 

EQU 

OUTP2 (40 ) 

o 

027 1 

0 0 29 

EQU 

OUTP3 (41) 

02 7 2 

0 0 2A 

EQU 

OUTP4 (42) 


0273 

0 0 28 

EQU 

ACHAR (43) 



o 


M 320 0 22 6 
M3230227 
H3200228 
M320 0 229 
H 320 0 23 0 
M3200231 
M32Q 0 232 
M320 0233 
M320 0234 
^*MSOS 4. 0M32Q 0235 
M320 0236 
M32Q0237 


M 3200239 


»^MSOS 4.1»^^M320Q24i 
M32G0242 
M3200243 
M320 0 244 
M32QQ245 
M320 0246 
M 3230247 
M32G0248 




Q 

r — s 

L.-' 

pi 

o 

o 

0 

Q 

o 

0,1 

o 

o 

o 

o 

o 

p') 


DSBUFR 


PAGE 


1 


DATE! 01/27/99 


02 7 4 

0 0 2C 


EQU 

LCHAR (44) 



M 320 0 27 4 

0276 




EXAMPLE OF 

BUFFER 

PHYSICAL DEVICE TABLE MACRO FOLLOWS 

M320Q276 

027 8 


8U F " 

er mag 

FL3B,LL38, 

"MSB, 8LU, MHLU, CBSIZE 

M323 0278 

0279 



LOG 

A 



H3200279 

0280 


H- 

EXT 

ISBUFR 

BUFFER DRIVER INITIATOR 

M3200280 

0281 


V- 

EXT 

CBWRIT 

MASS MEMORY WRITE COMPLETION 

M3200281 

0282 



EXT 

C3READ 

MASS MEMORY READ COMPLETION 

M3200282 

0263 



EXT 

BOUTC 

BUFFER OUTPUT COMPLETION 

M320 0283 

0284 



NUM 

$520A 

00 

SCHEDULER CALL 

M320 0 284 

0285 



ADC 

ISBUFR 

01 

INITIATOR ADDRESS 

M3200285 

0286 



ADC 

0 

02 

CONTINUATOR ADDRESS (NOT USED) 

M3200286 

028 7 



ADC 

0 

03 

DIAGNOSTIC ERROR ADDRESS (NOT USED) 

M320Q287 

0288 



NUH 

-1 

04 

DIAGNOSTIC CLOCK (NOT USED) 

M3200288 

02 89 



NUM 

0 

05 

LOGICAL UNIT 

M32Q 0289 

0290 



ADC 

0 

06 

PARAMETER LOCATION 

M320029G 

0291 



NUH 

0 

07 

CONVERTER, EQUIPMENT, STATION (NOT USED) 

H 32 0 0 291 

029 2 



NUH 

$A4 

08 

REQUEST STATUS 

M32Q 0292 

0293 



NUH 

0 

09 

DRIVER STATUS 

M3200293 

0294 


if. 

NUH 

0 

10 

CURRENT LOCATION 

M32Q0294 

0295 



NUH 

0 

11 

LAST LOCATION PLUS ONE 

M32Q0295 

Q296 



NUH 

0 

12 

DEVICE STATUS (NOT USED) 

M3200296 

029 7 



NUH 

0 

13 

MASS MEMORY LENGTH (NOT USED) 

M32Q 0297 

0298 



NUM 

$7FFF 

14 

MASS MEMORY LOCATION (NOT USED) 

M3230298 

0299 



NUH 

0 

15 

MONITOR RETURN 

M32Q0299 

030 0 


•V- 

ADC 

'FLSB" 

16 

LSB START OF BUFFER 

M32Q0300 

030 1 



ADC 

'LLSB' 

17 

LSB END OF BUFFER 

M3200301 

030 2 



ADC 

*FLSE* 

IS 

CURRENT LSO START OF BUFFER 

M3200 302 

03 03 


*¥■ 

ADC 

'LLSB' 

19 

CURRENT LSB END OF BUFFER 

M32QD303 

030 4 



NUM 

$44AA 

20 

MASS MEMORY WRITE REQUEST (UNFORMATTED) 

H3200304 

03 0 5 



ADC 

CBWRIT 

21 

COMPLETION 

M320 0 30 5 

U306 



NUH 

0 

22 

THREAD 

M3200306 

03D 7 



ADC 

. *HMLU' 

23 

MASS MEMORY LOGICAL UNIT 

H3200307 

0 30 8 



NUM 

0 

2<+ 

NUt’fBER OF, WORDS 

M 320 0 30 8 

030 9 


¥ 

NUM 

0 

25 

STARTING DATA LOCATION 

M3Z0 0309 

0310 



ADC 

'FMSB* 

26 

MSB ADDRESS 

M3200310 

0311 


V- 

ADC 

^FLSB' 

27 

LSB ADDRESS 

M320 0311 

0312 



NUM 

0 

28 

CONTROL WORD 

M 320 0 31 2 

0 313 



NUM 

$42AA 

29 

MASS MEMORY READ REQUEST (UNFORMATTED) 

H3200313 

3314 



ADC 

C3READ 

30 

COMPLETION 

M3200 314 

0315 



NUM 

0 

31 

THREAD 

M320 0 315 

0316 


V- 

ADC 

'MHLU' 

32 

MASS MEMORY LOGICAL UNIT 

M3200316 

0317 



NUH 

Q 

33 

NUMBER OF WORDS 

M320Q317 

0 318 



ADC 

'A^ 

34 

STARTING LOCATION (CHARACTER BUFFER) 
MSB ADDRESS 

M3200318 

0319 



ADC 

'FM3B' 

35 

M32Q0319 

032 0 


if. 

ADC 

»FL3B' 

36 

LSB ADDRESS 

M322Q320 

0321 



NUM 

Q 

37 

PARTIAL WORD OUTPUT FLAG 

M 320 a 321 

0322 



NUM 

$4CAA 

38 

BUFFER WRITE REQUEST (FORMATTED) 

M3200 322 

0323 


if. 

ADC 

BOUTC 

39 

COMPLETION 

M32Q0 32 3 

032 4 



NUM 

0 

40 

THREAD 

M32G0 32 4 


o 


DSBUFR 


PAGE 


i I 


o 


0325 


AOG 

'BLU' 

0326 


NUM 

0 

0327 

■ V - 

A DC’. * 

■ 'A ' 

0328 


AOG. 

• 'C8SIZE* 

0329 


BZS 

. »A' ( 'CBSIZE' 

0330 


EMC 


0 331 


END 


PGM= OOBE ( 

190 ) 

COM = 0000 ( Q) 


41 , 

42 . 

43 . 

44 
45 - 


OAT 


date: 01/27/99 


OUTPUT LOGICAL UNIT 
NUMBER OF . WORDS 
STARTING LOCATION CCHARACTER 
CHARACTER BUFFER SIZE 
CHARACTER BUFFER 


BUFFER) 


M 320 0 32 5 
H3200 326 
M3200327 
M320 D 328 
M5200329 
M320033G 
M320Q331 


000 0 ( 


0 ) 


O 

■ o 

; 

(■^'1 


u 


c;- 


o 

o 




o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

c 

o 

o 

G 


DSBUFR 


PAGE 


9 


DATE: ai/27/99 


f ' 

V.--' 


1 


o 

E Q U I V 

A L E N 

C E S 








o ■ 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINEi 

NUMBER 




' GGCQ 

I 

QOFF 

(0UD255) 

0021, 

009 5, 

0097, 

0108, 

Q145, 

015 5, 


0013 

REJECT 

0039 ' 

1000057) 

0 0 65 







. 0Q14 

XFRERR 

0038 

(000056) 

0 129 







0015 

AMONI 

0GF4 

( OG 0244) 

0100 , 

OlH 6, 

ij 1. / 4 5 

0234 




0015 

AOISP 

■ ODEA 

(000234) 

0 023 , 

010 3, 

0161, 

0 1 7 7, 

018*,, 

0 237 


0015 

AFNR.’ 

UGB5 

(000181) 

0 0 22 






o 

0 015 

AGOHP.C 

Cl 0 8 6 

(000182) 

0138 






0016 

LPHSK 

0002 

(OQ0002) 

0G43, 

0117, 

0197 





0 016 

ZERO 

0022 

{ 000034) 

0G28, 

0196, 

0202 





0016 

ONEBIT 

00 23 

{ 000035) 

0 0 36, 

0 070 , 

0204 




0 

0016 

ZROBIT 

0033 

(000051) 

0 200 






0017 

LEVEL 

QOEF 

(0GG239) 

0142 







0 250 

ELU 

0D05 

( 0QQ005) 

0 0 66 







0 251 

ESTATi ' 

000 9 

( 000009) 

0 0 69, 

0071 






0252 

ECCOR 

00 0 A 

(OGOQIO) 

0039 , 

0114 






0253 

ELSTWO 

00 OB 

(oaooii) 

0038 







0254 

LOCB 

QCIO 

{ GOOulo) 

0 0 52, 

0D83, 

U u 8 / , 

0228 




0 2-5 5 

^ ENDS 

QOll 

{ 000017) 

3 0 56 , 

6 Q 7 5, 

0226 




o 

0256 

- IRST 

0012 

( OQ0G18) 

3 0 46 , 

D u 5 3 , 

0u79, 

0157, 

0223, 

0 23 0 

0 25 7 

LAST . 

0013 

( QOC019) 

3 057 , 

0 0 86, 

0 22-t, 

0227 




0 258 

OPLO 

0014- 

(C0002Q) 

0093 , 

0107 






’ 0259 

OLEG 

0018 

(000024) 

3 0 -+5, 

0059, 

■3 077, 

0081, 

3 093, 

0 119, 

.•-V 

0 26C 

DART 

0019 

( OD0025) 

0 0 96, 

0 11 5 






0 261 

3TOR 

flOlB 

(00J027) 

0 047 , 

0 05 5, 

O.u 58 , 

0 076, 

0 0 85 , 

0 088, 


0262 

CON TRL 

0 0 1C 

(000028) 

0 0'42 , 

0 3 9 4, 

D109, 

u 1 1 6, 

0 122 



0 263 

DOUTO 

0 0 ID , 

( 0GQQ29) 

0172, 

0181 






•" 0264 

DOUT2 • 

OGIF ^ 

(000031) 

3 14Q 







■ 0265 

DUTLNG 

0021 

( 000Q33) 

0164, 

0186 






0266 

QAOR 

0022 

( QQQ034) 

0 167, 

0244 






0 267 

READ 

002 4 

(QOB036) 

0 0 54, 

0185, 

U187, 

0217, 

0 213, 

Q 222, 

o 

0268 

SKELNG 

002 5 

(Q0OG37) 

0191, 

0198, 

0212, 

0 214, 

0220 


0269 

OUTPO 

0026 

(000038) 

S‘232, 

0 241 






0 27 0 

0UTP2 

0028 

£000040) 

0139 







0271 

0UTP3 

0029 

( 000041) 

0199, 

0 201, 

0^20 5, 

0206 



o 

' 0272 

0UTP4 

0 0 2 A 

{ OQQQ‘,2) 

0165 , 

020 8, 

0210, 

G219, 

0221, 

0 24 7 

D 273 

ACHAR 

002B 

(000043) 

0 165 , 

0195, 

0207, 

0245 




3 274 

LCHAR 

0 0 2C 

(000044) 

0 163, 

0213, 

Q24o 





o 


u 


o 


(jl71, 0182, 0231, 0242 


D133 

C120, 012 5, 0128 , 0132, 0134, 0156 


0229 


L2 

O 

o 

o 

o 

o 

o 

o 

o 

G 

O 

O 

O 



OSBUFR 


PAGE 10 


DATE: 01/27/99 


S. Y M B 0 L S 


DEF .LINE 

.NAME . 

address 

RE- EREN 

0 007 , 

ISBUFR 

OOQu 

0007 

' 0 0 0 8 

CBWRIT 

0049 

0008 

0 0 09 

3 BREAD 

0082 

0 0 09 

OulO 

80UTC 

0087 

0010 

0 022 

BFQl . 

(] 0 Q 1 

0149 

0 052 

BFIG 

0018 

fl 048 

0 059 

BFll 

0022 

0 0 49 

0 065 

. ERRl 

0025 

0 0 60 , 

0 066 

ERR2 

0026 

0130 

0075 

aFi2 

0030 

0 0 50 

0085 

■ 8F16 

0039 

0082 

0092 ... 

..3F30 

OQ3D 

0061» 

u 09 7 

. BF31 

0042 

0123 

Q 102 

.BF32 

0047 

0099 

0125 

'8F34 

0059 

3110 

0129 

■BF3 8 

005D 

0125 

0132 

BF35 

0 0 5F. 

0112 

0138 

BF40 

0062 

0 0 33 

3 14 7 

BF42 

0 G 6 C 

0144 

0 149 

BF41 

006E 

0141 

0 15 5 

BF5C 

006F 

0148 

015 6 

BF53 

0070 

. .0 248 

0161 

BF51 

0 0 7 5 

9158 

0163 

BF52 

007 6 

0160 

0 17 6 

BF71 

u 0 8 0 

'. 0173 

Q 1 8 5 

BF73 

0 3 8 D 

0183 

d 195 

BF81 

0 0 80 

3192, 

G212 

BF82 

009D 

0194 

0222 

BF83 

00A7 

0 215 

0 231 

BF84 

OOBO 

-3 216, 

3 236 

BF85 

00B5 

0 2 33 


ED AT LINE NUMB 


0.083 


0078 


0193 

0225 


ER 


OSBUFR 


PAGE 11 


DATE: 01/27/99 


externa LS 

DEF.LINE NAME VALUE 

0011 LOG 0 02D 

Q012 ALTDEV Q02F 


REPERENGED AT LINE NUMBER 

0 072 
0073 


DSBUFR 


PAGE 12 


date: Ql/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

ACHAR 

0273 

^ ACQMPC 

0015 . 

ADISP 

0015 

BF12 

0Q75. 

BF16 

0 085 - 

QF30 

0092 

BF41 

0149 

■ BF42 

Q147 

8F50 

0155 

B- 32 

0212 

BF63 

0 222 

• BF84 

0 231 

.DART 

G250 . 

DLEG 

0259 

□OUTfl ■ 

0 263 

ERRl 

0065 

ERR2 

0 0 66 

ESTATl 

0 251 

LOS 3 

0254 

LOG 

0011 

LPMS< ' 

0016 

READ 

0267 

REJECT 

0 013 

SKELN15 

0268 


SYMBOLS *** 


A FNR 

0015 

• ALTOEV 

0 012. 

A MO MI 

0015 

BF31 

G097 

' BF32 

010 2 

BF34 

0125 

8F51 

0161 

BF52 

0163 

BF53 

..Q15.6 

8F85 

0236 

BOUTC 

OJIO 

C BREAD 

0GQ9 

00UT2 

0264 

. DPLu 

0256 

ECGOR 

.0252 

FIRST 

0256 

I 

oaao 

TSBUFR 

oao.7, 

ONEBIT 

0016 

OUTLMG' 

0265 

OUTPO 

0269 

STOR 

0261 

XFRERR 

0014 

ZERO 

0 O'l 6 


BFQl 

0022 

BFIO 

0052 

EFll 

0059 

BF35 

0132 

BF3 8 

0129 

BF4 0 

0138 

BF71 

0176 

BF73 

0185 

BF81 

0195 

CBWRIT 

0 0 0 8 

GONTRL 

0262 

OADR 

0 2 6 6 

ELSTMD 

0253 

ELU 

0 25 0 

EMD8 

0 255 

LAST 

0257 

LCHAR 

0274 

LEVEL 

DC17 

OUTP2 

ZROBIT 

0270 

0016 

0UTP3 

0 271 

0UTP4 

0272 


aooi 
00 0 2 
0 j 0 i 
00 0 4 


DCOSY 


PAGF 


date: 01/27/99 


* 


NAIi OCOSY DECK-IO Ho-t MiiOS 5,.0 

MASS STORAGE OPERATING SYSTEM VERSION 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRISHT CONTROL DATA CORPORATION 197o 


SUMMARYfll4^».^"-*^'^<^ 
M3400QQ2 
M3400 003 
M3430004 


0 G 0 0 


Ap- 


0 0 0 7 




CO 0 9 



EXT 

0 Q 1 G 



ENT 

uu 1 1 



EXT 

03 12 



EXT 

QG13 



EXT 

QOli^ 

0 0 08 . 

WORDS 

EQU 

0.15 

0 0 02 

L PM ASK 

EQU 

' 0016 

0012 . 

NZER9, 

EQU 

0017 

0 0 22 

ZERO ■ 

EQU 

0018 

002F 


EQU 

0019 

0 0 31 


EQU 

0 b 2 0 . 

0 0 46 

TEN 

EQU 

G j 2 1 

■ 0 OEA 

DISP 

EQU 

/ 00 22- ■■ ■ ■ 

0 0B5 , 


EQU 

0 3 2 3 

0 0E9 

EXT6V4 

EQU 

0 0 2 4 

0086 . 


EQU 

0025 

0 0F4 

REQPRO 

EQU 

0G26 

COGS 


EQU 

Cfl27 

0 0 06 


EQU 

G J 28 

0QQ8 


EQU 

0 3 29 

00 09 


EQU 

0 3 3 0 

OOOA 


EQU 

0G31 

QflQB 


EQU 

0 3 3 2 

OOGC 


EQU 

0C33 

CGIO 

ELIN< 

EQU 

0G34 

0011 

SEQNJM 

EQU 

0035 

fi012 

ID 

EQU 

0038 

0015 . 

NWORDS 

■ EQU 

00 3 7 

u016 . 

HOLL?_ 

Em 

0038 

0017 . 

INPLR 

EQU 

0 0 39 

0018 . 

RWFG 

EQU 

0G40 

SQ19 ' 

PCN5- . 

EQU 

‘ 0b41 

OOIA 

FSTCHR. 

EQU 

C042 

OOIB . 

• ENDDCK 

■EQU 

. .0 0 43 

OQIC 

■ ADINP'B', 

EQU 


OOID 

XNPPTR', 

EQU 

,',...0C4 5 ■ 

, . ■ flOlE 

HOLPTR^ 

EQU 

^ Q 04d 

, . ■ DO IF 

FT I ME 

EQU 

0047 

0020 

SFLG 

EQU 

0048 

■ 0017 ■ 


EQU 

0 049 
0 05 0 

OOlO 


EQU 

0 0 1C 


EQU 


CSYDRV (COSY DRIVER) 
PROGRAM BASE-MSOS4.0 


MA330 0 

ICOSY 

LOGIA 

ALTDEV 

MAKEQ 

WORDS (8 ) 

LPMASK( 12) 

NZE RO (S12) 

ZERO ($22) 

BIT12 (B2F) 
BIT14 ($31) 

TEM ($43) 

OI3P($EA) 

AFNR($85) 

EXT3V^($E9) 

COMREQ($B6) 

RE0^R0($F4) 

ELJ (5) 

ERTR(6) 
EREOSKS) ■ 
ESTATK9) 
ECCOR(IG) 
ELSTWDt 11) 
ESTAT2(12) 
ELINK(lb) 
SEONUMt 17) 

ID( 18) 
NW0R0S(21) 

H GL L R ( 2 2 ) 
INPLR(23) 

RW- G( 24) 

.PGN5F (25) 
.FSTCHR{26) 
EN0DCK(27) 
ADIMPB(28) , 
INPPTR(29) 
HOlPTR(30) 
FTIME(31) 
SFLG(32) 
CSYLRUNPLR) 
CSYPTRC INPPTR) 
ADC5YB( ADINPB) 


INITIATOR 


VERSION 1.0. 


M3400QQ6 

M54QCUQ7 


M 340 0 00 9 
’^^MSOS -r.l'^‘^M540Q01G 
M3400011 
M3400012 
M34C0013 
M340 Q014 
M3^0Q015 
M34C001& 
M3^a0017 

■ M34G0Gie 

. M3UDQ019 

' ■ M 340 002G 
M3i*D0u21 
M3U0 0022 

’ M3430023 
M34DQ024 

'■ M3400025 

■ M 340 0 026 
M34&0Q27 
M3400 028 
M34U0G29 
M340 0 03G 
M34QQu31 

"M3400032 

■ M3400Q33 
M3400034 

’ ' " H34QQ035 

M3400Q3& 
M34Q0037 
M3400038 
H340uG39 
M340 0 040 
M3400041 
M3400042 
H 3 4b 0 043 
H34G0044 
M 340 0 045 
M3400 046 
M340a047 
H3400Q43 
M340 0 049 
M34G0G5G 


□ COSY 


PAGE 
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DATE: 01/27/99 


G052 

POQQQ 

40FF 

ICOSY 

STQ-. 

I 

INITIATOR. 

''4MSOS 

4. l''4,M 3400052 

CG53 

•POOGl 

58 01 


RTJ-s^ 

''^ + 1 

LOCALIZE, MAY BE CORE RESIDENT 

''''MSOS 

, 4.1.’^ '^M340 0 05 3 

0G5 4, 

P00 02 

.0 0 0 0 - 


NUM 

0 . . 



4.1*^H340Q054 

03 5’5' 

P0G03 iC8FE 


LDA^ 

»-l 


»*MSOS 

4.1'*‘''M3400 055 

0 D 5 6 ■ 

P 0 0 0 + 

09FD , 


INA 

-2 


''''HSOS 

4.1«-^M3400Q56 

00 5 7 

POQuE 

5201 


STA- 

i»a 

STORE INITIATOR 

''^MSOS 

4.i'''^M34u0057 

0058 

PD006 

■8812 


ADD^ 

ADRTAB 

CALCULATE ABSOLUTE ADDRESS. 


M34Q 0 058 

00 5 9 

pooor 

5800 


STA 

WRED + l 



M 3 4 .] 0 Q 5 9 


PO 008 

0CC8 



, 




G050 

P0009 

8310 


ADD^ 

ADRTAB+1 



M 340 0 0 6 0 

0u5i 

POOOA 

6800 


STA 

MRQ+l 



M34C 0 061 


PQOOB 

GODS 







G052 

POuOC 

880E 


A00» 

ADRTAB+ 2 ■ 



M34Q0062 

03 53 

POOCD 

68 55 


STA^ 

GSYAOR 



■' M34G0 063 

00 D 

PG uO E 

8 8 OD 


ADO''- 

ADRTAB+3 



M3400 0&4 

C D 5 5 

POO OF 

68 00 


STA 

RREDH 



' M340Q065 


POGIO ■ 

-0 1 60 






' 

0Cb6 

POOH- 

8808 


ADD'' 

ADRTAB+4 



M3400 066 

DQ57 

P0012 

68 4F 


STA''^ 

ENDAD R 



M 34 0 0 06 7 

0 G 6 8 

P0Q13 

COOO 


LDA 

= N0 



■. M3400068 


P0014 

0 0 00 







00 59 








", M3400059 

0070 


0014 P 

BUSY . 

EQU 

3USY(''-13 



M34G0 07Q 

0071 


0014 P 

LPHYT B 

EQU 

LPHYTBC''-!) 



M3400071 

Op''?" 



¥ 





M340 0 0 72 

u j 7 iff ■ 

■P0015 

0111 


SAN 

■ 1 

COSY DRIVER BUSY. 


■■ M3400073 

007=+ 

POO 1,6 ■ 

1810 


JHP» 

INGSYl 

NO. 


M34a0 07 4 

0075 

PQ017 

14EA 


JHP- 

IDISP) 

YFS. 

' 

' M3400075 


0O77..PflO18 

00D6 

■ ADRTAB.. ADC 

WCO-ICOSY 

4.1^^H34u0077 

0 0 78 POO 19 

QC15 

ADC 

MCM.P-WDO 

M3400078 

0079. POOiA 

flfllQ 

ADC 

CSYREC-MCMP 

M3400079 

00 8 0 P0018 

00 7B 

ADC 

RCl-CSYREC 

M340Q080 

OuSl POOIC 

0 0 2B 

. ADC 

ENDREC- RCl 

M3400031 


008 3 

POOID GllG 

I NOSY 2, 

LOA- 

iELINK,! 


' H340.0 083 

0 0 8,+ 
GD85 
0 0 8 6’ 

POOIE’ 6QFF 
POOIF •88F4 
P002 0:0101 


STA- 

EOR'' 
S AZ 

LPHYTB 

in:.sy3 

. ALL PHYST8S CHECKED. 

" M34G0084 

M 340 0 086 
M3400086 

OS 3 7 
Qu 88 

P0021 -180D 
P0022. OAOO ’ 

IHCSY3 

JHP'^ 

ENA 

INSSIO 

0 

YES. 

M3400087 

M3430Q88 

0 0 39 
0 0 9 0 

P0023 68F0 
POG24 1400 X 


STA'' 

JMP4 

BUSY 

MAS3Q0 

RELEASE BUFFER 

H3400089 
'"'MSOS 4. l'"'M340009G 

0 0 91 

P0025 7FFF X 
PC026 48E0 

INCSYl 

STQ" 

BUSY 

NO. 

M3400Q91 


DCOSY 


P4GE 


3 


date; Dl/27/99 


o 


P0Q27 
PO Q28 
P0 029 
PQ02A < 
PO G2B 
P0Q2C 
P0G2D 
pa Q2E 
POuZF 
PUQ30 
Pu03i 
P0032 


CilF 
0122 
53 00 
016B 
CllC 
6800 
Qlf-7 
5AB5 
18ED 
ClOB 
9iOA 
6115 


INCS5 


INCSIO 


LDA- FTI'IE,! 
SAP INCS5 
PTJ RESET 

LDA- A.DI'JPB,! 
Silk RRB 


RTJ- 

JMP^ 

LDA- 

SUB- 

STA- 


( AFNR) 
INCSY2 
■EIST.HD, I 
c. C S Q R * I 
NWOROS, I 


RESET DRIVER FLAGS. 


SET THE BUFFER ADDRESS. 


NUMBER OF WORDS REQUESTED 


M3400 092 
M3400093 
M3400094 

M3400095 

M34Q0Q96 

M3400Q97 

M3400098 

H34QQ099 

M340Q1D0 

M340010i 


P0033 
P0034 
PO 03 3 
PO Q 36 

PQQ37 
P0038 
P0039 
P0Q3A 
P003B 
PO 03C 
P003D 
P0 03E 
■P0 03F^ 
PD040 
P0041 
^ P0042 
PQ043 
P0044 
,P00h5 
POQho 
P0047 
P0043 
P0C49 
PO Q4A 

P004B 
P004C 
P004D 
PO G4E 
PGQ4F 
POO 50 
PC051 
PQ 05 2 
P0G53 
P0 054 
POO^B 


Ei06 

C622 

A oao 
icoo 

0 0 36 
98FE 
0111 
182A 
E1D9 
OF 61 
0121 
180E 
C118 
0104 
CllF 
0112 
0 A05 
1838 
CCOl 
E6E9- 
5873 
6800 
012A 
18 0 0 
Q QB7 

C118 

0116 

CilF 

0111 

13F2 

,E800 

01F7 

4117 

uC02 

E6E9 

5864 


lOPOl 


IOP03 


IOPQ + 
IOP05 


IOP13 


lOPil 


IOP12 


LOQ- EPTR,I 
LDA- iZERO),Q 
AND . =N$1CG0 

EQU N1C{^-1) 
SUB^ NIC 
SAN lOPOl 
JMP’^ IOP20 
LOQ- ESTATl,! 
LRS 1 
SAP IOP03 
JHP^- lOPlO 
LDA- RWFG,I 
SAZ IOP05 
LDA- FTIME,I 
SAN IOP05 
.ENA 5 
JMP» IOP21B 
ENQ 1 

LOQ- {EXTBV4),Q 
RTJ^ TYPDEV 
STA RLU 

JMP INI 


LDA- 

■SAN 

LDA- 

SAN 

JHP» 

LOQ 


RWFG, I 

IOP12 

FTIHE,I 

lOPli 

IOP04 

LR3ET 


STQ- CSYLR,I 
ENQ 2 

LOQ- (EXT3V4),Q 
RTJ« TYPDEV 


GET THE PARAMETER STRING ADDRESS. 
CHECK FOR MOTION REQUEST. 


IS IT A MOTION REQUEST. 
YES. 


IS IT A READ REQUEST. 

NO. 

YES. 

LAST OPERATION A READ. 

FIRST REQUEST MADE ON PRESENT DECK. 
READ ON A WRITE UNIT . 

REPORT ERROR 
Y PS 

PfCK UP READ DEVICE LOGICAL 
CHECK TYPE OF INPUT DEVICE. 

SET HE LOGICAL UNIT. 


LAST OPERATION A WRITE. 

NO. 

WRITE ON A READ UNIT. 

RESET THE LEFT/RIGHT CHARACTER POINTER 
YES. 

WRITE LOGICAL UNIT NUMBER. 

CHECK TYPE OF OUTPUT DEVICE. 


M3400103 

M34001G4 

M34G01D5 

M34Q 0106 
M3400 107 
M34Q0108 
M34uai09 
M3400110 
H340G111 
M 340 Oil 2 
M3400113 
M340G114 
M3400115 
M 343 Oil 6 
H340ail7 
M34UQ118 
M340Q119 
M3‘+00120 
M34D0121 
M34Q0122 
. M34QQ123 

M 340 a 12 


M34Q 

M343 

M340 

M34G 

M34D 

M340 

M34Q 


fl'12 6 
0127 
Q128 

0129 

0130 
U 131 


M34a0i32 

M3400133 

M340D134 

M34D0135 


O 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

n- 


013 6 
013 7 


0139 

0140 

0141 

0142 

0143 
014 4 

0145 

0146 

0147 

0148 


0150 

0151 

0152 

0153 
015 4 
0155 

0 1 5 o 

0157 

0158 

0159 

016 0 
0161 

0162 
016 3 

0154 

016 5 
016 6 
D16 7 
016 6 

0169 

0170 

0171 

0172 

0173 

0174 

017 5 
0176 
0177- 

0178 

0179 

018 0 

0181 
018 2 


OCOSY 


PAGE 


DATE; 01/27/99 


P0056 68 7C 
P0057 1856 


STA^ WLJ 
JMP» WNl 


* 


THIS ROUTINE SETS 
THE .ReaUESETS. 


UP THE PRIORITIES OF 


P0Q58 

0 800 


SETREQ NOP 

0 

PQQ59 

EA05 


'LDQ» 

REQTA8, Q 

P0 05A 

0522 


LDA- 

(ZERO) , I 

P0058' 

AOOA 


AND- 

LPHASK+8 

P005C 

0832 


AAQ 

Q 

P005D 

ICFA 


JMP» 

(SETREQ) 

PO 05E 

4800 


REQTAS VFD 

Nl/Q ,N1/1,I 

P005F 

4CG0 


VF 0 

Nl/G,Nl/lti 

P0050 

5C00 


VFD 

Nl/Q ,Nl/ltl 
ENDREC 

P0 061 

OlAl 

P 

ENDA3R ADC 

PC 06? 

OOFB 

P 

CSYAOR ADC 

if. 

CSYREC 

P0 063 

C118 


IOP20 LOA- 

RW" j » I 

P006t 

0101 


SAZ 

IOP2 0B 

P 0 0 65 

1818 


JHP^ 

I0P22 

P006d 

C2G4 


IOP20B LDA- 

4,Q 

P0067 

6800 


, STA 

HREQ 

P0 066 

u 3 81 




P 0 069 

0 102 


SAZ 

IOP20A 

P006A 

CilF 


. ,LDA- 

FTIHE,I 

P006B 

0106 


SAZ 

IOP21 


006C 

P 

IOP20A EQU 

IOP20A(^) 

P006C 

acQi 


ENQ, 

1 

P006D 

C6E9 


• LDA- 

(EXTBV4) ,Q 

POOoE 

a02F 


. ADD- 

BIT12 

P006F 

6379 


. STA^ 

MLU 

P0070 

487E 


STQ^ 

MCHPl 

P0071 

1831 



DOHO 

P0072 

C204 


IOP21 LDA- 

4 » Q 

P0073 

AQQO 


AND 

=N$7000 

P0Q74 

7000 




PQ075 

0F4C 


, ARS 

12 

PDQ76 

8004 


, , EOR- 

LPMASK+2 

PQQ77 

0105 


SAZ 

IOP21C 

PQ078 

8 0 05 


EOR- 

LPHASK+3 

PG079 

0103 


. SAZ 

IOP21C 

P007A 

0 AC6 


ENA 

6 

P0C7B 

1800 


IOP21B JMP 

ERRPRO 

P007C 

0 2 61 



P0D7O 

5800 


IOP21C RTJ 

RESET 

P007E 

G117 



IOP20A 

PCu7F 

18EC 


JMP^ 


FREAD 

FWRITE 

MOTION. 


MOTION ON WRITE UNIT 
2 CAROS DELETED 
NO 

SET MOTION WORD 

DO NOTHING REOUEST 
NO 

FIRST REQUEST HADE ON PRESENT DECK 


SET THE READ LOGICA UNIT. 


GET MOTION WORD 
MASK OUT FIRST REQUEST 


CHECK FOR REWIND 
CHECK FOR UNLOAD 

MOTION OTHER THAN REH Q.R UN L ON 'READ 
UNIT AND N3 END OF DECK ENCOUNTERED 

RESET PARAMETERS 

PROCESS MOTION REQUEST 


M340 0136 
^f3400137 


M3400139 
M340014D 
M3400141 
M343 0142 
M3430143 
M 340 0144 
M3400145 
M34Q0146 
H3400147 
M3400146 


M 340 0 15 0 
M340ai51 
M3400152 
M3400153 
M 340 015 4 
M 340 015 5 
H34a0156 
H3400157 
M3400158 
M340.015 9 

■ • M340 0 160 

H34001B1 

M3400162 
M34S0163 
H3400164 
M340G165 
M34QQ166 
H3400167 
M3400168 
M340Q169 
■' ■ M34Q 0170 
: M340 0171 

■ M 340 017 2 

■ M340Q173 

M3400174 
M3400175 
M34U0176 
M34aai77 
H3400178 
M3400179 
M343 0 180 

M3430181 

M3430182 





DCOSY 



PAGE 5 
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\ J 

0133 

PGoao 

0C02 

I0P22 

END 

2 



M340Q183 


013'4 

POO 81 

48 60 


STQ» 

■MCMPl 



M3400184 

o 

0135 

P0082 

C6E9 


LDA- 

(EXTBV4 ) tQ 



M3400185 

0186 

P0l83 

B02F 


EOR- 

BIT12 



M3400186 


0137 

P008-r 

68 64 


STA=*^ 

MLU 



M3400187 


C18 8 

P008 5 

AOOA 


AND- 

LPMASK+8 



M3430188 

o 

0139 

P0Q86 

0822 


TRA 

Q 


' 

M34G0189 

0190 

PQ067 

5832 


RTJ^ 

TYPDEV 


s 

M34Q0190 


0131 

P0088 

68 


STA^ 

WLU 



M34a 0 191 


0192 

P0Q89 

A02F 


ANO- 

BIT 12 

SET LAST BUFFER POINTER’ FOR 


M3400192 

r < ' ... 

- , 0193 

P0Q8A 

6300 . 


STA 

CLEARl 

THE CARO ’iPUNCH. 

M340Q193 



P008B 

0230. 







0199 

P008C 

El 06 


LOQ- 

£PTR,I 

PARAMETER LIST ADDRESS. 


M340Q194 


019 5 

P008D 

0204 


LDA- 

4,Q 

MOTION CODE WORD. 


M340019 5 

O 

0196 

PQQ8E 

685B 


srA» 

HREQ 



M340Q196 

019 7 

P008F 

0 121 


SAP 

IOP24 

ITERATION TYPE REQUEST. 


M340Q197 


0198 

P009C 

A Oil 


AND- 

NZERO-1 

YES. CLEAR ITERATION BIT. 


M34G0198 


0199 

poogi 

0 8 42 

I0P24 

CLR 

Q 



M3430199 

r\ 

020 0 

■PO 092 

0FE4 


LLS 

4 



M 340 0 20 0 

j 

u201 

P0Q93 

ODFD 


INQ 

-2 



.. M3400201 


020 2 

P0 09 4 

0148 


SQ2 

FEOF 



' H34B02Q2 


- 0 20 5 

PO 095 

0F24 


QRS 

4 



M34a02D3 

{ \ 

020 ^ 

P0Q96 

CFE4 


LLS 

4 



M3400204 


■0205 

PQU97 

ODFD 


INQ 

-2 



M 340 0 205 


0 2 0 6 

P0098 

0 1 H4 


SQZ 

FEOF 



M343Q2Q6 


023 7 

P0 099 

0F24 


QRS 




M340G207 

c 

02 0 8 

P0G9A 

0FE4 


LLS 

4 



M340 0208 

0209 

P009B 

ODFD 


INQ 

-2 



M340i32G9 


0210 

PO 09C 

0155 


SQN 

OOND 



M340021G 


0211 

P009D 

5 8 0 0 

FEOF 

RTJ 

GLEARI 



M34QQ211 

o 


PO 09E 

0 2 ID 







0212 

PQ09F 

E8C1 


LDQ^ 

ENDADR 



M340Q212 


u21o 

POOAfl 

0 AOS 


ENA 

6 



M34J0213 


0214 

■POOAl 

5825 


RTJ=>f 

WRCD 



M34a0214 


0 215 

PQQA2 

583B 

noMo 

RTJ» 

MRQQ 



M3‘+00215 


0216 

POOA3 

D846 


. LDA^ 

HREQ 

MOTION PARAMETER WORD 


M 340 0 21 6 


0 21-7 

P 0 3 A it 

■0102 


SAZ 

OOHOA 



M3400217 


Q2i'8. 

P00A5 

OAQl 


ENA 

1 


' ' ' 

M3400218 

o 

0219' 

POOAb 

611F 


STA- 

FTIMErl 



M34Q0219 

0220 


■0 0A7 P 

DOMOA 

EQU 

DOMOA } 



M34GU220 


0221 

PQ0A7 

C8 2C 


LDA^ 

WLUFl 



M34GQ221 


0222 ■ 

P00A8 

09F9 


INA 

” 6 



M3400222 

o 

■ 0223 . 

POOA9 

0112 


SAN 

DOMOl 



M34Q0223 

0224 

POOAA 

0C12 


ENQ 

18 

CLEAR THE COSY DRIVER IN USE 

FLAG . 

M340G224 


0225 

POOAB 

66E9 


STA> 

($E9) 



N34[i0225 

o 

0226 

POCAC 

18 7C 

DOMOl 

JMP’^ 

COMP 



M34QQ226 

o 

0228 

POOAD 

CllF 

WNl 

, LOA- 

FTIME,I 

IS THIS INITIAL GALL 


M3400228 

0 229 

POOAE 

0106 


SAZ 

WNQ 

NO 


M3400229 


0230 

POOAF 

6118 


STA- 

RWEG, I 

SET THE R/W FLAG TO WRITE. 


M340Q230 


o 


c 

C-' ' 

o 

n 

o 

c 

o 


o 

o 

o 

C) 





OGOSY 


PftGE 6 
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0231 

PO OBO 

E8B1 



LOQ^ 

CSYADR 


0232 

PQOBl 

0AQ6 



ENA 

6 

o 

0 23 3 

P00B2 

•5814 



RTJ» 

WRCD 

^0234 

PQ0B3 

PQ0B4 

OAOO 



ENA 

0 


0235 

611F 



STA- 

FTIMEtl 


023 6 

PG0B5 

El OA 


WNO 

LDQ- 

ECCOR,I 

o 

023 7 

POO B6 

■580 0 



RTJ 

WRITE 


P00B7 

0194 




023 8 

PQ088 

1870 



JMP* 

COMP 

o.. 

'.02 4 0 

PO0B9 

OBOO 


TYP-DEV 

NOP^ 

0 


0241 

POOBA 

480B 



STQ^ 

SAVLU 


0242 

PQOBB 

E6 GO 

X 


•LDQ 

LOGlAtQ 



POOBC 

7FFF 

X 



0 2 43 

POOBD 

0208 



LOA- 

WORDS, a 


0244 

POOBE 

AO 00 



ANO 

=N$3800 


0 245 

POOBF 

3800 




o 

POOCO 

GOBF 

p 

N18 

EQU 

N18 {'^-l ) 

0 2 4 6 

98FE 



SUB^ 

N13- 


0247 

P C uC i' 

0101 



SAZ 

TYPOl 


0 248 

P00C2 

C02F 



LOA- 

BIT12 

]' 'i 

0249 

P0GC3 

B802 


TYPOl 

E0R» 

SAVLU 

-- 

0 25 0 
0251 

P00C4 

1CF4 



JHP^ 

(TYPOEV) 


0252 

P0QC5 

OQ 00 


3AVLU 

NUM 

0 

\ 1 

0253 




>(■ 



CLEAR INITIAL FLAG 


SAVE THE LOGICAL UNIT. 
LOGICAL UNIT PHYST8. 

EQUIPMENT CLASS CODE. 


CARO DEVICE. 

NO. GET ASCII MODE BIT. 

ADO THE LOGICAL UNIT NUMBER. 


LOGICAL UNIT NUMBER BEING DEFINED. 


M34Q 0231 
M3400232 
M340 0 233 
M34Q 0 234 
M34a0235 
M3400236 
M3400237 

M3430238 


M340024Q 

M3400241 

M3400242 

M54fl0243 
M 340 0 244 

M340Q245 
M3400246 
M3400247 
M3400248 
M3400249 
M3400250 
M 34u u 25 i 
M340G252 
M3h00253 


o 




O 




o 

O 



U 

u 

O 


o 


o 


0255 P0QC6 0800 
02^0 P00C7 4800 

0257 P00C8 680B 

0258 P0uC9 EOFF 

0259 POOCA 4830 
G25C POaCB OCOl 
0251 POOCC 5888 
G262 POOCO 4802 

0253 POOCE 5hF4 

0254 POGCF 4CQQ 

0255 POQDO OODfa P 
0266 POODl QQGO 

0257 P0CD2 0000 

0258 P00D3 0028 

0259 P00D4 GQOG 
13 27 0 POODS 14EA 

0271 P00D6 C824 

0272 POOD? 60FF 

0273 POODS £iC02 

0274 P0009 581A 

0275 POODA C8F7 

0276 POeoe 5852 


WRCD 

NOP 

Q 


STQ-^ 

WR8 


STA^ 

WLJ + 1 


, LDQ- 

I 


STQ^ 

ISAVE 


ENQ 

1 


RTJ^ 

SETREQ 


: STQ-^ 

W REQ 


RTJ- 

($F4) 

WREQ , 

. NUM 

$4C00 


• ADC 

wca 


NUM 

0 

WLU 

NUM 

0 


NUM 

40 

WR8 

NUM 

0 


JMP- 

(DISP> 

HCO 

LDA^ 

ISAVE 


STA- 

I 


enq 

2 


RTJ» 

PLUGPT 


LOA^ 

WLJ 


RTJ^ 

CHKV 


WORDS TO WRITE 


SET UP COSY DRIVER PHYST8. 
CHECK IF ERROR FIELD SET. 


M3400255 
M3^0025b 
H34G0257 
M3400258 
M3400259 
M34Q0260 
M3400261 
M3400262 
M3400263 
M3400264 
M34a0265 
M34U 0256 
M3400267 
M3400268 
M 34-3 0 269 
M3400270 
M3400 271 
M340Q272 
M340Q273 
M340 0274 
H340Q275 
M343 0276 


o 

o 


o 


o 


o 



o 


□ COSY 


PAGE 


7 


date: 01/27/99 


o 




o 



027 7 

POOOC 

1CE9 



JMP^ 

( WRCD) 

o 

0279 

POOOO 

OBOO 


MRQQ 

NOP 

0 

o 

0280 

PGODE 

EO FF 



LDQ- 

J 

028 1 

POQDF 

481B 



STQ^ 

ISAYE 


0282 

POOEO 

0C02 



ENQ 

2 


023 3 

POOEl 

5800 



RTJ 

SETREQ 

o. 


PO0E2 

FF 75 




HRQ 

u 2 8 H- 

R00E3 

48 02 



STQ- 


028 3 

PGOEn 

5 4F4 



RTJ- 

($F4) 


028 6 

P0QE5 

5C00 


MRQ 

NUM 

$5300 

0 

028 7 

P00E6 

0 0 EB 

P 


ADC 

MCM^ 

0288 

P00E7 

0 0 00 



NUM 

0 


0239 

P00E8 

0 0 0 0 


MLU 

NUM 

0 


029 0 

PO0E9 

0 0 00 


MREQ 

NUM 

0 


029 1 

POOEA 

14EA 



JMP- 

tOISP ) 


0292 

P00E8 

C80F 


HCMP. 

LDA^ 

ISAVE 


0293 

POOEC 

60FF 



3TA- 

I 


0294 

POOED 

Efl DO 



LDQ 

= N0 



PG uEE 

00 00 




MCHPl {^-D 

; 

, 0295 


OGEE 

P 

MCMPt 

EQU 


0296 

POuEF 

5804 



RTJ- 

PLJGPT 


, 0297 

PQOFO 

C3F7 



LDA» 

MLiJ 

o 

0296 

POOFl 

58 3C 



RTJ^ 

CHKV 

0299 

PO0F2 

ICEA 



JHP^ 

tMRQQ) 


M3430277 


H3400279 
M 340 0 28 0 
M34j 0 281 
M3400282 
M340Q283 

M34Q0284 
M 340 0 28 5 
H3400286 
H3400287 
H3400288 
M3400289 
M34Q029G 
M34QQ291 
M3400292 
M34Q0293 
’• M3400294 

H3400295 

SET UP THE COSY ORI VER PHYSTB . H34Q0296 

M340 0297 
H3400298 
H3400299 


o 

o 

n 

C) 

o 




C) 

030 1 

P00F3 

0800 

PLUG^T NOP 0 


0302 

PQ0F4 

E6E9 

LOQ- {EXT8V4) 

o 

030 3 

POG F5 

E60Q X 

LDQ LOGlA»9 

PO 0F6 

ODBC X 

LDA- ESTAT2»Q 


03 0*+ 

P00F7 

C20C 


030 5 

PG0F8 

610C 

STA- ESTAT2» I 

C") 

0 3 0 6 

P00F9 

1GF9 

JMP^ CPLUGPD 


PICK UP WORKING 
PICK UP WORKING 


LOGICAL UNIT. 
LOGICAL UNITS 


PHYSTB ADDRESS 


M340D301 
M34Q0 302 
M3400303 


M 340 030 4 
M34Q03Q6 
M 340 030 6 


o 

c 


03 0 8 

PO OFA 

Q 0 00 

ISAVE.. 

NUM 

■0 

030 9 

OQFB 

P BLANK 

EQU 

BLANKC*^) 

0310 

POQFB 
POOFC 
PO OFD 

2020 
20 2 0 
20 20 

CSYREC 

ALF 

3, 

0311 

POOFE 

20 43 

C 

ALF 

1 > c 

0312 

POOFF 

5359 

SY 

ALF 

1,SY 

0313 

POIOG 

2F20 

SL 

ALF 

1,/ 


M 340 0 308 
H3400309 
H34Q 0310 


O 

o 


H340 0 311 
M340Q312 

M3400313 . Q 


O 


O 


DCOSY 


PftGE 


date: 01/27/99 


0315 
0 316 
0317 
0 318 
0319 
0 320 
D321 

0322 
0 323 
032-+ 
032 p 
0326 
0 32 7 

0328 

0329 
G330 

0331 

0332 

0333 

0334 

0335 

0336 
033 7 
033S 
0 339 

0340 

0341 

0342 
-0 343 

0344 
03 45 
03 46 
0 3 47 
, 0348 
u349 

0350 

0351 
0352. 

0353 

0354 
0 35 5 
03 5 6 
0 3 5 7 
03 58 

. 0 3 5 9 
‘ 0360 
0351 

0 362 
0353 
0 364 


PDlul 
P0102 
P0103 
PD104 
P01u5 
POlO 6 
PGIO 7 
P0108 
P0109 
POICA 
POlOB 
POIOC 
POIGO 
POluE 


CllF 
0104 
Q AGO 
oils 
6111 
583E 
58 00 
U0D5 
CUB 
Q1Q3 
611F 
58 2C 
18F8 
Dill 


PCIOF GAuO 
POllO 611F 


POlll 
PD112 
PU113 
PQ114 
PQ115 
P0116 
PO 117 
poll 8 
PQ119 
POllA 
POllB 
PO lie 
POllD 
POllE 
POUF 
PD120 


C115 
0 9 06 
ElOB 
013A 
CUE 
E116 
0 1 61 
G9C1 
£•8 22 
910A 
0907 
0122 
El OA 
0028 
Hie A 
OOFE 


P0121 

P0122 

P0123 

P0124 

PQ125 

P0126 

P0127 


P0128 

P0129 


C115 

0907 

0102 

09FE 

0112 

5800 

a08Q 

0128 

0123 

5400 

7FFF 


INI 


N 1 


N 2 


Af - 


LOA- FTIME,I 
SAZ N1 
ENA 0 
STA- RWF5, I 
STA- SEQNUM.I 
RTJ^ RC5Y . ■ 

RTJ REAOI 

LOA- EMDOCK, I: 

SAZ N2 
STA- FTIME,I 
RTJ^ CLR 
JMP» Nl-1 
RAO- S£:iNUM, 

SIX CARDS DELETED 
ENA 0 

STA- FTIHE,I 


IS THIS INITIAL GALL 
NO 

SET R/W FLAG TO READ. 

. YES, READ. A COSY CONTROL CARO 
GET A COSY, RECORD 

DIO WE FIND AN END OF DECK 

• RESET INITIAL FLAG, . ^ 

CLEAR POINTERS FOR NnXT READ 

BUHP CARD SEQUENCE 
CLEAR INITIAL FLAG 


M3400315 
M34Q0316 
M3400317 
M3400318 
M340 0 319 
M340032G 
M3400321 

M3400 322 
M3400323 
H3400324 
M34G0325 
M3400326 
H3400327 

M34Q 0335 
H 340 0 336 


114 ’^ 4282 ^**^’^*^^ 

determine if short REAO/COSY RECORDS COMPRESSED FROH_CA^^ 

SOURCE SO NO SHORT READ IF ,LT. 40 WORDS REQUESTED llH-4282 


AND 


iP .GTrArWORDS REQUEsflo*^ GIVE AT LEAST 


COM PI 


COMP3 

¥ 

«■ 


COHP5 

COMP2 

COMP4 

COMP 


LDA- NWORDS,! 
INA -41 
LDQ- ELSTWDfl 
SAM COMP 3 
LDA- HOLPTR,! 
LDQ- HOLLR,I 
SQP COMPl 
INA 1 
TRA Q 
SUB- ECCOR,I 
INA -40 
SAP COMP3 
LDQ- £GCOR,I 
INQ 40 
STQ- ECCOR,I 
INQ -1 


(BLANK PADDED IN 8BUF) 


ECCOR . £ G. ELSTWD IF.LE.hO WORDS REQSTO 


ECCOR.EQ. HOLPTR IF. GE. 4 0 , WORDS READ 
ECCOR. EQ. ECGOR+-0 IF.LT.4G WORDS READ 


CHECK TO SEE IF 3EQ. HUMS TO BE ADDED 


LDA- NWOROS,! 
INA -4Q 
SAZ COMP5 
INA -1 
SAN COMP 
RTJ HRITEI 

EQU COMP2(^) 

■ EQU COMPACT) 
RTJ+ MAKEQ 


ADO SEQ. NUMS ON 40 WOR# REQUESTS 
ADD ON Hi WORD REQ. FOR FTN 


1 1 42 8 2 ^ ^ 

114^4282^^’^*^^^^ 

114 « h 282 «^’^^’^^^^^ 

114'*"4282^*^’^*^^^ 

114^*42 

11h»4282*»’^^^’^''''^ 

114 ^ 4282 »-*^*‘^^^^ 

114^4282*’^"^*’^^^^ 

11h*428 2^^*'^^’’^^^ 
11 H-^ 42 8 2**^^'*'^^^ 
1 1 4«- 42 B 2 

114»4282^^^*-^’^*'’^ 

114^426 

1 i 4^^42 8 2’^^'’^*’^^^* 
il4^4282*»’^^»^’^^ 
114^42 82*'*'^'’^^^^'*' 
11 4* 42 62 *'^*^*’*'^*" 

114-4282»^^^»^^^ 
1 14^ 42 8 2 

llH-^f‘42 82'^**’^'^^*'’' 


DCOSY P4GE 9 DATE! 01/27/99 

O 



0 i 6 5 

P012A 

54B6 


RTJ- (COMREa) 


M3430399 



0366 

P0128 

1800 


JHP INCSIO 


M3400350 


o 


P012C 

FFOl 





c 

o ; 

0358 






M 340 0 352 

o 


0569 



^ ^ -V 

CHECK 

V FIELD AND PASS IT BACK TO THE 

USER IF IT H34Q0353 



0370 




SET, ELSE RETURN TO CALLER. 

M 340 0 35 4 


^ 

0371 






M34GQ355 

. o 


0372 

P012D 

0800 

CHKV 

NOP 0 


M3400356 


0573 

PO 12E 

■ 01 28 


SAP CHKVX 


M3400357 



037 4 

P012F 

C108 


LDA- EREQ5T, I 

SET ERROR BIT FOR MAKQ 

■ lli^fkZQZ******** 



0375 

P0130 

B031 


EOR- BIT14 


±±'h^ {^2 S Z* ****** * 

o 

1 

0376 

PG131 

6108 


STA- EREQST, I 


Lf^ 1^2 8 Z** ****** 


0377 

P0132 

5863 


RTJ^ RESET 

CLEAR PROCESS FLAGS 

’ ’ ^ -li^^ 1^28 Z** ****** 



0378 

PQ133 

G1Q8 


LDA- EREQST,! 

SET THE ERROR BIT FOR MAKEQ 

M 340 0 36 2 


O 

0379 

P0134 

B031 


EOR- BIT14 


M 340 0 36 3 


038t; 

P0135 

6108 


STA- EREQST,! 


M340 0 364 



0381 

Pul36 

18F1 


JMP’^ COHP4 


M3430365 



0392 

P0137 

1CF5 

CHKVK 

JMP» (CHKV) 


M340 0 366 


j' ’ • 

03B4 

P0138' 

OBOO 

CLR 

NOP 0 


M 340 0 368 

o 


0385 

P0139'. 

G AGO 


ENA 0 


M 340 0 36 9 


C) 

0386 

P013A- 

6111 


STA- SEQNJN, I 


M340 0 37 0 

■ o 

0387 

P013B 

6112 


STA- ID, I 


M3400 371 


■ 0398 

P013C 

6113 


STA- ID+1,1 


M34J 0 37 2 



0389 

PU13D 

6114 


STA- 10+2,1 


M3400373 

M340Q374 



0390 

PG13E 

61 lA 


STA- F3TCHR, I 


' C) 


0391 

P013F 

OACi 


ENA i 


M340 0 375 



0392 

P0140 

6119 


STA- PCN5F,I 


M340 0375 



0393 

P0191 

CllC 


LDA- AOINPB, I 


M3400377 



0 39“+ 

P0142 

511D 


STA- INPPTR,! 


‘ M3430378 

o 


0395 

P0143 

1GF4 


(CLR) 


M3400 379 

“'w'' 

0397 

PG 144 

0800 

ROSY 

NOP 0 

READ A CSY/ OR END/ CARD 

M340 0 381 

o 


0398 

PO 145 

OAOO 


ENA 0 


M3400 382 


O 

0399 

P0146 

6859 


STA^ 8UFSIZ 

force, the FIRST COSY READ. 

■' M34C 0 38 3 

; O 

0 4 u 0 

P0147 

0 A28 


Ena 40 

, NUMBER OF WORDS 

M340 0384 


0“^01 

P0148 

581E 


RTJ* RQQ 


M3400385 



' G4Q2 

P0149 

EllC 


LDQ- AOINPB, I 


H34Q0386 


C 

, Gi«03 

PG14A 

C205 


LDA- 5,Q 


M 340 0 38 7 

o 

040 4 

P0i48 

98B4 


SUB» SL 

IS IT A / 

M3400388 


0405 

P014C 

0102 


SAZ Cl 

YES 

M34ii 0389 



0406 

PQ14D 

0A02 

ER 

ENA 2 

FIRST CARD NOT A CSY/ CARD. 

M3400390 


r-) 

0907 

•P014E 

1858 


JMP^ Dll 


' M340 0 391 

o 


0408 

POluF 

CllB 

Cl , 

LDA- ENDDCKfl 

IF ENOOCK SET 

M3400392 


04C9 

P015Q 

Old 


SAZ CC 


M3400393 



O 


O 



OCOSY 


PAGE 


10 


date; Gl/27/99 


0 -flu 

P0151 

1820 


JHP^ 

EDLOOK 

0411 

P0152 

C204 

CC 

LDA- 

4,Q 

0h12 

P0153 

98AB 


SUB^ 

SY 

0413 

P0154 

0101 


SAZ 

C2 

0 41 ■+ 

PO 155 

18F7 


JMP^f^ 

ER 

0 415 

PQ156 

C203 

C2 

LDA- 

3,Q . 

0416 

PG157 

98A6 


SUB^^ 

C 

0417 

P0158 

0101 


SAZ 

IDCK 

0fl3 

PG159 

18F3 


JMP'^ 

ER 

0 419 

P015A 

G622 

IDCK 

LDA- 

<ZERO) 

0420 

P015B 

989F 


SUB'^ 

BLANK 

0421 

P015C 

0112 


. SAN 

IDPUT 

0422 

P015D 

0120 


RAO- 

SFLG, I 

0423 

PQ15E 

1CE5 


JMP» 

tRCSY ) 

G-t24 

P015F 

0224 

IDPUT 

LDA- 

36, Q 

0425 

P0160 

6112 


STA- 

10,1 

0f2& 

P0161 

C225 


LDA- 

37, Q 

0427 

P0162 

6113 


STA- 

101-1,1 

0428 

P0163 

0202 


LDA- 

2,Q 

0429 

PQ164 

6114 


STA- 

ID-i-2,1 

0 4 0 

PO 165 

ICDE 


JMP^ 

IRCSY) 


LOOK FOR 'END/ CARD 
NOT A CSY/ CARD 

WE WON'T BE ADDING SEQUENCE kUMBERS 
PICK UP 6 CHARACTER ID AND SAVE 


M3AQ0 394 
M340G395 
M3400396 
M34-j 0397 
H3400 398 
M3400399 
H3400-+D0 
M340 0 -tOi 
M 34G 0 40 2 
M 340 0 40 3 
M340 0 4U4 
M 340 0 40 5 
M340 0 406 
M 340 0 40 7 
H3400 408 
M3400 409 
M 340 0410 
M 340 0 411 
M 340 0 Hi 2 
M34D0 413 
M 3 h0 0 41 4 


G-f32 

PQ166 

OBCO 

RQQ 

NOP 

0 

0^3 3 

PGlb7 

6800 

STAi^ 

RLU + i 

u 4 3 

PG168 

EOFF 


LDQ- 

I. 

0 h3 5 

P0169 

4890 


STQ^ 

ISAVE 

0436- 

PO 16A 

0 C 0 G 


ENQ 

0 

0f37- 

PO IbB 
P016C 

58 00 
FEEB 


RTJ 

SETREQ 

0 "T 3 8 

P016D 

4802 


STQ^ 

RREQ 

043? 

PQ16E 

54F4 


RTJ- 

{ $F4) 

0 4 4 C 

P016F 

4800 

RREQ 

, NUH 

S4800 

0 441 

P0170 

0176 

p. 

ADC 

RCl 

0 44 2 

P0171 

0 0 00 


HUM 

0 

0h43 

P0172 

0 0 00 

RLU 

NUN 

0 

0 444 

PD173 

0 028 


NUH 

40 

044 5 

P0174 

0000 

RRB 

NUM 

0 

0 4 4 6 

P0175 

14EA 


JHP- 

(DI3P) 

0447 

PQl 76 

C8 83 

RGl 

LDA'^ 

ISAVE 

0448 

PC177 

60FF 


STA- 

I 

0449 

P0178 

OCOl 


ENQ 

1 

0450 

P0179 

P017A 

5800 

FF78 


RTJ 

PLUGPT 

0 451 

P017B 

C8F6 


LDA* 

RLJ 

0452 

P017C 

58B0 


RTJ^ 

GHKV 

0453 

P017D 

1CE8 


JMP» 

(RQQ) 


SAVE I 


SET 'lip COSY DRIVER PHYSTB 
DEVICE PHYSTB 


M343Q-+16 
M3400 h17 
H 340 0 Hi 8 
M3400h19 
M34G0h20 
M34D0421 

M34U u 422 
H3400423 
H340Q424 
MShO 0h25 
. M3400h25 
. H34QD 42 7 
M3400428 
M34Q0429 
M3400430 
M3400h31 
M 340 n 41 P 

TO LOOK .'LIKE THE ■ H34Q 0433 
114 ^ 4282 '^ 


M3430 435 
H34Q0 436 
H34QQ h37 


o 


o 

o 


( 1 


o 

O 


o 

o 

o 

o 

o 

o 

o 


OCOSY 
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date: 01/27/99 


045? 
0 45 6 

0457 

0458 

0459 
0 46 0 

0461 

0462 

0463 

0 46 4 
0 46 5 
0 4 66 

0467 

0 40 8 

U469 

0470 

0471 

0472 
0 47 3 
0 4 7 4 

0475 

0476 


0 47 8 
0t79 
0-.80 
u-81 
0-rS2 
0483 
0 “t S 4 
0^85 

0486 

0487 

0488 

0489 
0 49 0 
0491 
0 49 2 
0493 
0 494 


0 49 5 

0496 

0497 


0499 


P017E 

C2Ch 

EOLODK 

-LDA- 

4, a 

P017F 

9826 


SUB» 

ND 

P0180 

0101 


SAZ 

01 

P0181 

18D0 


JMP4 

CC 

P0182 

C2Q3 

D1 

■ LDA- 

3, a 

P0183 

9821 


SUB^ 

£ 

Pfll84 

0103 


SAZ 

D2 

PC185 

0AC3 


ENA 

3 

PG186 

1800 

Dll 

JHP 

ERRPRO 

PO 187- 
P0188 

0156 

C815 

02 . 

LDA^ 

M 

P0169 

El OA 


LOQ- 

L 4 0 R 5 1 

P018A 

6622 


STA- 

(ZERO 5 ,a 

PC18B 

ODOl ■ 


INQ 

1 

P018C 

C812 


LDA^ 

ON 

P018D 

6622 


STA- 

(ZERO ) , Q 

PO 18E 

ODOl 


INQ 

1 

PQ18F 

C812 


LDA^ 

8LNK 

P0190 

6622 


STA- 

(ZERO) , a 

PC191 

0D09 


INQ 

9 

P0192 

58 03 


RTJ^ 

RESET 

P0193 

0 814 


TRQ 

A 

P0194 

1893 


JHP^ 

C0NP2 


NOT AN END/ STILL COULD BE A CSY/ 


NO END/ CARD ENCOUNTERED. 


CLEAR THE FLAGS 


M 340 0 43 9 
M34Q 0440 
M340a441 
M34D0 442 
H34a0443 
M340Q444 
M34Q 0 44? 
H340 0-446 
M3400 447 

M343 0 448 
M 340 0449 
M343 0 45 0 
H34QQ451 
M 340 0 452 
M340 0 453 
M34Q0 h54 
M340Q455 
M3400456 
M 340 0 45 7 
M3400 458 
M3400459 
M340046G 


O 


o 

o 

n 


PG195 

P0196 

P0197 

P0198 

PQ199 

P019A 

P019B 

P019C 

OBOO 

OAOO 

6120 

611B 

0901 

611F 

589C 

1CF8 

RESET 

NOP 

ENA 

STA- 

STA- 

INA 

STA- 

RTUP 

JMP^ 

0 

0 

SFLG, I 
ENOOCK, I 
1 

FTIME,I 

CLR 

(RESET) 

M3400472 
H3400473 
M340 0 h7 4 
H340D 475 
M34Q0 47 6 
H3400477 
H340 Q 478 
M34J 0 479 
M340 0 480 




^ 


M340Q481 






M 340 0 482 

P019O 

P019E 

P019F 

PQIAO 

2 0 40 
4F4E 
00 CO 
0000 
0 lAl 

M 

ON 

8UFSIZ 
P BLNK 

ALF 

ALF 

NUN 

NUM 

EQU 

1, M 
1,3M 
192 
0 

8LNK(») 

M340B483 
H3400 484 
H34QQh85 
H34GQ486 
M3400487 
M 340 0 488 

POlAl 

2020 

FNDREC 

ALF 

3 1 

P01A2 

2020 





P01A3 

P01A4 

P01A5 

2020 
2 0 45 
4E'f4 

E 

NO 

ALF 

ALF 

1, E 

2, NO/ 

' M3400489 
: M 340 0 490 

POIA 6 

2F20 

■1^ 



M340Q491 





WRITEI SUBROUTINE 

H34Q0493 


C 


O 


o 

o 

o 

o 

o 


OCOSY 


PAGE 12 


DATE! 01/27/99 


0^00 






05 0 1 



■ 9 - 


OUTPUTS 

0 50 2 






0503 

P01A7 

0 0 0 0 

WRITEI 

0 

0 

0 5 0 4 

P01A8 

C120 


LDA- 

SFLG, I 

0 5 0 5' 

PQ1A9 

0101 


SAZ • 

1 

0 5 0 6 

POIAA 

ICFC 


JMP^ 

(WRITEI ) 

0507 

POIAB 

cm 


LD A- 

SEQNUM, I 

050 3 

POIAC 

4825 


STQ^- 

QSAVE 

0509 

POIAO 

5812 


RTJ» 

WRITII 

0510 

POIAE 

58 ID 


RTJ^ 

STORE 

0311 

PQIAF 

5810 


RTJ- 

WRITII 

0512 

POIBG 

581B 


RTJ^ 

STORE 

0 513 

POIBI 

ocoo 


• ENQ 

0 

0514 

P01B2 

3 0 46 


3VI- 

TEN 

0515 

P01B3 

0D30 


INQ 

$30 

0516 

PU1B4 

G81E 


LDA^ 

lOINP 

0517 

PO 1B5 

0112 


SAN 

PIO 

0518 

PQ1B5 

F0 3Q 


AOQ- 

$30 

0519 

P01B7 

1806 


JMP^ 

LID 

0 52 0 

P01B8 

C113 

PID 

LDA- 

ID+l.I 

0521 

P01B9 

AOIA 


AND- 

NZERO+3 

0522 

POIBA 

0832 


AAQ 

Q 

0523 

PulBB 

5810 


RTJ^ 

STORE 

0524 

PGIBC 

E112 


LDQ- 

ID, I 

0525 

PDIBD 

580E 

LID 

RTJ^ 

STORE 

0 3 2 6 

POIBE 

1CE8 


JMP^ 

(WRITEI ) 


OUTPUTS THE CARD IN THE HOLLERITH INPUT BUPFER. 


MO SEQUENCE NUMBERS FOR THIS DECK' 
CONVERT INPUT RECORD COUNT TO DECIMAL,. 


IN SEQUENCE NUMBER FIELD (COLUMNS 76-8B) 


PUT I.D. ON THE RECORD 
ADO ABLANK - NO I.D. 


M54j 0 4 

H3A0 0A95 
H340 0 h9 6 
M3L00A97 
MSh-G 0 498 
M34G0499 
H34U05Q0 
STORE H34Q0501 
, M340 0 502 
M34GQ503 
M340 0B04 
M3400 5Q5 
M 340 0 ^0 0 
M340 0 50 7 
M340 Q 50 8 
M 340 0 50 9 
M3400 510 
M3400511 
M 340 u 512 
M34Q0513 
M 340 0 514 
M3400515 
M3400516 
M3400517 
M3400 518 
M3400519 
M340 0520 


052 8 
0529 

PulBF 

0 Q Q 0 

WRITIi 

0 

0 

053 0 

Pu ICO 

OCOO 


ENQ 

0 

0 531 

POICI 

3 0 46 


OVI- 

TEN 

0532 

P01C2 

0D30 


INQ 

$30 

0533 

P01C3 

48 07 


STQ^ 

WRTMP 

0 53h 

P01C4 

OCOO 


ENQ 

0 

0555 

PQ1C5 

3046 


OVI- 

TEN 

053 d 

P 0 1C 6 

u D 30 


INQ 

$30 

0537 

P01C7 

OF A8 

* \ ■ 

QLS 

8 

0538 

P01G8 

F802 


AOQ^ 

WRTMP 

0539 

PG 1C9 

1CF5 

■■ - . 

JMP^ 

(WRITII ) 

0541 

PO ICA 

0000 

WRT M?,' 

HUM 

0 


CONVERT HEXIOECIHAL VALUE IN A TO A DECIMAL 
WORD (TWO CHARACTERS), 


TEMPORARY STORAGE USED BY WRITIi 


M3400522 
M3400523 
M3400524 
M34Q 0525 
M340G52b 
M 345 0 52 7 
M3400528 
M 34Q 0 529 
M34Gu530 
M 34Q 0 531 
M34Q0 53 2 
H3400533 

M3400 535 


0543 

0544 POICB OBOO 

0545 POICC 4CQ5 

0546 POICD E804 


STORE NOP 0 

STQ» (QSAVE) 
LOQ^ QSAVE 


M34Q0537 
M3‘400538 
M3400 539 
M34Q0540 


DCOSY 


PAGE 13 


DATE 


01/27/99 


0547 

PQICE 

ODFE 

INQ 

-1 

0548 

POICF 

4802 

3TQ’ 

aSAVE 

05 49 

POIDO 

ICFA 

JMP-^ 

(STORE) 


M34U0541 

H340Q542 

M34Q0543 


0551 POIDI 0000 

0552 P01D2 0000 


aSAVE NUM 0 
lOIN^ NUH a 


M34QQ 545 
M343 0 546 


0 5 5 4 

P01O3 

0800 

BBUF 

NOP 

0 5 5 5 

PQ1D4 

68FC 


STA^ 

0 5 5.6 

P01D5 

E115 


LDQ- 

055 7 

P01D6 

ODFE 


INQ 

0 5 5 8 

P01D7 

C8C9 


LDA» 

0 5 5 9 

P01D8 

6EF8 

. BLK 

STA^ 

D 5 6 u 

P01D9 

'ODFE 


INQ 

03 51 

POIDA 

0171 


. SQM 

0 5 5 2 

POIDB 

18FC 


JMP^ 

0 56 3 

POIDC 

1CF6 


JMP^- 


0 BLANKS OUT BUFFER 

QSAVE . . 

NWORDS,! 

-1 

BLNK 

(OSAVE) ,Q 

-1 

1 

BLK 
(8BUF ) 


M 3400548 
M3hDQ549 
M34QQ550 
M3400551 
M340Q352 
M34Q0553 
M3400554 
M 340 0 55 5 
M340055b 
M340 0 :^5 7 


05 5 5 

POIDD 

OBDO READI 

NOP 0 


0 5 5 6 

POIDE 

Cl QA 

LDA- ECCOR,I 


0557 

POIDF 

SHE 

STA- HOLPTRt 

I 

0558 

PQIEO 

58F2 ^ 

RTJ^ BBUF 


0569 

PGIEI 

GAQO 

ENA 0 


0570 

P01E2 

6118 

STA- ENDOCK, 

I 

0 571 

P01E3 

611A 

STA- FSTCHR, 

I 

0572 

PQ1E4 

C864 

LOA^ LRSET 


0573 

P01E5 

6116 

STA- HOLLR,I 


057 4 

P01E6 

CUD ' ROI05 

LDA- INPPTR, 

I 

D575 

P01E7' 

9887 

SUB^ BUFSIZ 


0576 

P01E8 

911C . 

SUB- ADINPB. 

I 

0577 

PQ1E9 

0101 

SAZ 1 


0376 

POIEA 

180B 

JMP^ RDIQ7 


0579 

POIEB 

GilC 

LDA- AQINPB, 

I 

0 580 

POIEC 

611D 

STA- INPPTR, 

I 

05 81 

POIED 

G858 

LDA^ LRSET 


0532 

POIEE 

6117 

STA- IN^LR,! 


0 583 

POIEF 

COCO 

LDA =N5C0 



PQ IFO 

OOCQ 



0 5 8 4 


DIFO P . 

EQU N192(^- 

1) 

0 5 3 5 

POIFI 

58QD 

RTJ RQQ 



PQ1F2 

FF 73 



0586 

P01F3 

C8FC 

LOA^ N192 


0537 

P01F4 

68AA 

STA^ BUFSIZ 


0588 


>(■ 




CLEAR THE'EHO OF DECK HARK'ER AND .SET THE 
FIRST CHARACTER. MARKER. 

SET HOLLERITH BUFFER L/R MARKER TO LEFT. 

TEST FOR INPUT BUFFtR EMPTY. 

BUFFER EMPTY. RESET THE BUFFER POINTER TO 
THE START OF THE BUFFER. 

SET INPUT BUFFER L/R MARKER TO LEFT. 

192 WORDS 

READ A COSY RECORD. 


M3400539 
M 340 0 360 
M34005ol 
MS^+flQB&E 
H34C Q 555 
M3400564 
M3400565 
M34G0566 
M340 0567 

M3%Q 0 56 9 
M 340 0 57 0 
M340G571 
M34Q0 572 
M34a0 573 
M34QflS74 
H340 0 5J5 
M 340 0 576 
M3430577 

M3400578 
M34QQ 579 

M3400580 
M34Q0581 
M34a0 582 


DCOSY 


PAGE 14 


DATE 


0 1/27/99 


l3 



05 3 9 



* 




• 0590 



* 


LOQr 

/ '[ 

Q.591 

P01F5 

El ID 

ROI 

07 


0592 

P01F6 

C622 



LDAr 


0593 

P01F7 

E117 



Loa- 


, 0534 

PO 1F8 

OFAl 



QLS 


; 05 9 5 

P01F9 

4117 



STQ- 


0596 

PQIFA 

0172 



SQM 


0597 

POIFB 

DllD 



RAO- 


0598 

PQIFG 

1802 



JMP’^ 


. 0599 

POIFD 

OF 48 



ARS 


060 0 

PGIFE 

AO OA 



AND- 


G501 

PQIFF 

EllA 



LDQ- 


0502 

P0200 

0157 



SQN 


060 3 

P0201- 

Q9CF 



INA 

O,: 

060 4 

P0202 

68CF 



STA^ 


060 5 

P0203 

DllA 



.RAO- 


060 5 

P0 204 

09D0 



INA 


0bC7 

P0205 

0101 



■ SAZ 

060 8 

P0206 

13DF . 



JMP^ 


0 5 0 9 

PO 20 7 

0A5F .■ 



ENA 


Obi Q 

PQ208 

6841 

. ROI 

08.., 

STA^ 


0511 

P0209' 

C119 



LOA- 

1 J 

Qol 2 

P0 20A. 

Gill 



SAN 

r 

Cd13 

P020B 

181A 



JMP^ 


061*4 

P020C 

C830 



LDA*^ 

■ 

' 0615 

P020D 

09A0 



INA 

J 

0 616 

P02QE 

0112 



SAN 


0517 

PQ20F 

5119 



STA- 


0518 

P0210 

18D5 



JMP* 


0519 

P0211 

CUE 

RDI 

09 

LOA- 


0o23 

PQ212 

91GB 



sua- 


0621 

P0213 

0 131 



. SAM 


0622 

P0214 

18D1 



JMP» 


062 3 

, P0215 

C834 

ROI 

09A 

.LOA^ 

W " 

. 0524 

P0216 

E116 



LOQ- 


0 62 5 

P0217 

OFAl 



, QLS 


0 5 2 6 

P0218 

4116 



STQ- 


■ 062 7 

_ PO 219 

0165 



SQP 

V 1 

052 8 

PO 21A 

0FG8 



ALS 


0529 

P0218 

0920 



INA 


053 0 

P021C 

El IE 



LDQ- 


, 0631 

P0210 

6622 



STA- 


05 3 2 

P021E 

■18C7 

, 


JMP^ 


,0633 

P021F 

El IE 

RDI 

10 

LDQ- 


0 63 4 

P0220 

09DF 



INA 

FT 

0635 

P0221 

8622 



.vAOD- 


0 6 3 6 

PQ222 

6622 



STA- 


0 6 37 

P0223 

DUE 



RAO- 


063 8 

■PQ224 

18C1 



JMP«^ 

/'''i 

■ 0539 

PG225 

C824 

RDI 

11 

, LOA^ 


^ 0640 

PQ226 

6119 



STA- 


■ 0641 

PG227 

Q9DF 



INA 


O 


UNPACKING ROUTINE 


INPPTR, I 
(ZERO) ,Q 
INPLR,I 
1 

INPlR, I 
2 

INPPTR, I 
^ + ? 

8 

LPHASK+8 
FSTCHR, I 
RDI08 
-$3 0 
lOINP 
FSTCHR, I 
-$2F 
1 

RDI05 
$5F 
CHAR 
PCN5F ,I 
1 

RDIll 
CHAR 
-$5 F 
R0ID9 
PCN5F, I 
RQI05 
HOLPTR, 
ELSTWD, 
RDIQ9A 
RDI05 
CHAR 
HOLER, I 
1 

HOLER, I 
ROIIO 
8 

$20 

HOLPTR, 
(ZERO) , 
ROI.0 5 
HOLPTR, 
-$20 
(ZERO) , 
(ZERO) ,Q 
HOLPTR,! 
RDI05 
CHAR 
PCN5F,I 
-$20 


I 

I 


I 

,Q 


a 


SWITCH INPUT L/R MARKER. 

RIGHT CHARACTER. INCREMENT BUFFER POINTER. 
LEFT CHARACTER. SHIFT TO RIGHT HALF. 


FIRST CHARACTER IS THE ID CHARACTER. , 
DECREMENT TO. GET lA 0 OR A 1 . 

IF CHARACTER MAS $5F, HANDLE SPECIAL. SHOULD 
BE AN END-OF-OECK CHARACTER. 

SAVE THE CHARACTER BEING UNPACKED. ,, 

THE PREVIOUS CHARACTER WAS "NOT $5F. 


THIS CHARACTER NOT $5F. 

SET PREVIOUS CHARACTER = $5F. 

DON,T STORE BEYOND LAST WORD 
OF USER,S BUFFER 


SWITCH HOLLERITH BUFFER L/R' MARKER. 


STORE THE CHARACTER IN THE LEFT HALF OF THE 
WORD KITH A BLANK IN THE RIGHT HALF . 


STORE THE CHARACTER IN THE RIGHT HALF OF JHE 
WORD (REMOVING THE BLANK). 


INCREMENT H0L8UF POINTER. 

SET PREVIOUS CHARACTER NOT $5F. 


MS4GG583 
M34G 0 534 
M340 0 585 
M3400 585 
M34lj 0587 
M34Q0538 
M340Q589 
M34G0590 
M3 hu u 59 1 
M34D0 592 
M3400593 
M34Q0 594 
M34Q0595 
M34QQ59S 
M 3>4 iJ 0 597 
M 340 0 598 
M340 0 599 
M3400600 
M34u0601 
M340u602 
M 340 u 60 3 
M3400604 
M 340 0 60 5 
M340 0 50 6 
M340Q607 
M 340 0 60 8 
M34006Q9 
M3400610 
M340O6il 
M3400612 
M340Q613 
M34 j 0 ol4 
M340 0 61 5 
H 340 0616 
M3400 617 
M 340 0 618 
' M340 0 619 
M 31^0 0 62 0 
M340 0621 
M3400 622 
M3400623 
M34DQ624 
M34C'0625 
■' M34Q0 62 6 
'M34D0627 
M34G0628 
M 340 0 62 9 
-M3 40 0 63 0 
. M34Q0&31 
M 340, 0-6 3 2 
' H 340 0,63 3 
M34D0o34 
M 340 0 63 5 


C 

O 


o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




n 


OCOSY 


PAGE 


15 


date: 01/27/99 


o 


o 



0642 

P0228 

0113 



SAN 

RDIllB 


0643 

P0229 

OA 5F 



ENA 

‘$5F 

c 

0644 

PQ22A 

681F 



STA^ 

CHAR 

U645 

P022B 

18E5 



JMP* 

RDID9 


0 5 4 6 


022C 

P 

RDIilB 

EQU 

R0I11B(^- 


. ■■ 0 64 7 

P022C 

09C1 



INA , 

-$3E 

■0 ' ' 

: 06 4 8 

P022D 

0102 



SAZ 

2 

0549 

PQ22E 

Q13A 



SAM 

RDI12 


05 5 y 

P022F 

DllB 



RAO- 

EN3DCK, I 


0 5 51 

P0 230 

Clio 



LOA- 

HOLLR,I 


0 0 5 2 

PO 231 

0121 



SAP 

1 


0 5 53 

P0232 

□ HE 



RAO- 

HOLPTR, I 


0654 

P0 253 

ClOB 



LDA- 

ELSTWO, I 


0655 

P0234 

0822 



TRA 

a 


0656 

PQ235' 

911E 



SUB- 

HOLPTR, I 

• I 

0 6 5 7 

P0236 

0121 



SAP 

RDIllA 


0 6 5 8 

P0237 

411E 



STQ- 

HOLPTR, I 


0659 


0238 

P 

ROIllA 

EQU 

RDIllA ( ^ 

.■***• 

0 66 C 

PQ 238 

1CA4 



JMP- 

(READI) 


0561 

P0 239 

0933 


RDI12 

INA 

$38 


0662 

P023A 

0131 



SAM 

1 


0663 

P023B 

09FE 



INA 

-1 


0664 

P023C 

0908 



INA 

8 


0 65 5 

P023D 

OCOO 



ENQ 

0 


05 56 

PG23E 

OFEF 



LLS 

15 


0 5 5 7 

P023F 

FllE 



ADQ- 

HOLPTR, I 

o 

. 0 66 8 

P0240 

41 IE 



sra- 

HOLPTR, I 

0 6 5 9 

PQ241 

0125 



SAP 

R0I13 


067 0 

P0242 

C116 



LOA- 

HOLLR, I 


0671 

PO 243 

0121 



. SAP 

1 

o 

0672 

P0244 

DllE 



RAO- 

HOLPTR, 1 

0 673 

PO 245 

GFCl 



ALS 

i 


0674 

P0246 

6116 



STA- 

HOLLR , I 


G 675 

P 0 2 4 7 

189E 


ROI13 

JMP» 

RDI0 5 






HAD S5F2G , A TRUE $5F CHARACTER. 


HAD S5F5E 
HAD $5FXX, 
HAD $i?F5F • 


END OF C-ARD . 

A STRING OF BLANKS. 

SET END OF DECK MARKER. ■ 


RESET HOLPTR IF . GT . ELSTWD 


CHARACTER WAS 26 OR GREATER. DECREMENT BY 
NUMBER OF BLANKS = CHARACTER,- $20 +2. 


INCREMENT HOLLERITH POINTER BY 
HALF THE NUMBER OF BLANKS. 
HAD AN EVEN NUMBER OF BLANKS. 


WAS A RIGHT CHARACTER. INCREMENT POINTER. 
SWITCH THE HOLLERITH L/R MARKER. 


M S43 0 65 5 

M3A0 0637 

M3400638 

M3A00639 

M 34u 0 640 

M3400641 

M3‘+0Q642 

M3400 043 

M34DC644 

M34Q0 645 

M3400646 

M3400d47 

M3‘-00648 

M 340 0 649 

M3400650 

M3400651 

M 34 0 0 65 2 

M3400o53 

M3400654 

M34G0655 

M 340 0 65 6 

M3400657 

M3400658 

M3400659 

M 340 0 66 0 

M340Q661 

H3400 662 

M340 0 653 

M 340 0 66 4 

H3400665 

M 340 0 66 6 

M3400667 

M3400668 

M 3400669 


O 


G 


O 


O 

o 

o 


o 



0 6 7 7 





■ $5555 


0678 

P0248 

5555 

LRSET 

NUM 


05/9 







0680 

PQ249 

GOGO 

CHAR ' 

HUM 

0 


0681 




NUM 



0682 

P024A 

0 000 

WRTf-Pi 

0 

O 

’ 0 5'3 4 



if. 


a 


0685 

P024B 

OGOO 

WRITE 

0 

a ■ 

0536 

P024C 

48FD 


STQ^ 

WRTMPl 

0687 

P024D 

0 A30 


ENA 

$30 


0588 

PG24E 

5818 


RTJ^ 

PACK 


WRITE SUBROUTINE 
^ pAPn nPiFTFn 

TEMPORARY STORAGE USED BY WRITEI 


NO ID'S ON WRITES 
PACK THE ID MARKER 


IN CSYBUF. 


M3400671 
M340 0572 
M 34u 0 673 
M340 0 674 
M3400675 
M3400676 


M34U0678 
M3400679 
M3400680 
M34a0&81 
H 340 0 68 2 


o 

o 

o 

o 


o 


o 


DCOSY 


PAGE 


DATEJ 01/27/99 


1 6 


05iJ9 

PG2-rF 

C622 

WRITE7 

LDA- 

(ZERO) , Q 

GET THE HOLLERITH WORD. 


0 6'9 0 

P 0 25;C 

OFC8 


ALS 

8 

PACK LEFT CHARACTER IN CSYBUF. 


0631 

Pu251 

5815 


RTJ^ 

PACK 


0692 

P0 25 2 

C622 


LDA- 

(ZERO),0 

PACK RIGHT CHARACTER IN CSYBUF 


0 6 3 3 

PG25S 

5813 


RTJ^ 

PACK 

• 

0 6 9 4 

P0254 

ODOl 


INQ 

1 



0695 
0 6 9 6 

P0255 

0 814 


TRa 

A 



PO 25b 

98F3 


SUB» 

HRTHPl 



0697 

P0257 

9115 


5UB- 

NWORDS, I. 



0o98 

P0258 
PO 259 

0101 


SAZ 

1 

DONE WHEN 36 WORDS HAVE BEEN OUTPUT. 

0 6 99 

18F5 


JMP» 

WRITE7 



070 0 

P025A 

C85C 


LOA^ 

8LKCTR 



07 0 1 

PO 25B 

0103 


SAZ 

WRIT71 



070 2 

P025C 

6858 


5TA + 

E3KCTR 



0 7 0 3 

P0250 

581C 


RTJ^ 

PAKOl 



070 4 

P0 25E 

0 8 44 


CLR 

A 



07C5 

P025F 

6867 

WRIT71 

STA^ 

BLKGTR 



u 7 0 6 

P0260 

6857 


STA^ 

EBKCTR 



0 7 0 7 

P0261 

0A5F 


ENA 

$5F 

OUTPUT END OF CARD CHARACTERS 

($5F5.E) . 

0 7 0 8 

P0262 

583A 


RTJ- 

PAK06 

0 7 0 9 

P0263 

0A5E 


ENA 

$5E 



0710 

PG264 

5838 


RTJ* 

PAK06 



0711 

0712 

P0265 

1CE5 


JMP» 

(WRITE) 

PACK SUBROUTINE 

. ■' 

0713 







AND WRITES 

0 714 





PACKS CHARACTERS INTO THE COSY OUTPUT BUFFER 

0 715 





THE BUFFER 

WHEN IT IS FULL. 


0716 





ENTER WITH THE CHARACTER TO BE PACKED IN THE 

ACCUMULATOR 

0 71 7 





Q IS RESTORED 

BEFORE EXITING THE ROUTINE. 


0718 








0 719 

P0266 

0 0 00 

PACK 

0 

0 



0720 

P0267 

4851 


STQ^ 

SAtfEQ 



0721 

P0268 

AGOA 


ANO- 

LPNASK4-8 



0722 

PQ269 

68DF 


STA^ 

CHAR 



0 7 2 3 

PD26A 

09DF 


INA 

-$20 

IS A BLANK 


0724 

P026B 

0102 


SAZ 

2 


0725 

P026C 

5800 


RTJ^. 

PAKOl 

• , 


0 72 b 

P026D 

1823 


JMP» 

PAKQ3 

INCRESCENT BLANK COUNTER. 


0 727 

P02foE 

0848 


RAO^ 

BLKCTR 


072 3 

P026F 

C8 47 


LDA^ 

BLKCTR 



0729 

PG27a 

Q 9C1 


INA 

-62 



07 3 0 

PG 271 

0 121 


SAP 

PAKOO 



0 7 31 

P0272 

1CF3 


JHP* 

(PACK) 



0732 

P0273 

0 ASF 

pakgb" 

ENA 

$5F 

62 BLANKS OR END OF :DEC K OR END OF LI BRARY 

0 733 

P0274 

5828 


RTJ^ 

PAK06 

OUTPUT $5F. 


07 34 

P0275 

C841 


LOA^ 

BLKCTR 



0 73 5 

Pu 276 

Q91F 


INA 

$1F 

OUTPUT S5D OR %5E OR $5F. 


0 73 6 

P0277 

5825 


RTJ^ 

PAK05 


07 3 7 

P0278 

1820 


JMP^ 

PAK05 



073 9 

P0279 

OBGO 

PAKOl 

’ NOP 

0 



0740 

P027A 

C83C 


LOA^ 

BLKCTR 




M34G 

0 

665 

M340 

0 

684 

M340 

0 

68 5 

M340 

0 

63 6 

H34G 

0 

687 

H340 

0 

688 

M340 

0 

689 

H340 

0 

69 0 

M34G 

0 

691 

M340 

0 

692 

M34Q 

0 

693 

M343 

0 

694 

Mv340 

0 

695 

M340 

0 

69 6 

M34Q 

0 

b9 7 

M340 

0 

698 

M340 

0 

699 

M340 

a 

700 

M340 

Q 

701 

M340 

0702 

M340 

0 

703 

M340 

0 

704 

M340 

c 

705 

M340 

0 

705 

M 340 

0 

707 

M340 

0 

708 

M340 

G 

709 

M340 

0 

710 

M340 

0 

711 

H340 

u 

712 

M340 

0 

713 

M340 

0 

714 

M340 

0 

715 

M343 

0 

716 

M34C 

0 

717 

M340 

a 

718 

M340 

0 

719 

M34C 

0 

720 

M34G 

0 

721 

M340 

0 

72 2 

K34D 

0 

723 

M340 

0 

724 

M340 

0 

72 5 

M34D 

0 

726 

M340 

0 

727 

M340 

G 

728 

M34C 

0 

729 

M340 

0 

730 

M340 

0 

731 

M340 

0 

733 

M340 

0 

734 
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0741 

PQ27B 

0114 


SAN PAKOli-t-l 

0742 

P027C 

E83B 


LDQ^ EBKCTR 

0743 

PQ27D 

0141 


SQZ PAKOll 

0 7 44 

P027E 

ICFA 


JMP^ (PAKOl) 

0 745 

P027F' 

1811 

.PAKuil- 

JMP^ PAK03 

0746 

P028Q 

Q9FC 


INA -3 

0 7 4 7 

P0281 

0125 


SAP PAK02 

07 4 8 

P0282 

D9Q2 


INA 2 

0749 

P02B3 

6833 


STA» BLKCTR 

075 0 

PQ284 

0 A20 


ENA $20 

0751 

P0285 

5817 


RTJ» PAK06 

0752 

PG266 

18F3 


JMP^ PAK0141 

07 53 ^ 

PQ28 7 

0 A 5F 

PAKG2 

ENA $5F 

0754 

P0288 

5814 


RTJ^ PAK06 

075 5 

P0289 

G82D 


LDA^ BLKCTR 

0756 

P028A 

09F7 


INA -8 

0757 

P028B 

0131 


SAM 1 

0 7 5 8 

P028C 

09G1 


INA 1 

0759 

P028D 

0926 


INA $25 

07 6G 

PQ28E 

58GE 


RTJ- PAK06 

0 7 51 

P028F 

1CE9 


JMP’^ (PAKOl) 

0753 

PG290 

C8 B8 

PAK03 

LOA^ CHAR 

0 7 5 4 

.P0291 

09A0 


INA -$5F 

0765 

P0292 

0113 


SAN PAK'04 

0766 

PG293 

'UA 01 


ENA 1 ' 

0 767 

P0294 

6822 


STA^ BLKCTR 

0 75 8 

P0295 

1800 


JMP^ PAKOO 

0 7 69 

P0296 

C8B2 

PAKG4 , 

■ LDA^ CHAR 

077 0 

P0 29 7 

5 8 05 ' 


RTJ^ PAK06 

0 77 1 

P0 298 

OAGG 

PAKC5 

ENA 0 

0 7 7 2 

P0299 

6810 


STA^ BLKCTR 

07 7 3 

P029A 

E8 IE 


LDO^ SAVED 

0 77 4 

P029B 

ICCA 


JMP» (PACK) 

0775 



* 


0776 

P0 29C 

0 000 

PAK05 

0 0 

0777 

P029O 

E117 


LOQ- CSYLR,I 

0778 

P029E 

QFAl 


QLS , 1 

G779 

PD29F 

4117 


STQ- CSYLR,I 

078Q 

PG 2AD 

0164 


SOP PAKD7 

0781 

P02A1 

QFC8 


ALS a 

0782 

P02A2 

•El ID 


LOQ- CSYPTRtl 

0783 

PQ2A3 

-6622 


STA- (ZERO),Q 

0 78 4 

P02A4 

1CF7 


JMP^ (PAK06) 

0 7 85 

P02A 5" 

Elio 

PAK07 

LDQ- CSYPTRtl 

0 786' 

P G 2 A8 

8622 


ADD- (ZERO), a 

0 7 8 7 

P02A 7 

6622 


STA- (ZERO) ,Q 

0 788 

PG2A8 

0110 


RAO- CSYPTR, I 

0789 

PQ2A9 

CUD 


LDA- CSYPTR,! 

0 7 9 

P02AA 

9800 


SUB 3UFSIZ 


PO 2AB 

FEF3 



0 7 91 

P02AC 

911C 


SUB- A0C5Y6, I 


OVER 2 BLANKS. 

DECREMENTS BLANK COUNTER BY ONE. 

OUTPUT A BLANK. ‘ 

OUTPUT $5F. 

OUTPUT NUMBER OF BLANKS ($21 - $5C (NOT $2B)) 


M34Q0 735 
M340G736 
M3400737 
M3400738 
M34Q0739 
M3<4Q0740 
M3‘+Q0741 
M34Q0742 
M3400743 
M3400744 
M3400745 
M340 0 74 a 
M3400747 
H34Q0748 
M343 0 749 
M3400750 
M34U0 751 
H34Q 0752 
M34Q 0 75 5 
M34a0754 
M34Q 0755 


TRUE $5F. SET TO OUTPUT $5F THEN $20. 

OUTPUT THE- CHARACTER. 

CLEAR THE BLANK COUNTER. 


SWITCH COSY L/R MARKER. 

+ MEANS FILL RIGHT CHARACTER. 

STORE THE LEFT CHARACTER IN THE BUFFER. 


STORE THE RIGHT CHARACTER IN 
INCREMENT THE BUFFER POINTER 
BUFFER IS FULL. 


THE’, BUFFER. 

AND’ SEE IF THE 


H34U 0 75 7 

M340D758 

M340G759 

M340 0760 

M3400761 

H340 0762 

M 340 0 75 3 

M34Q0 7d4 

M3400765 

M34&0755 

M3400767 

M340 a 768 

M340 Q769 

M340 0 770 

M3400771 

M34D 0772 

M3400773 

M3400774 

M3400775 

M340 0 776 

M 340 0 77 7 

M3400778 

M34C-C779 

M3400730 

M34D0781 

M340Q782 

H3400783 

M3400784 


c 

o 

o 

c 

o 


L.' 


o 


o 



o 


o 

o 

o 


M34Q0785 


0 

.0 

0 

u 

0 

0 

Q 

0 

0 

0 

0 

0 

0 

0 

G 

0 

u 

0 

0 

Q 

G 

0 

G 

u 

0 

0 

G 

0 

G 

D 

0 

0 

0 

0 

0 

Q 

0 

0 

Q 

G 

Q 

0 

n 

u 

0 

0 

0 

0 

G 
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732 

P02AD. 

0117 


SAN 

PAK0 9 


M3400 786 

793 

P02AE 

Cl 1C 


LDA- 

ADC3YB, I 

BUFFER IS FULL. RESET THE BUFFER POINTER 

M3400787 

794 

P02AF 

6110 


STA- 

CSYPTR, I 

ANO WRITE THE BUFFER. 

M3400788 

795 

P02BQ^ 

C800 


LDA 

N192 


M3400789 


P02O1 

FF3E 






796 

P02B2 

El 1C 


LDQ- 

ADINPB, I 


M34Q0790 

737 

P02B3 

5800 


RTJ 

WRCO 


M3400791 


P02B4 

FEll 






793 

P02B5 

1CE6 


PAK09 JMP^ 

{PAK06) 


M 340 0 792 

799 

PO 2B6 

0 0 00 


BLKCrP' NUM 

0 

BLANK CHARACTER COUNTER FOR PACK .SUBROUTINE. 

M3400793 

80 G 

PO 2B7 

0 0 GO 


EBKCrR NUM 

■0 

BLANK COUNTER FLAG FOR END OF RECORD. 

M3400794 

831 

P02B8 

0 0 00 


SAVE2 NUM 

0 

VALUE OF Q WHEN PACK SUBROUTINE WAS ENTERED. 

H3400795 

302 

P02B9 

GO CO 


N0192,. NUM 

192 


M34Q 0 796 

803 

P02BA 

2020 


8LNKS ALF 

1, 


M3400797 

80 4 




* 



M343Q798 

805 




jf- 

PACKS END-OF- 

LIBRARY CHARACTERS INTO THE COSY OUTPUT BUFFER 

M340Q799 

80 6 





ANO WRITES 

THE BUFFER. 

M 340 0 80 0 

B07 







M3400801 

808 

P02B8 

00 0 0 


CLEARI .0 

0 


M 340 0 30 2 

809 

P02BC 

0 A5F 


ENA 

$5F 


M3400803 

810 

P02BD 

58DE 


RTJ^ 

PAKQ6 


M 340 0 30 4 

Bll 

P02BE 

0A5F 


ENA 

$5F 

OUTPUT END OF LIBRARY MARKER. 

H3400805 

812 

P02BF 

58DC 


RTJ-^ 

PAKQ6 


M 340 0 80 6 

813 

P02CO 

C117 


LDA- 

CSYLR, I 

" J 

M 340 0 80 7 

314 

PQ2C1 

0122 


SAP 

CLEARO 

SKIP IF WORD- FILLED 

M 340 0 80 8 

•315 

P02C2 

0 A20 


ENA 

$20 


M343 0 80 9 

8 lo 

P02C3 

58D8 


RTJ» 

■PAK06 

FILL RIGHT CHARACTER WITH BLANK 

M3400810 

817 


02C4 

P 

CLEARO EQU 

CLEARQf^) 


M3400811 

813 

P02C4 

CUD 


LDA- 

CSYPTR,! 

CALCULATE THE NUMBER OF WORDS THAT WERE USED 

M34U0812 

819 

P02C5 

911C 


SUB- 

ADCSYB, I 

IN THE BUFFER. 

M3408815 

820 




¥ 


3 CARDS DELETED 

H340 0814 

821 

P02C6 

OlOF 


■ SAZ 

CLEAR2 


M 340 0 81 5 

822 

P02C7 

EO GO 


LOQ 

, =N0 


M340 0 816 


P02C8 

0 0 00 






823 


u2C8 

P 

CLEARI ECU 

CLEARI {^-1 ) 


M34DD817 

824 

P02C9 

01 51 


, 4SQN 

CLEAll 


M3490ai8 

825 

P02CA 

C8EE 



N0192 


;M3400819 

826 

P02CB 

Q9F5 


CLEAll INA 

-10 


M34S0820 

827 

P02CG 

0125 


SAP 

CLEA12 

' 

M3480 821 

828 

P02CD 

E8EC 


LDQ» 

BLNKS 

ALLOW A MINIMUM RECORD -OF lO WOROS 

M3400822 

829 

P0 2CE 

45 ID 


STC- 

(CSYPTR ) ,I 

.M34G0823 

830 

P02CF 

01 ID 


RAO- 

CSYPTR, I 

FOR TAPE DRIVER NOISE LENGTH 

M3430824 

331 

P02DC 

G90B 


INA 

11 


M3400 825 

332 

P02D1 

18F9 


JMP^f 

CLEAll 


M3400826 

833 

P02D2 

El 1C 


CLEA12 LDQ- 

ADINPB, I 


M340fl827 

834 

P02O3 

G90A 


INA 

10 

>^‘MS0S4. J ^^M34u0828 

3 3 5 

P02D4 

5800 


RTJ 

WRCD 


M340 0829 


PQ2D5 

FDFO 






83o 

P02D6 

CllC 


CLEAR2 LDA- 

ADCSYB, I 


M3400830 

83 7 

PQ2D7 

611D 


STA- 

CSYPTR, I 

RESET THE COSY BUFFER POINTER AND THE 

M340 0831 

338 

P02D8 

C800 


LDA 

LR3ET 

LEFT/RIGHT CHARACTER POINTER. ; 

M3400832 


P02D9 

FF6E 






839 

PQ2DA 

6117 


STA- 

CSYLR,! 


M3400833 



o 

o 

o 


M340 0 834 


o 


M3400836 
M340 0837 
M340G838 
H 34 0 0 d 3 9 
M3400840 
M3400841 

M3400842 
M340D843 
M3400844 
M3400845 
M3400848 
M34U0847 
M3400848 
M340G849 
M340085Q 
M340085i 
H3400852 
M3400853 
M 340 0 85 4 
M34G 0855 
M3400856 

M34J 0 85 7 


O 

o 

o 

O 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 


c 

















O 

n 

iJ 
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date: 

01/27/99 







L.^ 

o 

E d U I V 

A L E N 

C E S 

































0 

DEF.LINE 

name 

VALUE 


REFERENCED AT 

LINE 

NUMBER 









o 


QuflO 

I 

GOFF 

( 0 U 0 255 ) 

0052, 

0084, 

0258, 

0272, 

028 0 , 

0293, 

0 4 3-4, 

,0 448 







0 014 

WORDS 

000 8 

(0DQ008) 

0 2 43 












o:"" 

0015 

LPMASK 

0002 

( 0Q0aG2) 

014d, 

. 0 17 5 , 

0177, 

0188, 

D6Gu, 

0721 



' ' 



' 

o 

0016 

NZERO 

0012 

{00 0.0-18) 

0;i98, 

0 521 












0017 

ZERO 

0022 . 

coao.034) 

aiQ4, 

0145, 

0419, 

0 4.65 , 

0 h6 9 , 

0 472, 

0 592, 

0631-, 

0 633 , 

0636 , 

0689, 

0692, 0-783, 0786, o787, 0852 



0Q18 

BIT12 

0Q2F 

(000047) 

0168, 

018 6, 

0192, 

0248 









0019 

8IT14 

0031 

( Q0Q049) 

3 375 , 

0379, 

0 845 










o 

0 0 2 0 

TEN 

0 0 4 6 

( 00 0;0'7fl) 

0 514, 

0531, 

0 5 35 











0021 

DISP 

OuEA , 

{ 000234) 

Q a 75 , 

0 270, 

0291, 

0 446 











0022 

AFNR • 

0GB5 

(OflBiai) 

0097 












0 

0023 

EXT0V4 

u 0 E9 

(000233) 

0121, 

0134, 

U167 , 

0185, 

03Q2 









0024 

COMREQ 

Ou B6 

(000182) 

0 365 












) 


0 025 

REQPRO ■ 

0GF4 

(GGQ244) 

0 854 














0026 

ELU 

00 0 5 

(000005) 

0850 













' ' 

0 02 7 

EPTR 

j 0 0 6 ■ 

(000006) 

010 3, 

0194 











o 


0 028 

EREQST 

u 0 0 a- , 

(000008) 

0374, 

0376, 

0 3-78, 

G 380, 

0 8.4 4 , 

0 846 








0 029 

ESTATi : 

■ 0009 

(000009) 

QUO 














0 0 3 0 

ECCOR 

QOOA f 

lOOOfllO) 

0100 , 

0236, 

0 546 , 

0 349, 

0 351, 

0 465 , 

■0 5 66 







O ' ' 

QG31 

•ELS TWO . 

, OOUB 

{ oooaii) 

0099, 

0 33 9, 

0 520 , 

0 654 







o 

3C32 

ESTAT2 

OOQC 

{ 000012) 

0304, 

0305 












0 033 

ELINK . 

UOIC 

( 000016) 

0 083 














GG34 

SEQNUM 

uu 11 

(OQ0017) 

0 319, 

0 32 7, 

0386, 

0 5 07 











GG35 . 

ID 

0012 ■ 

(000018) 

0 387 , 

0388, 

0389, 

0 425 , 

0 427 , 

0 42 9, 

0 5 20 , 

0524 







0G36 

N WORDS, 

0015.. 

(000,021) 

0101, 

033 7, 

0 356 , 

0556, 

0697 








■ u 


0037 

HOLLR 

0G16 , 

(0QC022) 

3 342, 

0 573, 

0624, 

0 626, 

0 651, 

0 670 , 

0674 








■ 0038 

INPLR 

0017 

(QQ0023) 

0D48, 

0 562, 

0 593, 

0 595 











■ 0 039 

RWFG 

0018 

(000024) 

0114, 

012 6, 

0156, 

0 23 0 , 

0318 








o 


0 040 

PCN5F 

0019 

(000025) 

0 392 , 

0611, 

0617, 

0640 










0 041 

FSTCHR 

OGIA 

(000026) 

3 3 90 , 

0 371, 

0601, 

0605 











0 042 

ENDOCK 

OOIB 

(000027) 

0 322 , 

0408,- 

G 48 1 , 

0 5 7 t 

0 65 0 









o 

0 043 

ADINPB' • 

u u 1 C 

(000028) 

0 0 5 0, 

Gf]95, 

G393, 

G ti H t 

0 57 6, 

.0 579, 

0796, 

0833 





■ o 

0 044 

INPPTR 

OGID 

(000029) 

0 0 49, 

0 394, 

G,57 4 , 

0 58 0 , 

0591 , 

0597 







0 045 

HOLPTR 

OOIE • , 

(000030) 

a ,3 41 , 

0 567, 

0.619, 

. 0630 , 

0 633, 

0 63 7, 

0 6 53, 

0 656, 

u 65 8 , 

0667 , 

0568, 

0672 



0 0 4 6 

FT I ME 

OGIF. 

{ 0 00021) 

O-G-92, 

0.116, 

0128, 

0163, 

0 219, 

0 228, 

0235, 

0315, 

0 32 4, 

0330 , 

0483, 

0861 


o 

0 047 

SFLG 

0020 ■• . 

( 000032) 

G 422, 

0480 , 

0504 








o 

0 043 

DSYLR- ' • 

0017 

(0 00-023) 

3132, 

0 777, 

0779, 

0813, 

0 839 









3 049 

CSYPTR 

OOID 

(QQ0.029) 

0782 , 

0785, 

0788, 

0-789, 

0 794, 

0 818, 

Q8-29, 

0830 , 

0837 





o 

0 050 

AOCSYB 

GOIC 

(000028) 

0791, 

0793, 

0819, 

0 835 








• o 

0 

















; O 

o 

















o 

C') 

















- n 
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V-.- 

o 





o 

o 





o 

o 





: O 

o 





, O 






c 






o 

r'l 

') 





L.-* 

: O 

o 





C; 

o 





: O 

o 





■ O 

o 





O 

o 





O 

o 





C 

o 





C 

C) 




' 

C 
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SYMBOLS 


F.LINE' 

NAME 

ADDRESS 

0010 

ICOSY 

00 0 0 

0 0 70 

BUSY 

0014 

0 071 

LPH YTB 

0 014 

0 0 77 

ADRTAB 

0018 

00 83 

INCSY2 

uOlO 

0G88 

INCSY3 

0022 

0 091 

INCSYl 

002 6 

0 C95 

INCS5 

■ D02B 

0 097 

INCSIO 

0&2E 

010 6 

NIC 

0 0 3 6 

0 IIG 

lOPCl ■ 

003A 

0114 

IOP05 

00 3E 

0 118 

IOPOh 

0042 

0 12Q 

IOP05 

0 04 4 

0126 

lOPlQ 

OGhB 

0131 

lOPll 

0 0 5 0 

0133 

I0P12 

0053 

0143 

SETREQ 

0058 

0 150 

REQTAB 

QQ5E 

0153 

END ADR 

0061 

0154 

3SYAOR 

0062 

015 6 

IOP20 

0063 

0 160 

I0P2DB 

0 0 66 

0165 

IOP20A 

-0 06C 

0172 

I0P21 

0072 

Q 180 

I0P218 

007B 

0181 

I0P21C 

007D 

0183 

I0P22 

0080 

0199 

I0P24 

0091 

0 211 

FEOF 

0090 

0 215 

DOMO 

Q0A2 

0 220 

DOMOA 

00A7 

0 2 2 6 . ■ 

QOMOl ■ 

OQAC 

0 22 8 

WNl 

OGAD 

0236 

WNO 

00B5 

0 240 ' 

TYPDEV 

00B9 

0245 

N18 

OOBF 

0249 

TYPOl 

QOG3 ■' . 

0252 

3AVLU 

00C5 

0 255 

WRCD 

0 0 C o 

0 2 64 

WREQ 

OOCF 


REPERENCED AT LINE NUMBER 


QOIQ, 

QQ77 




Q.QS3 , 
0 0 85 

0091 



0 0 66 

0 0 58 » 
0 098 
0 0 86 
0 0 74 

0 0 60 , 

0062, 

0064, 



0 0 93 
0 087, 
D1Q7 
0108 
0112 
0130 

0, 36 6, 

0862 



3115, 

3113 

0129 

0117 




0127 

0148, 

0144 

0 261, 

0 2 83, 

0437 



0 0 67, 

0'212 




0 0 63 , 

0109 

0157 

0 231 




0162, 

0164 

0182 




0119 
0 1 76 , 

0178 




0158 

0197 

0202, 

0206 




0171, 
0 217 

D210 




0 223 
0137 
0 2 29 
3122, 
0246 

0 13 5, 

0 19Q, 

0 250 


0247 

0241, 

0,2,49 




0 214, 

0,233, 

0277, 

0797, 

0 83 5 

0059, 

0262 
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026 7 

WLU 

0002 

0 269 

WRB 

0 00 4 

0 271 

HCQ 

0006 

0279 

. MRQQ 

GOOD 

0 28 6 

MRQ 

00E5 

0 289 

MLU 

. 00E8 

0 290 

NIREQ 

00E9 

0292 

HCMP 

ODEB 

0295 

HCMPl . 

flOEE 

0 301 

PLUGPT 

Q0F3 

0 30 3 

ISAVE 

OOFA 

0 309 

BLANK . 

OOFB 

0 310 

CSYREC 

OOFB 

0311 

C 

QQFE 

3 312 

SY 

0 OFF 

Q313 

SL 

0100 

0315 

. INI 

0101 

Q 321 

N1 

0107 

0327 

N2 

OlOE 

0345 

COHPl 

Q119 

0 351 

C0HP3 

OllF 

0 361 

COMPS 

0126 

0 362 

C0MP2 

0128 

0363 

■C0MP4 

0128 

0 364 

COMP 

0128 

0 372 

CHKV 

012D 

0 382 

CHKVX 

013 7 

0364 

‘CLR 

0138 

0397 . 

' RCSY 

0144 

0 40 6 

• ER 

0140 

0408 

Cl 

Q14F 

0411 

cc 

0152 

3 415 

C2 

0156 

0419 

IDCK 

015A 

0 424 

lOPUT 

015F 

0 432 

RQQ 

0166 

0 440 

RREQ 

016F 

0^43 

RLU 

0172 

0 445 

RRB 

. 017 4 

0447 

RCl 

0176 

0 455 

EOLOOK' 

Q17E 

0459 

D1 

0182 

0 463 

Oil 

018 6 

0 4b4 

02 

Q188 

0 478 

RESET 

0195 

0 489 

M 

0190 

D 49 0 

ON 

019E 

D 491 

BUFSIZ 

019F 

0 493 

BLNK 

OlAl 

0 4 9 4 

' ' ENOREC 

ulAl 

0495 

E 

01A4 

3 49b 

MD 

01A5 

0 5 03 

WRITEI 

Q1A7 


3136, 

0256 

0191, 

0221, 

0 0 77 , 

0 0 78, 

0 2 65 

3 215 , 

0299 


0 061 , 

0284 


0169, 

0187, 

0297 

3 161, 

0196, 

0216 

Q 0 78 » 

0079, 

0287 

0170 , 

0184 


3274, 

0296, 

0306, 

3 259, 
0 420 

0 271 , 

0281, 

0 079, 
3416 
9 412 
0404 
0124 

0 080 , 

0154 

3 316, 

0323 

0343 

0 32 6 


0 340 , 
0358 
0 476 
0 381 

0 348 


3 2 2 6, 

Q238, 

0350 

0 2 76, 
0 373 

0298, 

0 382, 

0 325, 

0395, 

0-84 

0 320 , 

D423, 

0430 

0 414, 
0405 

0 418 


0409 , 
3 413 
a 417 
0421 

0 458 


0 4U 1 , 

Q'453, 

0585 

0 0 65, 

0'43 8 


0123 , 
0 0 95 

0'433, 

0451 ■ 

0 0 8 0 , 
0 41Q 
a 457 
0 407 
0 461 

0081 , 

U 44-1 

0 094, 
0464 

'0181, 

0 377, 

Q>4& 8 


0587 1 

0 399, 

0.575 , 

0 471 , 

0558 


0081, 
0460 
a 456 

0153 

0 526 

0 361, 

05C6, 


0257, 0275 
0 45Q- 

0292, Q-r35, 0'+47 


0452 


0474 , 0435 
0790 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 
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DATE! 

01/27/9 9 




{’ 'i 

0 











C) 


Q 520 

PID 

0188 

0517 










■0525 

LID 

018D 

0519 


0539 







o 

■ 0 529 

WRITIl 

OIBF 

3 5 09, 

0511, 






o 

0 541 

WRTMP 

OICA 

3 5 33 , 

Q53 8 



0 549 






0 544 

STORE 

OICB 

0510, 

0512, 

0 523, 

0 525, 






0551 

QSAVE 

QlDl 

• 0505, 

0545, 

0546, 

0 5 “tS , 

3t?5'.:?, 0559 





o 

0 552 

IDINP 

01D2 

0516, 

0 5G4 







c 

0554 

BBUF 

0103 ■ 

0 5 63, 

0568 








0559 

BLK 

0108 , 

. 0562 

0660 









. 0565 

READI 

OIDD 

0321, 


0632, 

0638, 0 675 





o 

0 57 4 

RDI05 

01E6 

■ 9 608, 

0 618, 

0622, 





0 564 

N192 

OlFO 

.3586, 

0 795 









0591 

RDI07 

Q1F5 . 

0 578 










0510 

RDI08 

0208 ■ 

3602 

0 645 







Q 

o 

j 619 

RDI0 9 .. 

0211 , 

3 616, 







0 62 3 

RDI G9A . 

Q215 

0621 









0 633 

RDIIO ■ 

•021F 

0627 










0639 

ROIll 

0225 

3 613 








Q 


0 646 

RDI 118 

022C 

0 6 42 









0 659 

RDIliA 

0238 

0 657 









0 661 

RDI12 

0239 

0 6 49 










3 675 

RDI13 

0247 

0 669 








O 

Q 

0578 

LRSET 

0248 

3 131, 

■0572, 

C581, 

0838 

0 f G TZ2 1 

0763, 

076 9 


068G 

SHAR 

0249 

0610 , 

0 614, 

0623, 

0639, 



0682 

WRT MPl 

024A 

0686, 

0696 









3 685 

WRITE 

024 B 

3 237, 

0711 








o 

0689 

WRITE7 

Q24F 

. 0699 








■ u 

0 705 

WRIT71 

025F 

,0 7 01 


0 693, 

0751, 

0 77 4 






0 719 

PACK 

0 26 6 

■ 3 u 88 , 

G691, 






3 732 

PAKOG 

0273 

3 7 30 , 

0768 


0 752, 

0 761 




; O 


0 739 

PAKOl 

0279 

■0 703 , 

0.72 5, 

0 7*,^+, 





0 7<t5 

■PAKOll 

027F 

0741 , 

07i*3 








0 753 

PAK02 

028 7 

0747 

0 745 









0763 

. PAK03 

0290 

.3726, 








0 : 

0 769 

PAKOh 

0296 

, -0 765 








■ c 

. 0 771 
0 776 

PAK05 
. PAK06 

0298 

029C 

-0737 
0 708, 

0 710, 

0 7 33, 

0 736, 

0 751 , 0754, 

0 7 60 , 

0770 , 

0 784;, 

,0798, 0813, 0812, 0816 


0 785 

PAK07 

02A5 

3 780 









O 

. . 0796 

0 799 

3AK09 

3LKCTR 

02B5 

02B6 

• 0792 
■3 700 , 

0 7C 5 , 

0727 , 

0728, 

0734, 0743, 

0749, 

0 75 5, 

0767, 

0 7 7 2 ! 


0 80 0 

EBKCTR' 

02B7 

3 702 , 

0 706, 

0 742 








0801 

SAVEQ 

02B8 

.0720, 

0773 







o 

O 

0 802 

,NC192 

02B9 

.. 3 825 








, 0 80 3 

■8LNKS 

02BA 

0 828 

0 840 








08 08 

SLEARI 

02BB 

0 211, 









0 81 7 

CLEARO 

02C4 

3 814 








o 


. 0 823 

SLEARi 

02C8 

0193 

0832 







0 826 

■CLEAll 

02 ce 

0 8 24, 








0 833 

SLEA12 

02D2 

0827 










0 836 

■ CLEAR2 

0206 

9821 . 

0848 







; O 


0842 

ERRCOO 

02OC 

.0 843, 







U 

Q 8 43 

ERRPRO 

0200 

0180 , 

0 463 







o 

0 858 

ERRPRi 

02EA 

0853 








c 
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o 
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o 
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o 
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o 
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o 

o 

o 
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OCOSY 


PAGE' 26 

DATE; 01/27/99 

X T E R 

N A L S 




OEF.LINE 

, N A H E 

VALUE 

REFERENCED AT 

LINE NUMBER. 

Q QG9 

M A S 3 0 0 

u u 2 5 

0090 


Dull 

LOGIA 

00F6 

3242» 0303 


0 012 

ALTDEV 

Q2EB 

0859 


0013 

MAKEQ 

02E2 

0364» 0847 



OCOSY 


PAGE 27 


DATE? 01/27/99 


A L 

P H A 

B E T I 

CAL 

S 0 R ■ 

ADCSYB 

0 05D. 

ADINPB 

0 043 

AORTAB 


0559 

8LKCTR 

0799 

BLNK 

CC 

0 411 

CHAR 

0 680 

GHKV 

CLEARI 

0808 

CLR 

0 384 

COMP 

CSV ADR 

0 lt?4 

CSYLR 

0 048 

CSYPTR 

DOMOl 

0226 

DOMOA 

0 220 

E 

END AD R 

0153 

EN03CK 

9 042 

ENDREC 

ESIATl 

0029 

ESTAT2 

0 032 

EXTB\/4 

IQOSY 

0010 

ID 

0 035 

IDCK 

INCSY2 

0 0 83 

INCSY3 

Q088 

INPLR 

lOPli 

0131 

IOP12 

0133 

IOP20 

I0P24 

0199 

ISAVE 

'0308 

LID 

MAS 300 

0 00 9 

HCMP 

0 292 

HCMPi 

N13 

0 245 

N192 

. 0 584 

NIC 

PAKOU 

0 732 

PAKUl ' 

0 739 

PAKOll 

PAK09 

079 8 

PCN5F ' 

'0 040 

PIO 

ROIO 8 

0610 

R0IG9 

0619 

ROI09A 

REAOI 

0 55 5 

REQPRO 

■■ 0 0 25 

REQTAB 

SA^EQ 

0801 

SAVLU 

0 252 

SEQNJM 

TYP 01 

0249 

TYPOEV 

0 240 

WCO 

WREQ 

0264 

WRIT7i 

3 705 

WRITE 


0 F 

S Y M B 

0 L S 


0 0 77 

.A FNR 

0022 

ALTDEV 

0 493 

BLNKS 

08G 3 

8UFSI7 

0372 

7CHKVX 

0382 

CLEAll 

0364 

■ COM PI 

0345 

C0MP2 

0 0 49 

CSYREC 

.0310 

D1 

0 495 

EBKCTR 

0 80 0 

ECCOR 

0 494 , 

EPTR 

0027 

ER 

0 023 

■ FEOF 

9 211 

■ FSTCHR 

3 419 

IDINP 

0 55 2 

■lOPUT 

0 0 38 

■ INPPTR 

0044 

■ lOPyl 

0 155 

■ IOP20A 

0165 

IOP2QB 

0 5 25 

. LOGIA 

0011 

•LPHYTB 

0 295 

MLU 

0289 

MREQ 

0 106 

■N2 

032 7 

■ NO 

0 745 

PAKQ2 

0753 

PAKu3 

0 520 

PLUGPT 

0 301 

QSAVE 

0623 

RDIIQ 

0 633 

RDIll 

0150 

RESET 

0473 

RLU 

u 0 34 

SETREQ 

0143 

SFLG 

0271 

WLU 

0267 

WNl 

0 5 85 

WRITE7 

0689 

WRITEI 


0012 

BBUF 

0 55 4 

BIT12 

0491 

BUSY 

0070 

C 

0826 

CLEA12 

0833 

CLEARQ 

,0362 

C0MP3 

0 351 

C0HP4 

0459 

Dll 

0'46 3 

02 

0030 

EDLOOK... 

0455 

ELINK 

0.40 6 

EREQST 

0028 

ERRCOD 

Q041 

-FTIME 

0046 

HOLLR 

y 4 2 4 

,IN1 

0 315 

INCSie 

-'0110' 

■ IOP0 3 

0114 

IOPQ4 

0160 

I0P21 

0172 . 

IOP21B 

0071 

LPMASK 

0 015 . 

LRSET 

0 29 0 

MRQ 

0286 ■ 

MRQa 

0496 

NWOROS , 

0 0.3 6, 

NZERO 

0763 

PAK04 

076 9' 

PAK0 5 

0551 

RCl 

0 447 

ROSY 

0639 

ROIllA 

■ 0659 . 

RDI118 

0443 

rdq 

0 43 2 

,RRB 

0 047 

SL 

0313 

STORE 

0228 

WNO 

0236 

WORDS 

0503 

WRITIl 

0529 

WRTMP 


0013 

BIT14 

oaig 

BLANK 

0311 

Cl 

0 40 8 

C2 

0317 

CLEARI 

0 823 

CLEAR2 

0363 

COMP5 

0 361 

COMREQ 

0464 

DISP 

0021 

OOMO 

0033 

ELSTWD 

OQ31 

ELU 

0842 

ERRPRl 

0 858 

ERRPRO 

0037 

HOLPTR 

0 04 5 

I 

00 97 

INCS5 

0095 

INCSYl 

0113 

I0PG5 

0120 

lOPlG 

0180 

I0P21C 

0181 

I0P22 

0578 

M 

0 48 9 

MAKEQ 

0279 

N2192 

Q 8C2 

N1 

0016 

ON 

G m9Q 

PACK 

0771 

PAKG6 

G 776 

PAKG7 

0397 

RDI05 

,0 57 4 

RDI07 

0546 

RDI12 

0 661 

R3I13 

0 44 5 

RRE Q 

'0 440 

RWFG 

05 44 

SY 

0 312 

TEN 

0014 

WRB 

0269 

WRCO 

0541 

WRTMPl 

0 682 

ZERO 


0309 
0 A15 
0836 
GQ24 
0215 
0026 
0843 
0000 
u 091 
0126 
0183 
0013 
0321 
0719 
0 7 85 
0591 
0675 
0 039 
0020 
0255 
0017 


nHTSI'1 
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DATE! 01/27/99 



OGQi 
00 0 2 


■ 

00 03 - 



. 00 0-^ 



00 0 5 


n 

uQQ7 

V- 


' OQQ 8 

^S2 


0009 


C) ' ' 

0010 

if- 

0 011 

If 


0012 

. ^ 


0013 

♦ 


001 



00 15 

if- 


0016 

if- 


0017 

if- 


OG 18 



0019 



00 2 0 

if- 


0021 



0022 

if 


QD 23 



0024 

if- 


0025 

¥ 

o 

0 0 2 6 
0 02 7 

¥ 

¥ 


0 0 2 8 

¥ 


0G29 

¥ 


03 30 

¥ 

'■4/ 

- 0 G 3 1 

¥ 


0032 

if 


03 33 



Qu 3.4 

¥ 

■ly 

0Q35 

¥ 


0036 

¥ 


NAM DMTSIM DECK-IOH33 MSOS 5.0 

MAG TAPE SIMULATOR., DRIVER 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, GALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY- 


FUNCTION - 

THE PURPOSE OF THIS PROGRAM 
OF A 9 TRACK MAGNETIC TAPE 


SIMULATE THE OPERATIONS 


GENERAL OESCRIPTIO 
THIS DRIVER ALLOTS 
OR TWO DISK DRIVES 
EACH DISK OR BOTH, 
AS OESIREO. EACH 
BY A SEPERATE LOGI 
REQUESTS ARE HANOI 
STATUS WORD IN EAC 
REASONABLY COMPATA' 
THERE 13 NO LIMIT, 
SIMULATOR UNITS TH 
STORAGE AND CORE F 


ONE TO USE ASSIGNIEO AREAS OF, QNt , 

AS THOUGH THEY WERE HAG T APE - DRIVES. ^ 

IF USED, HAY HAVE AS MANY ASSIGNED AREAS 
OF THESE BUFFER AREAS. IS REFERENCED 
CAL UNIT NUMBER. ALL M4G TAPE MOTION 
ED BY THIS DRTV.ER. THE, HARDWARE 
H DEVICE PHYSTflB IS UPDATED AND IS 
BLE WITH THAT FOR A REAL MAG TAPE. 

TO THE TOTAL NUMBER OF .MAG TAPE 
AT MAY BE USED (GIVEN SUFFICIENT MASS 
OR PHYSTABS, LOG TABLES, ETC.). 


THE BASIC SOFTWARE REQUIREMENTS TO RUN. THIS DRIVfcR ARE 
H;S.04S. OPERATING 'SYSTEM, VERSION 3.0, AND A WORD 
AODRESsSblE DISK DRIVER. A. MODIFICATION MUST ALSO BE 
MADE TO THE MODULE' ♦MIPRO^ JO ALLOW ENABLING AND 
DISABLING THE WRITE RING OF EACH MAG TAPE SIMULATOR UNIT 
CIE. SET OR CLEAR BIT 15 IN PHYSTAB WORD 12 — ESTAT2). 

IF USING THE SYSTEM DISK AS ONE OR MORE OF THE MASS 
MEMORY BUFFERS FDR THE MAG TAPE SIMULATORS , SET MAXSEC 
TO (MAX MM SECTOR ADDRESS FOR DEVICE - AREA REQUIRED FOR 
BUFFERS) . 


110M330Q0Q1 
M33QQ002 
M 330 0 00 3 
■ M3300004 
M33QQ00 5 


M3300007 
'M33000Q6 
M33QQ0Q9 
M333 0010 
M3300aii 
M33Q0 ai2 
M.33 0 0 Q13 
M35G.0 01 4 
M33aoat5 
HS30 OQlb 
M33QQQ17 
M33Q0018 
M330 0019 
M33S0020 
M33Q0021 
M3300Q22 
M3300Q23 
M330002‘^ 
M330Q025 
M33Q0,026 
H3300027 
M33a0Q26 
M3300a29 
M3300u3G 
M33fl0031 
M33QQ032 
M33Q0033 
M3300Q34 
M33000S5 
M33u0Q36 


o 


OMTSIM 


PAGE 


2 


date: Gl/27/99 



0 0 3 8 

•it V* ^ 


00 39 


r"' 

0Q4Q 


00 41 



' 00 42 



0 0 43 


C'’ ' 

,, 0 0 4 4 


Q Q 4 5 



0 04 6 



00 47 



. 0 0 4 8 


■■ J 

0 0 49 



0“ 50 



00 51 



GQ52 



0053 



0 0 5 4 



0 0 55 


,'****'\ 

0 0 5 6 



, 005 7 



0 0 5 8 

V- 


0 059 


l’ 'l 

. 0 0 5 0 


O 

0061 



0 0 5 2 

¥ 


0063 



00o4 
0055 
Q 0 5 6 
0 Q 5 7 


O 

0058 ■ 





, 0069 



.SUBROUTINES - 


0 0 7 0 



EXT 

ALTOEV 


0071 



EXT 

LOG 

0 

00 72 



EXT 

MA3300 


00 7 4 

0 0B5 


EQU 

AFNR($85) 

1 

‘ 00-7 5 

. 0QB6 ' 


. . EQU 

ACHPRQ('SB6) 

t 

00 7 6 

OOEA 


EQU 

ADISP(SEA) 


0077 
00 7 8 

U 0 F4 

Sf. 

EQU 

AMOMI ($F4) 


1) °UPON ENTRY TO THE DRIVER A CHECK IS MADE TO SEE IE 

THE DRIVER, IS ALREADY BUSY. IF SO, AN EXIT IS MADE 
TO THE DISPATCHER. IF NOT, THE REQUEST IS • PROCESSED. 

2) A call, is MADE TO FIND NEXT REQUEST. IF A REQUEST 

IS NOT FOUND, THE DRIVER GETS THE NEXT MAG. TAPE 
simulators PHYSTAB. if THERE ARE NO REQUESTS FOR 
THAT MAG TAPE SIMULATOR AND ALL SIMULATORS HAVE BEEN 
PROCESSED, THE DRIVER EXITS THROUGH MAS 30 0 .^ ^ ^ 

3) IF A. REQUEST IS FOUND AND IT IS THE FIRST REQUEST 

MADE TO THE DEVICE THE PRESTORED STARTING MASS 
MEMORY ADDRESS FOR THE MAG TAPE SIMULATOR IS CONVERTED 
TO A WORD ADDRESS. ^ 

L) THE REQUEST, TYPE IS DETERMINED AND CONTROL IS GIVEN 
TO' T4E APPRQPIATE SECTION, -JO PROCESS THE REQUEST. 

UPON COMPLETION A GALL IS MADE TO COMPLETE REQUEST 
AND IT RETURNS CONTROL TO THE DRIVER AT STEP 2. 

INPUT REQUIREMENTS 

UPON ENTRY TO THE DRIVER, THE Q REGISTER CONTAINS 
THE ADDRESS OF THE PHYSICAL DEVICE TABLE 

ENTRV/EXIT - 

ENT IMTSIM DRIVER INITIATOR 

THE DRIVER RETURNS CONTROL THROUGH MAS30G 


ALTERNATE' DEVICE HANDLER 
ERROR LOGGING ENTRY 
DRIVER EXIT ROUTINE 


FIND NEXT REQUEST 
COMPLETE REQUEST 
DISPATCHER 
MONITOR 


H330 U 05 8 

M33G0039 

M330004G 

M330G0A1 

M330u 042 

M33.00043 

M3300044 

M3300Q45 

M3300046 

H3300a47 

M3S00Q48 

M3300049 

M330005G 

M33G0051 

M330a052 

M3300053 

M330 0 054 

M33aOQ55 

H330fl'056 

H330fl,Q57 

M33Q0058 

M33&0'059 

M3300G5G 

M33a006i 

M3300062 

M33D0063 

M330 0064 

M3300 0.65 

M33000.66 

M33fl0Q67 

M3300 068 

H 330 00 69 

M33Q0 070. 

M33000.71 

M33G0072 


M33Q0Q74 
M3300 075 
M330007& 
M3300077 
M3300 078 


DMTSIH 


PAGE 


3 


DATES 01/27/99 


00 3 0 
00 81 


PARAMETERS - 

00 82 


THE FOLLOWIN 

00 3 3 

■V 

THE MAG TAPE 

U08i- 
008 5 


NUM 

$5208 

G 036 


ADC 

IMTSIM 

0087 

jf- 

ADC 

0 

0 J 88 


ADC 

0 

0 0 89 


NUM 

-1 

G 0 9 0 


NUM 

. 0 

0091 


NUM 

. 0 

0092 

Sf. 

NUM 

0 

0093 

Jf. 

NUM 

. $0A46 

0G9 4 


NUM 

■ 0 

0095 


NUH 

0 

0 0 96 

if. 

NUH 

• 0 

0097 

If. 

NUH 

' 0 

0098 

V 

ADC 

LMTSIM 

0099 

If 

ADC 

SMTSIH 

010 0 


NUM 

0 

0101 ■ 


NUM 

8 


SAMPLE PHYSICAL DEVICE TABLE FOR 


0 

G 

0 

. MrBFSi 
0 

MTBFEi 

MTSIM? 


1 ED IN 
. 2 EOCN 

3 ED PGM 

4 EDCLK 

5 ELU 

6 EPTR 

7 EWES 

& EREQST 
9 ESTATl 
, 10 ECCOR 

11 ELSTWO 

12 ESTATE 

13 LENGTH 

14 ADMMOR 

15 RETURN 

16 EOSKLU 

17 EDSM3B 

18 EDSLS8 

19 EDSTRl 

20 E0STR2 

21 EOLSTl 

22 EDLST2 

23 ENEXT 


SCHEDULER CALL 
INITIALIZER ENTRY 
DUMMY 
DUMMY 

DIAGNOSTIC CLOCK 
LOGICAL UNIT 
REQUEST POINTER 
DUMMY 

EQUIPMENT TYPE CODE 
SOFTWARE STATUS 
START OF USERS BUFFER 
LWAtl OF USERS BUFFER 
HARDWARE STATUS 
DRIVER LENGTH IF MASS MEMORY 
NAME ASSOC.IATED WITH SEC NUM 
RETURN ADDRESS 
DISK LOGICAL UNIT 
MM WORD 

ADDRESS POINTER 
MM SECTOR ADDRESS 
START OF BUFFER 
MM SECTOR ADDRESS 
END OF BUFFER 
POINTER TO NEXT PHYSTA8 


M 33 D u U 8 0 
M33GO081 
M330C 082 
M3S0 0QS3 
M33Q 0 084 
M33C0085 
M330 0 085 
M330 0 087 
M3300088 
M3300Q39 
M33 00 090 
M3300 091 
M3300092 
M3300 093 
M3300 Q94 
M33Q 0 095 
M33Q0a96 
M3330097 
M33D0098 
M330UQ99 
M330 0 100 
M3300101 
M 33 0 0 10 2 
M3300103 
M3300104 
M33001Q5 
H3300106 
M330 0107 
M330Q108 
M 330 0 10 9 


DMTSIM 


DATE: 01 / 27 /gg 


THE FOLLOWING ARE THE HARDWARE STATUS BITS (ESTATE) 



15 _ 

14 

13 

12 

11 

10^ 

g 

V- 




— .. 

— — 


— — 

Jf- 
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if. 
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0 

V- 


. D 

0 

0 

M 

P 

F 


MESSAGES - 

THE FOLLOWING ARE THE ERROR MESSAGES DETECTED BY THE 
DRIVER AND SENT TO THE USER 

2 = ALARM - A . DISK I/O ERROR ^ 

3 = ILLEGAL RECORD HEADER OR HEADER NOT' FaUNO 

.3 = ATTEMPTED WRITE WITH NO T ABLEO 

L8 = ATTEMPTED READ AT END OF WRITTEN DATA 
51 = NOISE R~CORD - ZERO LENGTH WRITE 
Ik = ATTEMPTED WRITE PAST END OF MAG TAPE SIMULATOR 
bO = ILLEGAL TAPE MOTION REQUEST 


M33u0iil 

M 33 0 0112 

M3300 113 

M3300114 

M330Q115 

M330Q116 

M330Q11 7 

M330Q118 

M330ail9 

M33Q0120 

H 330 0121 

M33D0122 

M3500123 

M53D0124 

M 330 0 12 5 

H33Q 012 6 

H 33 00 12 7 

M3300128 

H3300129 

M33 00130 

M33D0131 

M3300132 

M3300133 

M3300134 

M3300135 

M3300136 

M3300137 

M3300138 

M3300139 

M3300140 

M3300141 

M33Q0142 

M3300143 

M330Q144 

H3300145 

M330014b 

M3300147 

M33Q0148 

M330Q149 

M3300150 


o 






DATES 01/27/99 




M33D0152 
H3300153 
H33Q0154 
M330 0155 
H33 0 G 15b 
M33Q 015/ 
M3300158 
M33Q0159 
M3300160 
M330G1&1 
H33Q0162 
H33G0163 
M3300164 
H33Q0165 
H 330 0166 
M330D167 
M3300168 


M33GQ170 
M3300171 
M 33 0 fl 17 2 
M3300173 
M3300174 
M350G175 
M330D176 
M3300177 


Q 

o 

o 

C"\ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DMTSIM 


PA3E 


date: 01/27/99 


o 

o 

CJ 

o 


o 


/ I 


0179 






0130 




D R 

I V E R ENT 

0181 






018 2 






0163 

PO 0 0 u. 

40FF 

START 

,STQ- 

I 

018*+ 

POOul 

.EG 00 


LDQ 

=XIMTSr M-START 


POOL 2 

0015 




018 5 

P00G3 

0832 


AAQ 

Q 

018 6 

P 0 0 0 A 

4101 


STQ- 

1,1 

013 7 

PGOQ 5 

EG 00 


LOQ 

=XCMPL-START 


P00G6 

01D3 




0168 

P0GG7 

0832 


AAQ 

Q 

0189 

PGG G8 

480 0 


STQ 

CO.MP 


PG009 

C1C2 




019G 

P 0 0 0 A 

EQ 00 


LDQ 

=X8UFR-START 


PDOGB 

G2A6 




0191 

POOOC 

0832 


AAQ 

Q 

0192 

PuOO 0 

4800 


STQ 

HORBFR 


POOOE 

029E ^ 




0193 

POGQF- 

EDOO . 


LDQ 

=XBUFR1-START 


POO 10 

02A9 ' 




019 A 

P.OGii 

0 834 


AAQ 

A 

.0195 

PQ 012 

6800 


5TA 

TRL8FR 


P0313 

029A 




0196 

P0014 

1802 


JMP» 

IMTSIM+1 


SAVE THE ABSOLUTE INITIATOR ADDRESS 
SAVE THE ABSOLUTE. DISK I/O COMPLETION 

SAVE THE ABSOLUTE HEADER BUFFER ADDRESS 

SAVE THE ABSOLUTE TRAILER BUFFER ADDRESS 


M3300i79 
M330 Q 180 
M33G 0181 
H330Q182 
M33QG183 
M3300184 

H 33 00 18 5 
M3 30 0 18 5 
M33D0187 

M33G0188 

M3300189 

M33G 019D 

M3300191 

M3300192 

M3300193 

M330019L 

H3300195 

M33Q0196 


o 

C) 

o 

o 


o 

o 


o 


o 


o 

o 

o 

o 

o 


n 


O 

C 

O 

O 




o 


DHTSIM 


PftGE 


7 


P0015 

P001& 

P0017 

P0018 

P0019 

PQOIA 

POOIB 

PO.QIC 

POOID 

POulE 

POOIF 

PQ020 

POu2i 

PQu22 

P0023 

P0024 

P0025 

POu2b ' 

P0027 

P0028 

PQQ29 

P0 0 2A 

POD2B 

P002C 

P002D 

PO 02E 

P002F 

POQ30 

P0031 

PQC32 

P0033 

PQ034 

PQ035 
P0036 
P0037 
PQ038 
POQ39 
P3Q3A 
P0 03B 
P003G 
P0030 
P003E 
PO 03F 
P0u40 
PO Li 4i 
P0042 
PD043 
POOhA 
P 00 H 5 
P0Q46 
POO 47 


40FF 
CSOO 
01 63 
Old 
IAEA 
EQFF 
4800 
0165 
5485 
18 55 
ClUC 
AQll 
0101 
1813 

cooo 

5-+11 
Bloc 
610C 
C114 
■5844 
4113 
4111 
6114 
6112 
C116 
583E 
0961 
0122 
AQ 11 
OD 01 
4115 
6116 

0 A 0 0 
68 56 
6800 
028B 
CIOC 
0FC4 
0122 
OCOl 
484F 
QFC4 
0123 
OCOl 
48 0 0 
0281 
CIOC 
AOQO 
F401 
B024 
610C 


IMTSIM STQ- I 

LDA TEMP 


CHECK 


PSTl 


PST2 


PST2A 


PST3 


PST3A 


PST4 


SAZ 

JMP- 

LDQ- 

STQ 

PTJ- 

JHP» 

LDA- 

AND- 

SAZ 

JMP'^ 


(AFNR) 

GOCYL 

ESTAT2,! 

LPHSK+1 5 

PST2-^-l 

PST3 

=M$5411 


EOR- 

STA- 

LOA- 

RTJ^ 

STQ- 

STQ- 

STA- 

STA- 

LDA- 

RTJ’ 

INA 

SAP 

AND- 

INQ 

sia- 

STA- 

ENA 

STA^ 

STA 

LDA- 

ALS 

SAP 

ENQ 

STQ» 

ALS 

SAP 

ENQ 

STQ 


LDA- ESTAT2,! 
AND =NEF4Q1 

EOR- ONEBIT+1 
STA- ESTAT2,! 


FHFNO 

FLMARK 


o 


DATE: 01/27/99 


CHECK IF DRIVER BUSY WITH ANOTHER DEVIC.E 
NO. 


GO FIND NEXT REQUEST 

GO GET NEXT PHYSTAB 

IS THIS 1ST TIME IN DRIVER 

MASK OUT BIT 15 

YES 

NO 

LD . PNT,EOP,RDY,CONT ACTIVE, 800 BPI 

PRESET HARDWARE 
STATUS. 

CALCULATE AND 

PRESET STARTING 
MM ADDRESS 
AS WELL 
AS HM .. 

POINTER. 

CALCULATE LAST 
MM ADDRESS. 

CORRECT LAST 
ADDRESS FOR 
SIZE OF 

LAST SECTOR. 

STORE 

IT. 

CLEAR FILE MARK 
FOUND FLAG AND 

BACKSPACE FILEMARK FLAG. 


WAS A FILE 


HARK FOUND 


ON LAST READ. 


YES, SET 
FLAG. 

WAS A BACKSPACE 

FILEMARK FOUND BEFORE. 
YFS, SET 
FLAG. 


CLEAR ALL CLEARABLE 

CONTROLLER STATUS BITS 


EXCEPT LOAD POINT AND 
SET DRIVER BUSY BIT. 


M3300198 

M33QQ199 

M 330 0 20 0 
M330Q2G1 
M330 0202 
M33 0 0 20 3 

M3300204 
M 330 0 20 5 
M330Q206 
M 33 0 0 20 7 
M 33 0 0 20 a 
M33Q02Q9 
M 33 0 0 210 
M3300211 

M330Q212 
M33Q0213 
M33D0214 
M330a215 
M3330216 
M3300217 
M330u218 
M3300219 
M3300220 
H3300 221 
M33 00222 
M33Q0223 
M33GG224 
M 330 0 22 5 
M3300226 
M33D0227 
M33Q 0228 
MS3fl0229 
M333 0 230 
M333Q231 

M33Q0232 
MS300233 
M330Q234 
M330Q235 
M33Q0236 
M 330 0 23 7 
M33fl0238 
M33Q0239 
M3300240 

M330G241 

M330G242 

M3300243 
M33] 0244 


c. 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 


DMTSIM 


P&GE 


8 


date; 01/27/99 



M330 0245 
M35002A6 
M3300247 
M33002A8 
M3300249 
M3300250 
H330Q251 
M3300252 

M33Q0253 
M330Q254 
H330 0255 
M3300256 
M3300257 

M333 0258 

M330Q259 
M3 3u 0 26 C 

M3300261 

M33002&2 

M3300253 

M3300264 

M3300265 
M330 0266 
M3300267 
M3300268 
M330Q269 
M3330270 
H3300271 
M3300272 

M33Q0273 
M3330274 
M330 0275 
M330 0276 

M330 0 277 
M33Q 0 278 
M 33 0 0 27 9 
M333 0 280 
M3300281 
M3300282 


O 

O 

O 

o 

V.' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DMTSIM 


= AGE 


O 

O 

O 

o 

c 


r- 


O 

o 

o 

o 

o 


o 


0 2,84 






0 2-8 5 



« THIS 

: IS ■ 

THE REAQ/WRI 

0286 



¥ 



0287 

P0075 

ClOB 

RDWRIT 

LDA- 

ELSTWD, I 

0288 

P00 76 

910A 


SUB- 

ECSOR ,I 

028 9 

PQ077 

0111 


SAN 

RDG01-»-l 

0290 

PQ078 - 

OAOl 


ENA 

1 

0291 

POO 79 

637F 

RDGOl 

ST^^ 

NUMRQS 

02 9 2 

P007A 

687F 


STA^ 

NUMWDS 

0293 

P007B 

0822 


TRA 

Q 

0294 

P007C 

ClOA 


LDA- 

£CC0R,I 

0295 

PQ07O 

687D 


STA» 

STRTCO 

029 6 

PO G7E- 

C109 


LOA- 

ESTATl, I 

0297 

PQ07F 

AD23 


ANO- 

ONEBIT+O 

0 29 8 

P0 080 

0111 


SAN 

WRITRQ-^-1 

0299 

P0081 

187A 


JMP-^ 

READ 

0 30 3 

P0 082 

0 814 

WRITRQ 

TRQ 

A 

0301 

P0 083 

C9FC 


INA 

-3 

030 2 

PG084 

0123 


SAP 

WRITDK-^'-l 

030 3 

P0085 

0 AIF 


ENA 

31 

030 4 

P008 e 

1800 


JMP 

ERROR 


P0G87 

0157 




03 0 5 

PG 088- 

0814 

■ WRIT3K 

TRQ 

A 

0306 

P0069 

5805 


RTJ^ 

WRITE 

0307 

P008A 

1800 


JHP ■ 

WEXIT 


P008B 

UOCE 




030 8 



H- 



0 309 



>c 



0310 

P0 08C 

0 0 0 0 

FMFNO 

NUH 

0 

0311 

P0fl8D 

0000 

ERFLAG 

NUM 

a 

0312 






0313 







DATES Dl/27/99 


PROCESSOR 

FIND NUMBER OF - . 

WORDS TO TRANSF-ER. 

ZERO WORD transfer; REQUESTED 

YES, SET NUMBER OF HDS TO 1 . , . 

STORE IT 

SET NUM. TO TRANS. TO NUH. REQUESTED 

GET STARTING ADDRESS 
AND SAVE 
IS THIS 

A READ OR 
A WRITE 

REQUEST. 

IS NUM. TO TRANS. 

LESS THAN 2? 

YES, INDICATE ERROR- 
NOISE RECORD 


PROCESS WRITE REQUEST 


FLAG TO INDICATE FILE MK FND ON LAST READ 
FLAG TO INHIBIT HEADER ERROR OUTPUT 


M3300284 
M3300285 
M3330286 
M330 Q.287 
M330 0 288 
M3330289 
H33QU 290 
H3300291 
M 330 0292 
H3300293 
M3300294 
M330 0 295 
M3300296 
M330Q297 
M330Q298 
M330Q299 
M 33 C 0 3 0 0 
M33G0 3Q1 
M33G0 302 
M330U 303 
M 330 0 30 H 

M 33a 0 30 5 
H3380306 
M33 00 307 

M33Q 0 308 
M3300309 
H330 0310 
M330 0311 
H330 0 312 
M33QQ 313 


o 

o 


o 

o 

o 

c 

o 

o 

o 

o 

o 


o 

o 

o 

o 


o 

o 

o 

n 
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date; 01/27/99 


0315 






0 316 



^ PROCESS WRITE REDUE 

0317 





0 

0 313 

P0G8E 

OBOO 

WRITE 

NOP 

G319 

P0D8F 

8112 


ADD- 

ED5L3B, I 

032 0 

P0090 

09 06 


INA 

6 

032 1 

P0 091 

till 


LOQ- 

£03 MSB, I 

0 322 

■P0092 

0122 


SAP 

WRITI -»-l 

0323 

P0C93 

AQll - 


AND- 

LPM3K+15 

0324 

P0Q94 

ODDI . 


INQ 

1 

0325 

PD095 

QFFO 

wRiTi ; 

LLS 

16 

0325 

P0fl,96 

9115 . 


,SUB~, 

EDL5T1, I . 

0327 

P0Q97 

0106 


.SAZ 

WRIT2-^-l 

0328 

P0Q98 

0139‘ 

' 

■ SAM 

WRTO-^-1 

0329 

PG099 

0CD9 .. 

overfl. 

-ENQ 

9 

0330- 

P009A 

5800 


. RTJ 

SETS! 2 


P0fl98‘ 

Q0E5 ■ 


ENA • 

44 

0331 

P0Q9C- 

.QA2C . 


0332 

P0D9D 

1808 

0814 


JMP» 

WERROR 

0533 

P009E . 

WRT T2 

TRQ 

A 

0334 

P0 09F 

9116 


SUB- 

E0L3T2, I 

0335 

POOAO 

0131 


SAM 

WRTO-^-1 

0336 

PflOAl 

13F7 


JHP^'^ 

OVERFL 

033 7 

P0 0A2 

CIOC 

WRTO 

LDA- 

ESTATE, I 

0338 

P00A3 

0153 


SAM 

WRTl-^-1 

G339 

'P00A4 

QAOD 


ENA 

13 

034 0 

POO A5 

18 00 

WERROR 

JHP 

ERROR 

PO0A6 

0138 




0341 

PQ0A7 

5800 

WRTl 

RTJ 

ROHEDR 


PU0A8 

0221 



ESTATE, I 

0342. 

P00A9 

CIOC 


LOA- 

0343 

PGOAA 

QFC5 


ALS 

5 

0 3 44 

POOAB 

0138 


SAM 

WRTA 

G34p 

Pfl OAC 

E800 


LQQ 

FLMARK 


POOAD 

0216 



WRTA 

Q346 

PGOAE. 

0155 


SQN 

0347 

POOAF 

OFCF 


ALS 

15 

0348 

POOBO 

0131 


SAM 

WRTBl 

0 34 9 

P0081 

1812 


JMP^ 

WRTB 

035Q 

P0082 

E8D9 

WRTBl 

. LDQ^ 

FM^ ND 

0351 

PO DB3 

01 5F 


SQN 

WRTB 

0352 

P00B4 

C800 

WRT A 

LOA 

8JFR 


PO 0B5 

OlFl : 



LPMSK+l 5 

0 3 53 

P00B6 

AOll 

.. * 

. AMD- 

0 3 5 4 

P00B7 

09FE 


INA 

-1 

0355 

P00B8 

0117 


SAN 

WRTAl 

0356 

P0GB9 

5800 


RTJ 

OECAOR 

POOEA 

01F4 



CLRBSF 

035 7 

POOB8 

58C0 


RTJ 


POOBC 

G2QD 



RDHEOR 

0358 

P 0 uBD 

58 00 


RTJ 

PO OEE 

020B 



WRTB 

0 3 5 9 

POuBF 

18 04 


JMP-“ 


ADD LSB OF MH POINTER 
CORRECT FOR HEADER AND TRAILER 
GET HSB OF HH POINTER 
IS BIT 15 OF LSB SET 
YES, CLEAR BIT 15 

AND INCREMENT MSB. 
INTERCHANGE MSB. AND LSB 
SEE IF WE OVERFLOW MM ^BUFFER 
POSSIBLY, CHECK FURTHER 
NO HAY, CONTINUE. PROCESSING 
YES, SET END OF JAPE BIT 
(9J IN STATUS WORD. 


SET ERROR CODE =44 

TO INDICATE END OF PSEUDO-TAPE. 
FURTHER CHECK 
FOR OVERFLOW 

OF MM BUFFER. 


IS WRITE 

RING ENABLED. 

NO, SET ERROR CODE = 13 

TO INDICATE WRITE RING D 


ISABLED. 


READ AND CHECK CURRENT HEADER 


STATUS NOW 

SKIP-LOaU POINT CLEAR EOF FROM HEADER 
BACKSPACE FILE PREVIOUSLY 

SKIP-BACKSPACE FILE CLEAR HEADER 


EOF .SENSED? 

NO 

EOF NOW Q=EOF PREVIOUSLY FLAG 
SKIP-EOF PREVIOUS 


CLEAR BIT 15 

ARE WE POSITIONED BEFORE 
A SHORT RECORD? 

yes, BACK UP TO WRITE OVER IT. 

CLEAR BACKSPACE FILEMARK BIT AND FLAG 
READ AND CHECK CURRENT HEADER 
DO NOT CLEAR OUT FILE MARK 


M3300 315 
M3300316 
M330 Q 317 
M3300 318 
M330Q319 
M33Q0320 
Mo 3 iJ 0 32 1 
M3300322 
H330Q323 
M33QQ 324 
M33u 0 32 5 
M33QQ326 
M33Q 032 7 
M3300 328 
M33Q 0329 
M3300330 

M333Q 331 
M33QQ332 
M33Q0333 
M 330 0 33 4 
M330 0 33 5 
M3300336 
M 33 Q 0 33 7 
M33Q 0 338 
M 33 0 0 33 9 
M33Q 0340 

M33G0341 

M33 00 342 
M330G343 
M3300344 
M3300345 

M33u0346 
M3300347 
M3300348 
M3300349 
M3300350 
M3300351 
M3300 352 

M3300353 
M330 0354 
M3300355 
M33 0 0 356 

M3300357 

M3300 358 

M330Q 359 
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DATES 01/27/99 


0 3 6 0 

PC QCu 

OAOu 

WRTAl 

ENA 

0 

0361 

PQQCl 

6800 


,STA 

auFR+1 


P00G2 ■ 

01E5 

' WRT E 

END - 

11 

G362 

P0OC3 

GCOB 

0363 

POuC- 

58 00 


RTJ 

CLRST2 


PQ0C5 

O'lFF 



NUMWDS 

0364^ 

P00C6 • 

C833 


LOA^,. 

0 3 6 5 

PQ0C7 

0822 


TRA . 

■ Q 

0 5 6 6 

P00C8 

B032 


EOR- 

0NE3IT+15 

0367 

P0QC9 

6800 


STA 

BUFR+2 

PQuCA 

OIDE 



BUFRl 

C368 

PQOCB 

6800 


STA 


POOCC 

OIDO 


CLR 


0 3 69 

POQCD 

0 8 44 


A 

0 37 0 

PO OCE 

6800 


"STA 

BUFRl+1 

POQCF 

OIDB 



ONEBIT^•15 

0371 

POODO 

■C032 


LDA- 

0 37 2 

POODl 

6800 


STA 

BUFRl+2 


PO 0D2 

0109 



EDSMSB.I 

0373 

P0003 

-Clll 


COA- 

0374 

P00D4 

6822 


STAL 

TMPMSB 

0375' 

• P00D5 

C112 


LDA- 

EDSLSB, I 

0 37o 

P0DD6 

6821 


STA^ 

TMPL3B 

0377 

POOD7 

G C 03 


ENQ 

3 

0373 

P0008 

C800 


. LOA 

HORBFR 


PQQD9 

0103 



BU”AOR 

0379 

POQDA 

680 0 


, STA 


POODB 

0 0F4 



WDISK 

038 0 

PCODC 

5800 


. RTJ 


POODD 

G0D9 


ENA 


03 81 

POODE 

QAQ3 


3 

0382 

POODF 

5800 


RTJ 

INKAOR 


POOEO 

0200 



STRTCO 

03 83 

POOEl 

C819 


LOA^‘ 

038- 

P0GE2 

68G0 


STA 

BU'ADR 

PO Gt:3 

0 0 EC 



NUMWDS 

0 3 8 5 

POOL *+ 

E8 15 


LDQ^ 

0 386 

PO u E5 

58 0 0 


RTJ 

WOISK 


PO GE6 

GODO 



NJMWDS 

0 3 8 7- 

P00E7 

C812 , 


. LDA--*^ 

0388 

PG0E8 

5800 


RTJ 

INKADR 


P0QE9 

01F7 


ENQ 


0389 

POOEA 

0C03 


3 

039 0 

POQEB 

08 4 0 


LDA 

TRLBFR 


POOEC 

ClCl 



BUFAOR 

0391 

POOEO 

6800 


STA 


PO GEE 

DO El 



WOISK 

0392 

PO OEF 

58 0 0 


RTJ 


PODFO 

U 0C6 



TMPMSB 

0393 

POOFl 

C805 


. LDA^ 

039- 

P0UF2 

6111 


STA- 

EDSMS8, I 

0395 

P00F3 

C804 


LDA^ 

T MPLSB 

0396 

PD0F4 

6112 


STA- 

EDSLS E? I 


CLEAR EOF FROH HEADER 


CLEAR FILE MARK 
BIT IF SET. 

GET NUMBER OF WORDS 

SET BIT 15 / 

.SET IT IN HEADER OF THIS RECORD 

SET NUMBER 

OF WORDS 
AND END OF 

written DATA 
IN TRAILER. 

SAVE MM 
ADDRESS 
IN TEMPORARY 
STORAGE 

SET TO 

WRITE HEADER 

WRITE HEADER 

INCREASE DISK ADDRESS 
BEYOND header 

GET STARTING ADDRESS 
OF USERS BUFFER 

NUH. WORDS TO TRANSFER 
write FROM USERS BUFFER 

INCREASE DISK ADDRESS 
BEYOND USERS RECORD 


SET TO 

TRAILER BUFFER 

WRITE TRAILER 

RESTORE MM ADDRESS 
FROM 

TEMPORARY 

STORAGE 


M330 U 360 
M330Q361 

M330 0 362 
M3300 363 

M 33 0 0 364 
M3300365 
•’ M33G0 366 
' M3300 367 

H3300368 

M330 0369 
M33Q0370 

M3300371 
M33 0 0 37 2 

M3300373 
' M33G 0 37 4 
' M 33 0 0 37 5 
■ M35Q 0376 
M330 0 377 
M3300378 

M330 0 379 

M330 0 38G 

M 33 00 381 
M3300 382 

M3300383 
M33Q 0384 

M330Q 385 
M330 0 386 

M33G0387 

M3300388 

M3300389 

M330039G 

M330Q 391 

H3300392 

M330G393 
■ M330Q394 

M3300 395 
M3300396 


DMTSIM 


^-AGE 1? 


DATES Ul/27/99 


o 


0397 

0398 

PG0F5 

1C98 

-¥■ 

JMP- 

{ WRITE) 

0399 



V- 



0 40 0 

P00F6 

GOOD 

TMPM3B 

NUM 

0 

O-tOi 

P00F7 

0 0 00 

TMPL3B 

NUM 

0 

0402 

P0GF8 

0 00 0 

NUMRQS 

NUM 

0 

0 403 

PG0F9 

0000 

NUMWDS 

NUM 

0 

0 + 3 4 

POOFA 

0 0 0 0 

STRTSO 

NUM 

fl 

0^05 



■V- 






TEMPORARY MSB 

TEMPORARY LSB 

NUMBER OF WORDS REQUESTED 

CORRECTED NUMBER OF WORDS 

STARTING ADDRESS OF USERS 


TO TRANSFER 
BUFFER 


c 


M33 0 0 39 7 
M3300398 
M33D 0 399 
M33j OhOO 
M33Q0 4G1 
M330C402 
M330Q 403 
M33Q 0 40 4 
M 330 0 t05 


o 

•0 

o 

o 

o 

o 

n 

s—-' 

o 


C.y 

C) 

o 


O 


o 


o 

o 

o 

o 

o 

o 
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date: 01/27/99 


D 4 D 7 ^ 

ut*08 • PROCESS READ REQJEST 

n ll n q ^ ■ . i 


o 

0 40 9 
0410 

PQOFB 

cm 

4 

READ 

LDA- 

ED3M3B, I 


0 411 

POOFC 

68F9 


STA^ 

THPMS3 


Q 412 

POQFD 

C112 ' 


LDA- 

EDSLS8, I 

o 

0-+13 

POOFE 

68F8 


5TA* 

TMPLSB 

0 4l 4 

POOFF 

0C03 


END 

3 


0415 

PQIOO 

C8C 0 


LDA 

HDRBFR 


PQIGI 

QIAB 



3UFA0R 

c 

0416 

■P0102^ 

6 8 0 0 


STA 

P0103. 

GGCG 



ROI3K 


U4l7 

P0104 

5800 


RTJ 



P0105 

0 OAB 



HDRTST 

(D 

0418 

P0106 

5800 


RTJ 

PG1G7' 

0 0 7F : 


ENA 



0419 

P01G8 . 

• 0A03 


3 


042 0 

P0109 

5800 


RTJ 

INK A DR 



PulOA 

01D6 



8UFR42 


- 0 42 1 

POlDd- 

C8 0 0 


LDA 


poiac 

019C 


TRA 

a 


0422 

POIOD- 

0 8 22 



0 42 5 

POlOE' 

98EA 


SUB^- 

NUMWDS 


042 4 

POlOF 

0121 

, 

SAP 

RCBIGR-^-: 


0425 

POllO 

1802 


JMP» 

RDl 


0426' 

POlll 

E8E7 

RC8IGR 

LOQ^ 

NUMWDS 

O 

0 427 

P0112 

C8E7 

RDl 

LDA^ 

STRTCO 

0 42 8 

P0113 

68Q0 


STA 

BUFADR 



PO 114 

008B 



RDISK 


Q429 

PQ115 

5800 


RTJ 



P0116 

0 0 9A 



TMPMS8 


045 G 

P0117 

C8DE 


.,LDA^ 


0431 

P0118 

6111 


ST A- 

EDSMS E, I 


0 43 2 

P0119 

.C8DD 


LOA^ 

TMPLSB 


tf 4 3 3 

POllA 

6112 


STA- 

E DSLS B » I 


0434 

POllB 

CIOC 


LOA- 

ES.t AT 2 1 I 


0 43 5 

PGllC 

■0FC4 


ALS 

4 


0436 

POllD' 

0131 


SAH 

FMFOND- ♦- 

o 

U 43 r 

POllE 

1817 



EOFCLR 

043 8 

POllF 

C800 

FHFOND 

LDA 

F HF NO 



P0120 

FF6B 



£FCLR-^-l 


0439 

P0121 

0119 


SAN 


0440 

P0122 

■^E8 QO 


LOQ 

STRTCO 

u 


P0123 

FFD6 



=N$130Q 


0441 

P0124 

COQO 


LDA 



P0125 

1300 



(ZERO) , Q 

o 

0 442 

P012o 

6622 


STA- 

0 44 3 

P0127 

OAOl 


ENA 

1 


0444 

P0128 

6800 


STA 

BUF.R + 2 



P0129 

017F 


JHP^ 

REXTl 

O ' 

, 0 445 

P012A 

1814 


0446 

P012B 

C8Q0 

EFCLR 

LDA 

3UFR+2 



P012C 

017C 





SAVE 

HM 

ADDRESS 

TEMPORARILY 

SET TO 

M 330 0 40 7 
M3300408 
M330D409 
M33G0410 
M33j 0 4ll 
M33Q0412 
M330Q 413 
M33Q0414 
M333 0 41 p 

READ HEADER 

H333 Q 416 

READ HEADER 

;■ M 33 0 0 417 

CHECK HEADER 

M33 0 0 418 

INCREASE DISK ADDRESS 
BEYOND HEADER 

M3300 419 
M33D0 42 0 

IS NUMBER OF WORDS REQUESTED 

M33 0 0 421 

GREATER THAN 
SIZE OF RECORD 

NO, TRANSFER NUMBER REQUESTED • 
YES, TRANSFER NUMBER IN RECORD 
NUMBER OF WORDS REQUESTED 
SET TO READ 
INTO USERS BUFFER 

M33Q 0 42 2 
M33Dfl423 
M 330 0 424 
M33Q0 425 
M3300426 
M3300427 
M330Q428 

READ DATA 

M33CQ429 

RESTORE MM 
ADDRESS 
FROM 

TEMPORARY 
WAS AN END 

OF FILE FOUND. 

YES 

NO 

WAS IT FOUND ON LAST READ 

M330043C 
M3300 431 
M33QQ 432 
M33Q 0 433 
M33Q D 434 
M3300 435 
M330 0 436 
M330 0 437 
M33Q0 438 

YES, CHECK IF NEXT RECORD IS SHORT 
NO, SET FILE MARK 

M3300439 
M 330 0 440 

BITS IN 1ST WORD 

M35G u 441 

OF USERS BUFFER. 
SIGNIFY THAT A 1 
, WORD .TRA NSFER OCCURED. 

M3300442 
M 33 00 443 
M330 0444 

EXIT, BUT DO NOT INCREMENT MM POINTER 
LOAD SIZE OF NEXT RECORD 

M330 0 445 
H3300446 


C! 

o 

o 

o 

o 

c 

c 

o 

o 


o 

o 

o 

c 


o 


o 


DMTSIM 


04-4 7 
0 4i+8 
0449 

0 450 
0^51 

.0452 
0 45 3 

0 454- 
0455 

Ofp 6 
0 45 7 
0458 
0 45 9 


PAGE 14 DATE: 01/27/99 


P0120 

09FE 


INA 

-1, 

. IS NUM..TQ TRANS. 


M330 0447 

P0i:2E 

0116 


SAN 

EOFCLR-^-1 

LESSTHAN 2? 


' M 330 0 448 

P012F 

5800 


RTJ 

incadr 

YES* SKIP THE SHORT RECORD 


M3300449 

P0130 

QIAA 







P0131 

Q 8 44 


CLR 

A 



H330045G 

P0132 

6800 


STA 

FHFND 

CLEAR FILE MARK FOUND ON LAST 

READ 

M33-0C451 

PQ133 

P0134 

FF58 

18C6 


JMP^^- 

READ 

READ NEXT RECORD 


M3300452 

Pu 135 

OGOB 

EOF CL R 

ENQ 

11 

CLEAR END OF 


M330 0 453 

P013& 

5800 


RTJ 

CLRST2 

FILE STATUS BIT 


M3300454 

P0137 

P0138 

0 1 8D 
0FC7 


ALS 

7 

ARE WE AT END OF WRITTEN DATA 


M33QD-455 

PO 139 

0131 


SAH 

EOD-^-1 

YES 


M330 0 45,6 

PO 13A 

1806 


JMP^ 

■REX IT 


. 

M 330 0-457 

PO 158 

0 A12 

EOO 

ENA 

18 

SET ERROR CODE = 18 


M 330 0 45 8 

P013C 

1800 


JMP 

ERROR 

TO INDICATE END OF WRITTEN 

DATA. 

M 330 0 45 9 

P013D 

03 Ai 








OMTSI^ 
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date: 01/27/99 


P013E 

PU13F 

P0140 

PO 141 

P0142- 

P0143 

P0144 

P0145 

P0146 

P0147 

P0148 

P0149 

PO 14A^ 

P014B 

P014G 

P014D 

P014E 

PG14F 

P0150 

P0151' 

P0152 

PG153 

PQ154 

P0155 

P 015,6 

P0157 

P0158 

P0159 

P015A 

P015B 

PO 15C 

PQ15D 

P015E 

PG15F 

POIdQ 

PO 161 


OA 01 
683F 
C800 
0167 
980 0 
FF84 
012B 
C109 
A041 
80 31 
6109 
C80G 
01 5E 
8800 
FFAD 
ElOB 
CDFE 
6622 
CIOC 
0FC4 
0126 
C109 
AOOO 
5FFF 
BOOQ 
AQCO 
6109 
C825 
0112 
58 00 
Q17E 

0 8 44 
6820 
OGOA 
5800 

01 63 


^ REAO/WRITF EXIT PROCESSOR 

REXTl ENA 1 SET FLAG TO SUPPRESS 

STA^ INCFLG INCREMENTING HH POINTER. 

REXIT LDA 8UFR+2 IS RECORD LENGTH LESS 


NSHORT 


WEXIT 


WEXTl 


SUB NUVIRQS 

SAP NSHORT-^-l 
LDA- ESTATl, I 
AND- ZRDBIT+14 
EOR- ONE8ITH4 
STA- ESTATl, I 
LOA 8UFR+-2 

ADO STRTCO 

LDQ- £L3TWO,I 
INQ , -1 
STA- (ZE90),Q 
LDA- ESTAT2,I 
ALS 4 

SAP WEXIT-^-1 
LDA- ESTATl, I 
AND =NS5FFF 

EOR ,-N$AQOO 

. STA- ESTATl, I 
LDA»: INGFLG 
SAN WEXTl-»-l 
■ RTJ INCADR 

’ CLR A 
STA» INCFLG 
ENQ 10 
RTJ CLRST2 


THAN NO. OF WDS REQUESTED 

NO. 

YES, SET SHORT 
READ BIT (14) 

IN ERROR 

(V) FIELD. 

SET NEXT 

LOCATION TO 

STORE INTO 
USERS LAST 

BUFFER WORD. 

CHECK END OF FILE 
BIT IN STATUS. 

NOT SET 

SET END OF FILE AND ERROR 
BITS (13) AND <15> 

IN ERROR 

(V) FIELD. 

SEE IF. WE ARE TO SUPPRESS 
INCREMENTING MH POINTER. 

INCREMENT MM POINTER 

CLEAR INCREMENT 

MM POINTER FLAG. 

CLEAR LOAD POINT 


C 


M3300 461 


M3300462 


M 33 0 0 -+,6 3 

P' 

M3300 464 

's,. ■ 

M330 0 465 


M3300466 


M330 0 467 


M33Q0 468 


M33D0469 

O 

M33Q0470 


M3300 471 


M33Q0*+72 


M3300 473 

O 

M33a 0 474 


M330Q475 

o 

M333 G476 


M33Q0<+77 


M3300 478 


M3300 479 

o 

M333 0480 


M33Q0 481 


M 33 0 0 48 2 


M33Q0483 

o 

M330fl484 


M 33 0 0 48 5 

o 

M33Q0486 

H3300487 


M3300488 

o 

M333 0 489 


M330Q 490 


M33Q0 491 


M 33 0 0 49 2 

o 


O 


O 

C 

O 

C 




DATE! 01/27/99 



M 33 J 0 49 4 
M33QG h95 
M 330 0 h 96 
M3300497 
M33jQ498 

M3300499 
M 33 0 0 50 0 
M330 0 pO 1 
M33Q 0 502 
M330 0 503 
M330 0 50 4 
M330 Q505 
H3300506 
M 33 G 0 50 7 

M 33 0 0 5 0 8 
M33005Q9 
M33Q051G 
M3300511 
M3300 512 
H33Q0513 
M 330 0 514 
M3300515 
M33G051b 

M330Q 517 
M 330 0 518 

H330 0 519 

M330Q52G 
M330G521 
M330Q 522 
M33G0523 
M33G0524 
M330Q525 
M33DQ 526 
M33G 0527 
M330052a 
H3350529 
M3300530 
M33Q0 531 


o 

o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 

o 

o 

o 


OMTSIM 


DATE: 01/27/99 


0541 

0542 

0543 
0 5 44 
0 5^5 
0545 


P0186 OBOC 
P0187 C80Q 
P0i88 01 IE 
P0189 0138 


PQ18A 
PO180 
P018C 
PO 18D 
P018E 
P018F 
P0190 
P0191 


C8 00 
FFOl 
0C03 
0101 
'.1CF7 
58FQ 
0A03 
18 40 


» HEADER TEST ROUTINE 

HDRTST NOP 0 

EDA BU'R 

SAM OKl-»-l 

HURERR LDA ERFLAG 


ENQ 
. .. SAZ 
, . JMP-*-- 
HERCAL RTJ» 
ENA 

. JMP^ 


05 5 5 
0556 


P01A5 

P01A6 

P01A7 

P01A8 

P01A9 

POIAA 

POIAB 

POIAC 

POIAD 

PDIAE 

POIAF 


AQll 

6800 

0101 

0113 

0C08 

5805 

1803 

0121 

laoc 

0842 

1CD6 


HERCAL-^,-1 
(HDRTST) . 
SETST2 
3 

ERROR 


0 

5 4 8 

P0192 

A Oil 

OKI 

ANO- 

LPMSKi-1 

0 

p 4 9 

P0193 

3113 


SAN 

OK2-»^-l 

0 

550 

P0i94 

OCQA 


ENQ 

10 

0 

5 51 

P0195 

58EA 


RTU^ 

SET3T2 

0 

552 

P0196 

1803 

, 

JMP» 

0K3 

0 

553 

PO 197 

G121 

0K2 

SAP 

OK3-«^-l 

0 

554 

P0198 

18F1 


JMP» 

HDRERR 

Q 

5 5 5 

P0199 

C800 

0K3 

LDA 

8UFR+1 



P019A-. 

QIOD 




0 

5 5 6 

PO 19B 

0105 


SAZ 

OK5-*^-t 

0 

5 5 7 

P019C 

B012 


EOR- 

NZERO 

0558 

PO 190 

0101 


SAZ 

OK4-*f-l 

0 

55 9 

P019E 

18EB 


JMP^ 

HDRERR 

0 

5 5 D 

P019F 

QCOB 

0K4 

ENQ 

11 

0 

3 51 

POIAO 

58DF 


RTJ^ 

SET3T2 

0 

562 

POlAl 

G8G0 

OK5 

LDA 

8UFR+2 



PO 1A2 

0106 



0K6-*^-l 

0 

5 53 

PO 1A3 

0131 


SAM 

0 

5 5 4 

P01A4 

18 E5 . 


JHP^ 

HDRERR 


AND- LP'13K + 15 
STA BUFR-H2 

SAN 0K7---1 
ENQ 8 
RTJ* SETST2 
JMP^ Ok 8 
SAP OK8-^-l 
JMP^ HDRERR 
, CLR Q 
JMP^ (HDRTST) 


IS 1ST HEADER 

WORD NEGATIVE. 

GET SUPRESS ERROR FLAG 


IS THE. FLAG SET 

YES, RETURN WITH Q NON-ZERO 

NO, SET HEADER ERROR BIT (3) 

SET ERROR CODE = 3 

FOR BAD RECORD HEADER. 

CLEAR BIT 15 
IS IT ZERO 

YES, SET STATUS BIT 10 
FOR LOAD POINT SENSED. 

SKIP IF 1ST HEADER WORD POSITIVE 
NO, ERROR 

GET 2ND HEADER WORD 

IF ZERO, OK 
IF SFFFF IT 

IS AN END OF FILE. 

IF neither, a header error 

SET STATUS BIT 11 

TO INDICATE EOF SENSED. 

GET 3RD HEADER WORD 

IS IT NEGATIVE 
NO, HEADER ERROR 
CLEAR BIT 15 
RESTORE IT IN HEADER 

IS IT ZERO 

YES, SET STATUS BIT 8 

FOR END OF WRITTEN DATA SENSEE 

SKIP IF .3RD HEADER WORD POSITIVE 
NO, HEADER ERROR 
Q = a FOR NO header ERROR 
RETURN 


o 


M 3300 533 
M3300534 
M 33 0 0 53 5 
M3300536 
M333 0537 

M 33 00 53 8 
M3300539 
M3300 540 

M 33 GO 541 
M3 30 0 542 
M333 0 5h3 
M3300 544 
M 33 0 0 54 5 
M33Q 0 5^6 
M33Q 0547 
M33G 0543 
M33Q 0 549 
M3300550 
H3300551 
H3300552 
M3300 553 
M330 0 55 4 
M 33 0 0 55 5 

M 33 3 0 5 5 5 
M330 0 557 
M330 0558 
M3300 559 
M33Q 0560 
M3300561 
M3300562 

M3300553 
H 330 0 564 
M3300565 
M33U056& 

M3300567 
H330 0 568 
M3300569 
M3300570 
H33G0571 
M330 0 572 
M33QQ573 
M3300574 


C) 

c 

o 

o 

o 

o 

c 

O 

O 

o 

c 

o 

o 


OMTSIM 
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0577 







M 33 0 0 57 7 

057.8 



^ DISK 

REAO/WRITE COUPLER. 

ROUTINE 

M33GQ578 

0579 







M330 0 579 

0580 

PQ IBO 

0 800 

RDISK . 

NOP 

0 


M33DG580 

0581 

P0181 

■C8FE 


LOA^ 

RDI3K 

SET RETURN 

' M3300581 

05 82 

P01B2 

68 04 


STA^ 

WOI3K 

ADDRESS. 

' M330D582 

0 583 

P01B3 

GO 00 


LOA 

= NS 42 G 0 

SET UP READ IN CALL 

" M33JG583 


P01B4 

42 0 0 






0 58 

P0185 

18 04 


JNP^ 

STREQ 


M 33 DO 58 4 

05B5 

P01B6 

. QBOD 

WDISK 

NOP 

0 


M33Q 0 585 

0586 

P01B7 

GOOD 


LOA 

=N3t400 

SET UP WRITE IN CALL 

M330 0 585 


PG1B8' 

h400 






05 8 7 

P01B9 

4815 

STRE3 

STQ^ 

NUMB 

STORE NUMBER OF WDS TO READ OR WRITE 

M3300587 

05 88 

PO IBA 

0822 


TRA 

Q 


M33G0 588 

0 589 

POIBB 

G4FF 


LDA- 

( I) 

SET UP 

M33 0 0589 

059 0 

POIBC 

AO 0 6 


AND- 

LPMSK+4 

REQUEST 

M3300590 

059 1 

POIBD 

08 72 


EAQ 

Q 

AND 

M3S00591 

0592 

PO 18E 

0FC4 


ALS 

4 

COMPLETION 

M3300592 

0593 

PGIBF 

0874 


EAQ 

A 

PRIORITIES 

M330 0593 

0 5 9 A 

POICO 

68DA 


STA^ 

REQ 


M3300594 

05 9 5 

PQICI 

Clio 


LDA- 

EDSKLU, I 

GET DISK LU 

M330 0 595 

05 9o 

P01C2 

68 OB 


STA^ 

LU 

FOR THIS PSEUDO-TAPE . 

M 33 0 0 59 6 

0597 

P01C3 

cm 


LDA- 

EOSMSB, I 

SET MM 

M330 0597 

0598 

PQ1C4 

68 OC 


STA"^ 

MMADR 

ADDRESS 

M3300598 

0599 

P01C5 

C112 


LOA- 

EDSL33, I 

IN 

H3300599 

Ob 0 0 

P01C6 

68 OB 


STA^ 

HMADR+t 

CALL. 

M330 0600 

0601 

P01C7 

GOFF 


LDA- 

I 

SAVE 

M33GQ601 

050 2 

P01G8 

6810 


STA^ 

SAVEI 

I REGISTER. 

M33G0602 

Oo 0 4 

P01C9 

54F4 


RTJ- 

(AMONI) 


M33QG604 

0 6 0 2 

PDICA 

0 0 0 0 

REQ 

ADC 

0 


M 330 0 60 5 

0 50 6 

POICB 

0103 P 

COHP . 

ADC 

CMPL 


M3300606 

060 7 

POICC 

0 0 0 0 


AOC 

0 


H 33 0 y 6 0 7 

060 3 

POICD 

ooco 

LU 

ADC 

0 


' M3300608 

0 5 0 9 

PGICE 

GO 00 

NUMB 

AOC 

0 


' M 33 3 0 60 9 

0510 

POIGF 

0 0 0 0 

8UFADR 

ADC 

0 


M33Q0610 

0611 

POIDO 

00 00 

MMADR 

ADC 

0,0 


H3300&11 


POlOl 

00 00 






0612 

PG1D2 

14EA , 


JMP- 

{ ADISP) 


M 33 0 0 612 

Q613 







M330G613 

U 6 1 

P0103 

C805 

CMPL . 

LDA^ 

SAVEI 

RESTORE 

' H33G0614 

0615 

P01D4 

60FF 


STA- 

I 

I REGISTER. 

M33Q0615 

0616 

P01D5 

C8F7 


LDA» 

LU 

DID A DISK I/O ERROR OCCUR 

M3300616 

0617 

P0106 

0132 

, , ; 

SAM 

IOERR-»-l 

YES 

M3300617 

0618 

PQ107 

ICOE 

. . , 

JMP^ 

(WOISK) 

NO, RETURN 

M33Q0618 

0619 



Af. 




M330 0619 

052 0 

P01D8 

0000 

SAVE! 

NUM 

0 

SAVE I REGISTER HERE 

M3300d20 

062 1 







H3300621 

0622 

P0109 

eco5 

lOERR 

ENQ 

5 

SET BITS ;5 AND 

M3300622 

0623 

PGIDA 

5 8A5 


RTJ<^ 

SETST2 

6 IN STATUS WORD TO 

M33Q0623 

0624 

PO IDB 

0C06 


ENQ 

6 i 

INDICATE ALARM 

M3300624 

0 62 5 

POIDC 

58A3 


RT-J^ 

SETST2 

AND LOST DATA. 

M3300625 

0626 

POIDD 

0A02 


ENA 

2 

SET ERROR CODE = 2 

M33e0o26 



0MTSI>1 


= i\GE 19 


date: 01/2T/99 


0627 



062 8 



0529 



05 30 

POIDE 

El 05 

053 1 

POIDF 

QFA6 

0632 

POIEG 

0 8 72 

0 63 3 

PQIEI 

431B 

0 63 4 

P01E2 

C1G9 

0 635 

PQ1E3- 

AOlO 

06 3 6 

P01E4- 

BQ2Q 

0637 

PO 1£ 5 

6109 

053 3 

P01E6 

ClOA 

0539 

PDIE? 

EiOB 

0 5 40 

PG1E8 

OOFE 

05 41 

P01E9 

6622 

0642 

POIEA 

E812 

0 5 43 

POIEB 

5400 


POIEC 

7FFF 

0 64 4 

POIED 

C4FF 

0 6 + 5 

POIEE 

68 02 

0646 

POIEF 

•5 4F4 

064? 

POIFO 

'0 000 

054 8 

POIFI 

■7FFF 

0649 

PG1F2 

1800 


P01F3 

FF71 

065 0 



0 5 51 



0 6p2 

P01F4 

El 05 

0 65 3 

P01F5 

0FA6 

0 55 4 

P01F6 

0372 

0 OP 5 

P01F7 

C109 

0 556 

PQ1F8 

A 0 42 

0 65 7 

P01F9 

8032 

Go5 3 

POIFA 

6109 

0 5 5 9 

PQIFB 

18F1 

0 65 0 



0 5 51 



05 5 2 

POIFC 

0 G Q 0 

0663 

POIFO 

0 0 00 

0 65 4 



0 66 5 




¥ 

^ ERROR HANDLING ROUTINES 
* 


ERROR, 

LOQ- 

ELU,I 



QLS 

6 



EAQ 

Q 



STQ^ 

TEMPI 



LOA- 

ESTATl, 

I 


AND- 

LPMSK+l 

4 


EOR- 

NZERO+1 

4 


STA- 

ESTATl. 

I 


LOA- 

ECCOR.I 



LDQ- 

ELSTWD. 

I 


INQ 

-1 


, 

STA- 

(ZERO) , 

Q 


LDQ^ 

TEMPI 


RTJ + 

LOG 


EREXIT 

LDA- 

(I) 



STA^^ 

GO 



RTJ- 

(AMONI) 


GO 

NUM 

0 



ADC 

ALTDEV 



JMP 

CYCLE 



V- 




tpmerr 

LDQ- ELU,I 
QLS 6 
EAQ Q 

LOA- ESTATl, I 
AND- ZROBIT+15 
EOR- ONEBIT+15 
5TA- ESTATl, I 


JMP^ EREXIT 

TEMPI 

HUM 0 

MULTMO 

❖ 

NUM 0 


SET UP 

ERROR WORD, 

FOR ALTERNATE 

DEVICE HANDLER. 

SET ALARM 

AND SHORT 

TRANSFER BITS IN 
ERROR (V) FIELD. 
SINCE NO TRANSFER 

OCCURED SET LAST WORD 
OF USERS BUFFER TO 

address OF 1ST WORD. 
PICK UP ERROR WORD 
ENGINEER LOG 


SCHEDULE ALTDEV SO 
WE CAN 

RETAIN CONTROL. 

GO CHECK OTHER PENDING REQUESTS 


SET UP, ERROR WORD 
FOR ALTERNATE 

DEVICE HANDLER. 
SET ALARM 
BIT (15) 

IN SOFTWARE 

STATUS WORD. 


TEMPORARY STORAGE LOCATION 
NUMBER OF TIMES TO EXECUTE 
SINGLE REQUESTS 


EQUALS -1 FOR 


M330 0627 
M33Q0628 
M3530629 
M3300630 
M330 0631 
M3300632 
M33U0633 
M33QQ 634 
M33Q0635 
M3300636 
M330 0637 
M3300638 
M33Q0 639 
M3300640 
M3300641 
M330 0 642 
M3300643 

M333 0 644 
M3Sa0645 
M3300646 
M33Q0 647 
M3300648 
M333 0649 

M330 0650 
M33uGo51 
M330C 652 
H330 0 653 
M 33 0 0 65 4 
M 33 3 0 65 5 
M330 0 656 
M33D0657 
M330Qo58 
M330 0o59 
M333 0660 
M3300661 
M 33 DO 66 2 
M3300663 
M333 0664 
M33G0665 




DMTSIH 



=»AGE 20 

0657 



V- 



0658 



^ TAPE' 

MOTION AND DENS 

0 5 5 9 



* 



0670 

POIFE 

G800 

TPMCTL 

LDA 

FMFND 


POIFF 

FE8C 




0571 

P0200 

6800 


STA 

FILEHK 


P02G1 

•OQCl 




057 2 

P0202 

■C204 


LDA- 

4,Q 

0573 

P0203' 

012E 


SAP 

SINGRQ-^-1 

067 4 

P0204 

0822 


TRA 

Q 

0 6 75 

P0205 

AO OE 


AND- 

LPMSK+12 

0576 

P0 206 

0 9FE 


INA 

-1 

G577 

PQ2C7 

0122 


SAP 

MULTOK-«^-l 

05 7 8 

P0208 

0A3C 


ENA 

60 

05 7 9 

P0209 

18EA 


JMP» 

TPHERR 

0580 

PG2G A 

68F2 

MULTOK 

STA^ 

MULTNO 

0631 

P020B 

0814 


TRQ 

A 

0582 

PG20C 

Aoao 


AND 

=N$7000 


P020O 

7Q0G 




0 63 3 

PQ20E 

0FC4 . 


ALS 

4 

0584 

P02GF 

68EC . 


STA^ 

TEMPI 

0o85 

PQ210' 

0822 


TRA 

Q 

0586 

P0211 

1824 


JMP» 

LEGAL 

0 6 3 7 

P0212 

OCFE 

SINGRQ 

ENQ 

-1 

058 8 

P0213 

48 E9 


STQ^ 

MULTNO 

0 53 9 

P021-+ 

63 E7 


STA^ 

TEMPI 

0590 

P0215 

AQ06 


ANO- 

LPMSK+4 

.0591 

PG216 

0822 


TRA 

Q 

0592 

P0 21 7 

Q1 51 


SQN 

TSTONS-^-1 

.0o93 

P0218 

18 OD 


JMP» 

NOCHG 

069 4 

P0219 

CIOC 

TSTDNS 

LDA- 

ESTAT2, I . 

0695 

P021A 

AOOO 


ANO 

=NS9FFF 


PQ21B 

9FFF 




0596 

P0 21C 

ODFE 


INQ 

-1 

0597 

P021D 

0151 


SQN 

TST556-^-l 

0B9 8 

P021E 

1806 ■ 


JHP^ 

STOONS 

0599 

P021F 

OOFE 

TST556 

INQ 

-1 

07 00 

PO 220 

0152 

. • . 

SQN 

TST800-^-l 

070 1 

P0221' 

B030 


EOR- 

ONEBITf 13 

0 70 2 

P0222 

1802 


JMP^ 

STODNS 

07 0 3 

PQ223 

BO 31 ■ 

TST800 ' 

EOR- 

ONEBIT+14 

07 0 4 

PQ224 

610C 

STODMS 

STA- 

ESTAT2, I 

070 5 

P0225 

C8D6 

NOCH3 

LDA^ 

TEMPI 

0706 

P0226 

AQ16 


AND- 

NZERO+4 

0 7G 7 

P022 7 

6804 


STA-^ 

TEMPI 

07G8 

P0228 

1809 


JMP» 

GETREQ 

07 0 9 

DO 229 ■ 

E 8 03 

TPCTLR 

L OQ^ 

MULTNO 

0710 

PO 22A 

0176 


SQM 

GETREQ- ^-1 

0711 

P022B 

01 51 


. SQN 

OECR-^-1 

0712 

P0 22C 

181B 


JMP» 

OONOTH 

0713 

P022O 

ODFE 

DECR ■. 

INQ 

-1 

0714 

P022E 

48CE 


STQ* 

MULTNO 

0715 

P022F 

E8CC 


LDQ^^ 

TEMPI 


OATEJ 01/27/99 

.CHANGE REQUEST ROUTINES 
PASS FILENARK 
FOUND FLAG 

GET MOTION REQUEST CODES 
CHECK FOR MULTIPLE REQUESTS 
MULTIPLE REQUEST 

ISOLATE NUMBER OF TIMES TO EXECUTE 

, CHECK FOR POSITIVE, NON-ZERO NUMBER 
ILLEGAL, SET ERRO-R CODE = 60 
. NO, ERROR '.IN NUMBER 
STORE NUMBER - 1 

ISOLATE REQUEST CODE 


SINGLE REQUEST 

SET FLAG FOR SINGLE REQUESTS 
STORE IT 
ISOLATE DENSITY 
BITS. 

IS THERE A DENSITY CHANGE 
NO 

CLEAR DENSITY BITS 
IN STATUS WORD. 

IS IT 200 8PI 
NO 

YES, RESTORE STATUS 
IS IT 556 BPI 
NO 

YES, SET BIT 13 
IN STATUS WORD. 

ALL OTHERS ARE 800 BPI 
RESTORE STATUS WORD 
CLEAR DENSITY 
BITS IN 

REQUEST CODES . 


CHECK FOR SINGLE REQUESTS 

CHECK IF FINISHED WITH A MULTIPLE REQUEST 
DECREMENT NUMBER OF TIMES TO EXECUTE 
LOAD REQUEST INTO Q 


H3300667 

M33QQ668 

M3330669 

M33QQ670 

M3300671 

M3300672 
M3300673 
M3300674 
M3300675 
M3300&7& 
M330 0677 
M3300678 
M3300679 
M3300680 
M3300681 
H 33 0 0 68 2 

M3300683 
M 3300684 
M33QQ 685 
M33Q0&85 
M3300687 
M3300688 
M330Q689 
M 33j 0690 
M33Q0691 
M3300692 
M3300693 
M33U 0 694 
M330Q695 

M330 0 695 
M 330 0 697 
M 33 0 0 69 8 
M3300699 
M 33 DO 70 0 
M 330 0 701 
M33G0702 
M3300703 
M35Q0704 
M3300 705 
M33D0705 
M330 Q707 
M33007D8 
M33QD709 
M3300710 
M3300711 
M33007i2 
M3300 713 
M3300714 
M 330 0 71 5 


DMTSIM 


^AGE 


o 


21 


o 



0716 

P0230 

1805 


JMP» 

LEGAL 



0717 

P0231 

C8CA 

GETREQ 

LOA^^ 

TEMPI 



.0713 

PG232 

08 42 


CLR , 

Q 


O 

0719 

PO 233 

0FE4 


LLS 

4 



072 0 

P0234 

68C7 


STA* 

TEMPI 



0721 

P0235 

0DF7 

LEGAL 

INQ 

-8 



0 722 

P0236 

0172 


SQH 

TPMl-^- 

1 


0 725 

P0237 

0 A 3C 


ENA 

60 



0724 

PQ238 

18BB 


JMP^ 

TPMERR 



0725 

P0239 

1A09 

TPMl 

JMP»- 

TPMTBL«-8,Q 


072 6 







u 

0727 



V- 





0 72 8 

P023A 

180D 

TPMT8L 

JMP^ 

DONOTH 



0729 

P023B 

1823 


JMP^ 

B3PR 



073 0 

P023C 

18 45 


JMP^ 

MARKER 



0731 

P023D 

1810 


JMP^ 

REWIND 



07 32 

P023E 

18 IE 


JMP- 

UNLOAD 



07 3 3 

PQ23F 

1804 


JMP^ 

SKF 



0734 

P024Q 

1805 


JMP^ 

8SF 


'w-' 

0 735 

PQ241 

1800 


JMP 

SKIPR 




PO 242 

00D9 






0 75 6 

PO 243 

1800 

SKF 

JHP 

SKIFF 




PD244 

G 0 A3 






0737 

PO 2h5 

1800 

BSF 

JMP 

BKSPF 




PO 240 

OOCO 






0 7 3 8 







O ' 

0 7 3-9 
0 740 

P0247 

C87B 

«• 

DONOTH 

LDA^ 

FILEMK 



0741 

FG 2 48 

6800 


STA 

FMFNO 




PQ249 

F E42 






0742 

PO 24A 

1800 


JMP 

EXIT 




P0248- 

FF16 






0 743 








0 7 4 H 

P024C 

IJBOO 

. RESET- 

NOP 

a 



0745 

P024D 

C114 


LDA- 

E0STR2, 

I 

■j 

0 746 

P024E 

6112 


STA- 

E0SL38, 

I 


0 747 

P024F 

C113 


LDA- 

EDSTRl, 

I 


074 8 

P0250 

6111 


STA- 

EDSMSB, 

I 


0749 

P0251 

flCOA 


ENQ 

10 


u 

u 75 0 

P0252 

5800 


RTJ 

SET3T 2 




P0253 

FF2C 






0751 

P0254 

5866 


RTJ^ 

CLRBSF 



0752- 

P0255 

CCOB 


ENQ 

li 


( } 

0753 

P025 5 

586E 


RTJ^ 

CLR3T2 



0 7 5 4 

P0257 

0 8 42 


CLR 

Q 



0 7 5 5 

P0258 

486A 


STQ^ 

FILEMK 


O 

0 75 6 
075 7 

P0259 

1CF2 


JMP^ 

(RESET) 



0 ?’ 5 8 

PG25A 

58F1 

REWIND 

RTJ^ 

RESET 



0759 

P025B 

laco 


JMP^ 

TPCTLR 


o' 

07 5 0 
0751 

P025C 

58EF 

UNLOAD 

RTJ^ 

RESET 



0 752 

P0250 

18E9 


JHP^ 

DONOTH 



DATES 01/27/99 


GET 

1ST 

REQUEST 

PARAMETER. 

LEGALITY 

CHECK. 

ILLEGAL, SET ERROR CODE = bO 

FOR ILLEGAL TAPE MOTION REQUEST. 
GO TO PROCESSOR 


EXIT FROM TAPE MOTION REQUESTS 
BACKPAGE RECORD 
WRITE END OF FILE 
REWIND PSEUDO-TAPE 
UNLOAD PSEUDO-TAPE 


ADVANCE TO NEXT RECORD 
ADVANCE PAST NEXT FILE HARK 
BACKSPACE PAST PREV FILE MARK 


PASS FILENARK FOUND 
FLAG BACK. 

FINISHED 


RESET MM 

POINTER TO 
START OF 

MM BUFFER. 

SET LOAD POINT BIT (10) 

IN STATUS WORD. 

CLEAR BACKSPACE FILEMARK AND BIT 
CLEAR FIILE MARK BIT (11) 

IN STATUS WORD. , ^ 

CLEAR FILE MARK ON LAST OPERATION FLAG 


RESET MM POINTER 

AND GET NEXT REQUEST. 

RESET MM POINTER 

AND EXIT FROM DRIVER. 


M330 0 71& 
H33Q0717 
M33D 0 718 
M33G0719 
M3300720 
M3300721 
M5300722 
M33Q 0723 
M33Q 0724 
M3300725 
H333 0 726 
M33B0727 
M3300728 
M333 0729 
M3300730 
M3300731 
M33u 0 732 
M3300733 
M330Q734 
M3300 735 

M330Q 736 

H330 0737 

M330 0738 
M33J 0739 
M3300740 
M33fl074i 

M330Q742 

M3300743 
M330 0744 
M33007F5 
M33G0746 
M330 0 747 
M330 0748 
M330 0 7a9 
M330075B 

M3300751 
M33QQ 752 
H3300753 
M330D 754 
M3300 755 
M33G 0 755 
H330Q757 
M3300 758 
M3300759 
M3300 760 
H33D0761 
M330 0752 


C'' 

c 

o 


r'i 

S,.- 






O 


O 

o 

o 

o 

0 

c 


o 


o 


DMTSIH 


P(\GE 22 


DATE! Oi/27/99 


0 763 

P025E 

586B 

BSPR 

RTJ^ 

RUHEOR 

G 75 4 

P025F 

0C08 


ENQ 

3 

0755 

PO 260 

58 64 


RTJ» 

CLRST2 

0 766 

P0261 

0-FC4 


ALS 

4 

0757 

P0262 

0128 


SAP 

N CFLHK---1 

0768 

P0263 

OCOB 


ENQ 

11 

0759 

PQ2o4 

5860 


RTJ^ 

CLR3T2 

0770 

PO 265 

E85D 


LDQ^ 

FILEMK 

0 7 71 

P0266 

0144 


SQZ 

NOFLMK- --1 

0772 

P0267 

0 8 42 


CLR 

Q 

0773 

PQ268 

485A 


STQ» 

FILEMK 

077-f 

P0269 

5 8 6A 


RTJ^ 

3ETBSF 

0775 

P026A 

18BE 


JMP’^ 

TPCTLR 

0776 

P026B 

CIOC 

NOFLMK 

LDA- 

ESTAT2, I 

0 7 7 7 

P026G 

DFC5 


ALS 

5 

077 8 

P026O 

0121 


SAP 

BSR3-*-l 

0779 

PG26E 

18 12 


JMP^- 

FINISH 

073 0 

P026F 

ocoo 

4852 

BSR3 

ENQ 

0 

0751 

PO 270 


STQ- 

FILEMK 

0 7 BE. 

P0271 

584B 


RTJ^ 

C_R8SF 

0783 

P0272 

53 3G 


RTJ^ 

OECAOR 

078 4 

P0273 

5856 


RTJ^ 

ROHEDR 

0 785 

PQ274 

C834 


LDA^ 

BUFR+2 

0736 

P0275 

09FE 

- ... ^ 

INA 

-1 

0787 

P0276 

0114 


SAN 

8SR2-^-l 

073 8 

PG277 

OAOB 


ENA 

11 

0 73 9 

P0273 

584C 


RTJ«^ 

CLR5T2 

0790 

P0279 

585A 


■ RIJ* 

SET8SF 

0791 

P027A 

18AE 


JHP» 

TPCTLR 

G792 

P027B 

CIOC 

8SR2 

LOA- 

ESTATE, I 

0793 

P027C 

QFC4 


ALS 

4 

0 7 9 ‘+ 

PQ27D 

0122 


SAP 

FINISH-^-1 

0795 

P027E 

OCOl 


ENQ 

1 

0 796 

P027F 

4843 


STQ^ 

FILEMK 

079? 
079 8 
0799 

P0 280 

1 8A8 

FINISH 

>(■ 

* 

JMP^ 

TPCTLR 

030 0 

PQ2bl 

CIOC 

MARKEF 

LDA- 

ESTATE, I 

0 30 1 

PQ282 

0133 


SAM 

OKMARK-^-1 

0802 

PO 283 

GAOO 


ENA 

13 

08 0 3 

PO 284 
PQ285 

18 00 
FF6E 


JMP 

TPMERR 

03 0 4 

P0286 

C83C 

OKMARK 

LDA^ 

FILEMK 

0805 

P0287 

OlOA 


SAZ 

SINGEF-^-1 

05 06 

P0288 

0A22 


ENA 

$22 

QSQ7 

P0289 
P0 28A 

6800 

FE6F 


STA 

STRTCO 

03 0 8 

P028B 

OAOl 


ENA 

.1 

080 9 

PO 28C 

QCGl 


ENQ 

1 

0310 

P028D 

P028E 

6800 

FE6A 


STA 

NJMWOS 

0811 

PQ28F 
PO 290 

580 0 
FDFD 


RTJ 

WRITE 


READ AMD CHECK HEADER OF CURRENT RECORD 
CLEAR END OF WRITTEN DATA BIT {8J 
IN STATUS WORD, 

WAS A FILE MARK FOUND 
NO, CHECK FOR LOAD POINT 
yes, CLEAR FILE MARK BIT (IIJ 
IN STATUS WORD. 

CHECK IF FOUND ON LAST OPERATION 
NO, CHECK FOR LOAD POINT 
YES, CLEAR FILE MARK ON 
LAST OPERATION FLAG 
SET BACKSPACE FILEHARK BIT AND FLAG 
GET NEXT REQUEST 
GET STATUS WORD 
CHECK IF AT LOAD POINT 
NO, BACKSPACE A RECORD 
YES, DO NOT BACKSPACE ANYMORE 

CLEAR FILE MARK ON LAST OPERATION FLAG 
CLEAR BACKSPACE FILEMARK BIT AND FLAG 
DECREMENT MH POINTER 
READ AND CHECK NEW HEADER 
CHECK FOR SHORT RECORD 
IS SIZE OF NEXT RECORD 
I F99 THAN 

YES, CLEAR FILE MARK BIT (Li) 

IN STATUS WORD. 

GET NEXT REQUEST 
GET STATUS WORD 
WAS A FILE MARK FOUND 
NO, GET NEXT REQUEST 
SET FILE MARK ON LAST 

GET NEXT REQUEST 


OPERATION FLAG. 


GET STATUS WORD. 

CHECK IF WRITE ENABLE RING PRESENT 
NO, SET ERROR CODE = 13 

TO INDICATE NO WRITE RING. 

CHECK IF WE ARE AT AN EOF 

YES, SET UP STARTING ADDRESS FOR 
WRITE OF SHORT RECORD 


SET UP NUMBER OF WORDS TO WRITE 
WRITE THE SHORT RECORD 


M330Q7&3 

M33Q0764 

M 330 0 76 5 

M330 0766 

M3300767 

M3300768 

M333G769 

M3300770 

M3300771 

M330C772 

M 330 0 773 

M3300774 

M3300775 

M33QQ 775 

M3300777 

M3300778 

M330 0779 

M330 0780 

M3300781 

M330Q782 

M33QQ733 

M3300784 

M3300785 

M330Q786 

M33Q 0 787 

M3300788 

M330 0 789 

M3300790 

M33Q0791 

M33Q0792 

M3300793 

M33D0794 

M333 Q 795 

M33Q Q 79 6 

M3300797 

M3300798 

M330 0799 

M 33 00 800 

M33003Q1 

M330 0 802 

M33QG8Q3 

M33G080h 
M 330 0805 
M33Qfl 806 
M330Q807 

M 333 0 80 8 
M 33 a 0 80 9 
M330081C 

M3300811 


OMTSI"! 
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DATE: 01/27/99 


P0291 
P0292 
PO 293 
PG294 
P0295 
P0296 
PG297 
P0298 
PD299 
P029A 
PG 29B 
P029C 
P029D 
P029E 
PQ29F 
P02AG 
P02A1 
P02A2 
P02A3 
PlJ2A4 
P0 2A5 


53 49 
5837 
QCOB 
5800 
FEEA 
5826 
QAOl 
682A 
6800 
FDFl 
08 04 
6 3 0 B 
CO 32 
68 OA 
u C03 
C80C 
6800 
FF2C 
58 00 
FFli 
18DA 


, RTJ^- 
SINGEF, RTJ^ 
ENQ 
RTJ 

. RTJ* 
. ENA 
. STA* 
STA 

SET 

STA* 

LDA- 

3TA* 

ENQ 

LDA* 

STA 


INCADR 

ROHEOR 

11 

SET3T2 

CLRBSF 

1 

FILEMK 

FMFNO 

A 

8UFR+1 

QNEBIT4-15 

8UFR+2 

3 

HDR8FR 

BUFADR 

WDI3K 


JMP* FINISH 


INCREMENT ADDRESS TO WRITE NEXT EOF 
READ AND CHECK HEADER OF CURRENT RECORD, 
SET FILE MARK BIT (11) 

IN STATUS WORD. 

CLEAR BACKSPACE FILEMARK BIT AND FLAG 

SET FILE MARK 

IN FILEMARK FLAGS 

AND IN HEADER 

WRITE END OF WRITTEN 
DATA IN HEADER WORD 
WRITE HEADER BACK 


ONTO DISK. 

GET NEXT REQUEST 


M 33 0 0 812 
M3300813 
M33Q3 814 
M330 0 815 

M33D0 816 
M330 0317 
M3300818 
M33a0319 


M330 
M350 
M35y 
M330 
M333 
M330 
M33 0 


0 820 
0821 
0822 
0823 
0 82 4 
0825 
0325 


M33G 0 827 
M3300828 


OMTSIH 
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date: Dl/27/99 


083 0 



¥ 




0831 







083 2 



^ THIS 

IS THE BUFFER 

AREA 

0833 







0834 

P02A6 

00C3 


BZS 

BUFR<3) 


0 8 3 5 

P02A9 

0 0 03 


BZS 

BUFRl (3 ) 


0836 

P02AG 

02A6 P 

HORb- R 

ADC 

BUFR 


083 7 

P02AO 

02A9 P 

TRLEFR 

ADC 

BUFRl 


0638 







0839 

P02AF 

OBOO 

DECAOR 

NOP 

0 


0 3 4 0 

P02AF 

C3F6 


LDA- 

BUFR 


0841 

PQ 2B0 

A oil 


AND- 

LPMSK+15 


0 84 2 

P02B1 

09 03 


INA 

3 


0843 

P0282 

0 8 64 


TCA 

A 


0844 

P02B3 

3112 


ADD- 

EDS- 3 B , I 


0845 

PG2B4 

0125 


SAP 

FINDEC- 

■1 

03U.& 

P02B5 

AOll 


ANG- 

LPMSK+15 


084 7 

P02B6 

0901 


INA 

1 


0843 

P02B7 

El 11 


LDQ- 

EDS MSB, I 


0849 

P02B8 

ODFE 


INQ 

-1 


06 5 0 

PQ2B9 

Hill 


STQ- 

EDSMSB, I 


03 5 1 

P02BA 

6112 

FINDEC 

STA- 

£DSLSB,I 


0352 

P02BB 

1CF2 


JMP^ 

(DECADR) 


0853 







0S5h 

P02BC 

OBOO 

CLRBSF 

NOP 

0 


0855 

PO 2BD 

0 8 42 


CLR 

Q 


035d 

P02BE 

48 05 


STQ- 

FLMARK 


Q 8 5 7 

PG2BF 

0C07 


ENQ 

7 


0 6 5 8 

PO 2C0 

5804 


RTJ^ 

CLRST2 


0 3 59 

P02C1 

ICFA 


JMP^ 

(CLRBSF ) 


0860 



-> 




03 51 

P02C2 

0 0 0 0 

FILEMK 

NUM 

0 


C3 5 2 

P02C3 

00 00 

FLMARK 

NUN 

0 


0863 







0 854 

P02C4. 

OBOO 

CLRST2 

, NOP 

0 


0365 

P02G5 

CIOC 


LOA- 

ESTAT2, I 


0856 

P02C6’ 

A233 


ANQ- 

ZR0BIT,Q 


0867 

P02C7 

610C 


STA- 

ESTATE, I 


0868 

P02C3 

ICFB 


JMP^ 

(CLRST2 ) 


0369 







037 0 

P02C9 

OBOO 

RDHEDR 

NOP 

0 


0871 

P02CA 

0C03 


ENQ 

3 


06 72 

PQ2CB 

C8E0 


LDA'^ 

HORBFR 


0873 

P02CC 

6800 


STA 

8U- ADR 



PQ2GD 

FFOl 





037- 

P02CE 

58G0 


RTJ 

ROISK 



P02CF 

FEED 





0375 

P02O0 

5800 


RTJ 

HDRTST 



P0 2D1 

FEB4 





0876 

PO 202 

1CF6 


JMP^ 

(RDHEDR) 


0877 







0878 

P02D3 

0 8 0 0 

SETB5F 

NOP 

0 


0379 

P02Dh 

QCfll 


ENQ 

1 



THE HEADER FOR RECORD GOES HERE 
TRAILER GOES HERE 
POINTER TO HEADER BUFFER 
POINTER TO TRAILER BUFFER 


GET LENGTH OF PRECEEOING RECORD 
CLEAR BIT 15 

CORRECT FOR HEADER LENGTH 
SUBTRACT INCREMENT 

FROM LSB OF Mil POINTER. 

HAVE WE UNOERFLOWED 
YES, CLEAR BIT 15 

DECREMENT 

MSB 

SLOT. 

RESTORE LSB 


CLEAR 

FILEMARK BIT 
AND FL AG . 

SET IF A FILEMARK SENSED ON LAST OPERATION 
SET IF A FILEMARK SENSED ON LAST BACKSPACE 


CLEAR BIT GIVEN 
IN Q REGISTER 

IN STATUS WORD. 


READ AND 

TEST HEADER 

OF CURRENT RECORD. 


SET 

FILEMARK BIT 


M33U 0 83 0 
M330 0831 
M33Q0832 
M330 D833 
M33u0834 
M3300835 
M 33 0 0 83 6 
M33Q 0 837 
M330 0838 
M330 0839 
M330 0 84G 
M3300 3‘+l 
M33j 0 842 
M3300843 
M330 0844 
M333 0845 
M330 0846 
M330 0847 
M3S0 0848 
M3300849 
M33QG850 
M3300351 
M3300852 
M3300853 
M333 0834 
M3300355 
M3300856 
M3300857 
M3330858 
M33G 0859 
M33G 0 86 0 
M3300861 
M333 0862 
M330 0863 
M 330 0 864 
M3330365 
M33Q0865 
M3300867 
M3300868 
M33fl 0869 
M330 0870 
M3300871 
M330C872 
M3300873 

H330 0874 

M33QC875 

M3300876 
M330Q877 
M330 0876 
M 333 0 879 


DMTSIM 
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0330 P02D5 43ED 

0331 P02D6 QC07 
u382 P02D7 5800 

P02D8 FEA7 
G833 P02D9 1CF9 
0 864 

0885 PQ2DA OOOO 
0836 P02DB C8CC 
0337 P02DC AOll 
0888 PU2DD 0903 
0839 P02DE 58 02 

0890 P02DF ICFA 

0891 

0892 P02EG OBOQ 

0893 P02E1 8112 
039-^ P02E2' 0122 
0895 P02F3 AOll 
089o P02E4 0111 

■ 0897 P02E5 6112 
Q898 P02E6 1CF9 
0899 


STQ- FLMARK 
ENQ 7 
RTJ SET3T2 


. JMP^ tSETBSF) 

•=f 

INCADR NOP 0 

LDA^'- BUFR+2 
ANO- LPHSK+15 
INA 3 
RTJ'" INKADR 
JMP» (INCADR) 


INKAOR NOP 0 

ADD- EDSL3D, I 
SAP . FINING- -^-1 

ANO- LPNSK+15 

' RAO- EDSMSB, I 
FINING STA- eOSLSB, I 
JMP- (INKAOR) 


AND FLAG 


GET LENGTH OF RECORD 
CLEAR BIT 15 IF NECESSARY 
CORRECT FOR HEADER LENGTH 
INCREMENT ADDRESS 


ADD LSB OF MH POINTER 
HAVE WE OVERFLOWED 
YES, CLEAR BIT 15 
INCREMENT MSB 
RESTORE LSB 
RETURN 


M33 j 0 880 
M33Q 0 831 
H 330 0 882 

M33D 0 883 
M330 0 884 
M33Q 0 885 
M33G088b 
M33 U 0 887 
M330 0888 
M330 0 889 
M33Q 0890 
M330Q391 
M33D 0892 
M3300895 
M333 0894 
M33Q 0 895 
M33Q0896 
M 33 0 0 89 7 
M330 0898 
M333 0 899 


OHTSIH 
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o 


Q 

O 


o 


o 


o 

o 


090 1 

PQ2E7 

53E1 

SKIP- 

RTJ^ 

RDHEOR 

0902 

P02E8 

OCOA 


ENQ 

10 

09 03 

P02E9 

5 8 DA 


RTJ^ 

CLRST2 

0 90 4 

P02EA 

58D1 


RTJ^ 

CLR8SF 

090 5 

P02EB 

0FC4 


ALS 

4 

0906 

P02EC 

012E 


SAP 

FNDBFR---1 

0907 

P02ED 

E8D4 


LDQ^ 

FILEMK 

0 90 8 

P02EE 

315C 


SQN 

FN38FR-^-l 

0909 

P02EF 

C8B8 


LOA^ 

8UFR+2 

0910 

PD2F0 

09FE 


INA 

-1 

0911 

P02F1 

0 116 


SAN 

SKIPF2-^-l 

0912 

P02F2 

0 AOB 


ENA 

11 

0913 

P02F3 

58D0 


RTJ» 

GLRST2 

0914 

P02F4 

58DE 


RTJ» 

SETBSF 

0915 

P02F5 

58E4 


RTJ- 

INCADR 

0916 

P02F6 

58D2 


RTJ^ 

RDHEOR 

0917 

P02F7 

18 88 


JMP- 

FINISH 

0918 

P02F8 

0 ADI 

SKIPF2 

ENA 

1 

0919 

P02F9 

68C8 


STA- 

FILEMK 

092 0 

P02FA 

18 85 


JMP^ 

FINISH 

0921 

PO 2FB 

0FC3 

FNDBFR 

ALS 

3 

0922 

P02FC 

0123 


SAP 

NOTFND-^-1 

092 3 

PO 2FD 

QA12 


ENA 

18 

092-, 

P02FE 

18 00 


JMP 

TPM ERR 


P02FF 

FEF4 




0925 

P03G0 

OCOB 

NOTFND 

ENQ 

11 

0926 

P03D1 

58C2 


RTJ- 

CLRST2 

0927 

PQ302 

0 8 42 


CLR 

Q 

0928 

P0303 

4 8 BE 


STQ^ 

FILEMK 

0929 

P0304 

58D5 


RTJ» 

INCADR 

0 9 3 J 
0931 

PQ5u 5 

18E1 


JMP^‘ 

SKI = F 
RDHEOR 

0932 

PG 30 6 

58C2 

BKSPF 

RTJ^ 

0933 

P03G7 

0CO8 


ENQ 

8 

0 93 4 

PU3G8 

p 8 tiB 


R T 

CLRST2 

0 9 3 5 

P03G9 

0FC4 


ALS 


0936 

P03Q A 

0128 


SAP 

FDBEFR-^-1 

09 3 7 

P03C6 

OCOB 


ENQ 

11 

0938 

P030C 

58B7 


RTJ- 

CLR3T2 

0 939 

P030D 

E8B4 


LDQ^ 

FILEMK 

0940 

P030E 

0144 


SQZ 

FOBEFR-^-1 

0941 

P03GF 

58C3 


RTJ» 

SET3SF 

0942 

PO 310 

OCCO 


ENQ 

0 

0943 

P0 311 

48 BO 


STQ^ 

FILEMK 

0 9 4*, 

P0312 

1828 ■ 


JMP» 

FINSH 

0 9 45 

PQ313 

58A8 

FOSE- R 

RTJ-s^ 

CLR8SF 

0946 

PG314 

0FC5 , 


ALS 

5 

0947 

P0315 

0121 


‘■SAP 

NTFOND-^-1 

0948 

P0316 

1824 


' JMP’f- 

FINSH 

0949 

PQ317 

5896 

NT FOND 

' RTJ^ 

DEGAOR 

0950 

P0318 

OCOl 


ENQ 

1 

0951 

0952 

PG319 

48 A8 


STQ^ 

FILEMK 

P031A 

18EB 


JMP^ 

BKSPF 



date: 01/27/99 


READ AND CHECK HEADER OF CURRENT RECORD. 
CLEAR LOAD POINT BIT (10) 

IN STATUS WORD. 

CLEAR BACKSPACE FILEMARK BIT AND FLAG 
WAS A FILE MARK FOUND 
NO, CHECK FOR END OF WRITTEN DATA 
YES, DID WE FIND 

IT ON LAST QPERATION . 

NO, CHECK FOR SHORT RECORD 
IS SIZE OF NEXT RECORD 
LESS THAN 2? 

YES, CLEAR FILE MARK BIT (11) 

IN STATUS WORD. 


INCREMENT THE ADDRESS 
READ AND CHECK HEADER OF CURRENT 
GET NEXT REQUEST 
NO , SET 
IT NOW, 


GET NEXT REQUEST 

ARE WE AT THE END OF WRITTEN DATA 


NO, ADVANCE 10 NEXT RECORD 
YES, SET ERROR CODE = 18 

TO INDICATE END OF WRITTEN DATA. 


CLEAR FILE MARK BIT (11) 

IN STATUS WORD. 

CLEAR FILE MARK 
FOUND FLAG. 

INCREMENT MM POINTER TO NEXT RECORD 
CHECK AGAIN FOR FILE MARK 


READ AND CHK HOR OF CURRENT REC. 

CLEAR END OF WRITTEN DATA BIT (8) 

IN STATUS WORD. 

WAS A FILE MARK FOUND 

NO, CHECK IF WE ARE AT LOAD POINT 

YFS, CLEAR FILE MARK BIT (11) 

IN STATUS WORD. 

DID WE FIND IT 

ON LAST OPERATION. 

YES, SET BACKSPACE FILEMARK BIT AND FLAG 
CLEAR FOREWARD 
FILEMARK FLAG. 

GET NEXT REQUEST 

CLEAR BACKSPACE FILEMARK BIT AND FLAG 
ARE WE AT THE LOAD POINT 
NO 

GET next request 


DECREMENT MM POINTER 

SET FILEMARK ON LAST OPERATION IN CASE WE 
BACKED UP TO AN END OF FILE 


CHECK AGAIN FOR FILE HARK 


M330Q901 
M 33 0 0 9 0 2 
M33u b 90 3 
M3300904 
M 330 0 905 
M330090& 
M333Q907 
M33Q 0908 
M3300909 
M 330 0 910 
M 33 DO 911 
M3300912 
M350U913 
M 33 0 0 91 4 
M33G 0 915 
M3300 916 
M330 0 917 
M3300 918 
M 33 0 0 919 
M33QG92D 
M33u 0921 
M3300922 
M33U0 32 3 
M330 0924 

M33G 0 925 
M333 0 926 
M330 0 927 
M3300928 
M33 0 0929 
M3 30 0 93 0 
M33uQ931 
M330 0932 
M33GQ933 
M33 u093h 
M 330 0 93 5 
H33Q 0936 
M330 0937 
M330 0938 
M33D 0939 
M3300940 
M330 0941 
M33QQ942 
M3300943 
M3300944 
M3300945 
M3300946 
H3300947 
M 33 0 0 94 8 
M3300949 
M33C 0350 
H3300951 
M33Q0952 


I 

o 

C) 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

C) 
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date: 01/27/99 


PliGlB 
P031C 
P0310 
-P031E 
P031F 
PG 320 
P0521 
,P0 322 
P0323 
P0 32 4 
PD325 
P032& 
P0327 
PG328' 
P0329 
PO 32A 
P032B 
P0 32C 
P032D 
PO 32E 
P0 32F 
P0330 
P0331 
P0332 
P0 333 
P u 334 
PO 335 
P035& 
P0337 
P0338 
P0339 
PG 33 A 
p n j r-^ R 


58A0 
OCOA 
58A6 
0FC4 
0 12A 
E8A1 
0158 
C800 
FF84 
0 9FE 
0107 
OCOl 
48 9A 
5893 
1811 
0FC3 
0121 
180E 
OCOB 
5895 
OGOO 
4891 
58 8A 
58 A7 
5 895 
CIGC 
OFCs- 
0 123 
5 8 9B 
0 COB 
5 8 8A 
18 0 0 
FFFf) 


0 3 3G 


■SKIP? RTJ^ ROHEOR 
ENQ 10 
RTJ- CLRST2 
ALS 4 

SAP NFILMK-^-1 
.LOa^^ FILEMK 
SUN NFILMK-^-1 
LOA 8UFR+2 


^ INA 
■ SAZ 
. ENQ 
• STQ^ 
RT 

JMP^ 

NFIL8K ALS 
SAP 
JMP^ 

ADVREC ENQ 
RTJ^ 
ENQ 
STQ^ 
RTJ^ 
RTJ^ 
RTJ'-- 
LDA- 
ALS 
SAP 
RT 
ENQ 
RTJ^ 

FINSH JHP 


ADVREC- »-l 
1 

FILEMK 

CLRBSF 

FINSH 

3 

ADVREC-^-1 

FINSH 

11 

CLRST2 

0 

FILEMK 
CLRBSF 
INCADR 
RQHE3R 
ESTAT2, 1 

FIN3H-^-l 

SETBSF 

11 

CLRST2 

tpctlp 


:NnPVP ( - ) 


RFAO AND CHECK HEADER OF CURRENT RECORD 
CLEAR LOAD POINT BIT (10) 

IN STATUS WORD 
WAS A FILE HARK FOUND 
NO, CHECK FOR END OF WRITTEN WORD 
YES, DID WE FIND IT ON LAST OPERATION 
YES, CHECK FOR END OF WRITTEN DATA 
NO, CHECK FOR SHORT RECORD 

IS SIZE OF NEXT RECORD 
LESS THAN 2? 

SET IT NOW 

CLEAR BACKSPACE FILEHARK BIT AND FLAG 

GET NEXT REQUEST 

CHECK IF END OF WRITTEN DATA 

NO, ADVANCE TO NEXT RECORD 

YES, DO NOT ADVANCE ANYPSORE 

CLEAR FILE HARK BIT (11) 

IN STATUS WORD 

CLEAR FILE MARK ON LAST OPERATION FLAG 
CLEAR BACKSPACE FILEHARK BIT AND FLAG 

READ AND CHECK NEW HEADER 

GET STATUS WORD 

WAS A FILE MARK FOUND 

NO, GET NEXT REQUEST 

SET FILE MARK ON BACKSPACE FILE 

CLEAR FILE MARK BIT (11) 

IN STATUS WORD 
G-T NtiXi PcQUhST 


THIS IS THE LE-;NGTH OF THF OkIVFP 


M3300953 
M3300954 
M33Q0955 
H3300956 
M3300957 
M3300958 
M3300959 
M333 0960 
M33QiJ961 

M33C0962 
M3300963 
M 330 096 4 
M33Q0965 
M333 0966 
M3300967 
M33QQ968 
M3300959 
M330 0970 
M 3^0 0 971 
M330 0972 
M3300973 
M35D 0974 
M 333 0 975 
H33G 0976 
M330 097/ 
M330 0 978 
M 33 0 0 97 9 
M333 0980 
H 33 00 981 
M 33 J 098 2 
M33 0 0 98 3 


t'1 3 3 j 0 9 S : 
M i 3 V 0 98 6 
M 3 3 j 3 98? 
M330 0 988 
M 33 3 0 989 


Q35C 


82 8 ) 


0 0 0 0 ( 


o 
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Q 


o 

- 9 U I V 

A L E N 

C E S 








C) 

OFF. LINc 

MAHE 

VALUE 


RtFEREND 

ED AT 

LIN:: 

NUMBER 



J j G 0 

1 

J CEE 

( G;-u255) 

u X b J 9 

G 19 8 , 

U 2 *J 2 ^ 

0 2:1, 

L 'J — ^ 

U F/ Li ^ 


G 07 - 

AFNR 

Q 0 B 5 

(000181) 

0 20-, 

0 5 0 2, 

0 515 





U L- ! "2 

ACMPRQ 

u 0 B G 

(000132) 

0 t*97 
3 2 01 , 







G G 7 6 

ADISP 

u 0 A 

(UGiJ(^34) 

G 612 






0 0 { 7 

A H 0 N I 

OOF 4 

( 0 0 3 2^-r) 

0 6 0 4, 

0 6h6 






0155 

ELU 

0 0 0 5 

( Q0QG05) 

0 6 30 , 

0 652 





o 

015 6 

EPTR 

0 0 0 6 

(000006) 

0266 





0 634 

0 15 7 

ESTATi 

u u 0 9 

(000009) 

0 296, 

0 469, 

0472, 

0481, 

0 48 4 , 


0158 

ECCOR 

u 0 0 A 

( 0 0 0 0 1 D ) 

0 283 , 

G 294, 

0638 





0 159 

ELSTWO 

GOOD 

( OugOII) 

0 287 , 

0^.75, 

0639 



C 2-- 


G 160 

ESTAT2 

u 0 0 c 

( 0 G 0 0 1 2 ) 

0 2 0 5 , 

u 212 , 

0213, 

:232, 

0 24 1, 




1 8 0 0 , 

G 3 6 5, 

C 8 o 7 , 

0 978 




0 161 

EDS KLU 

u 0 1 G 

( 03 0016) 

0 5 95 







0162 

EOS MSB 

0011 

(000017) 

0 21? , 

0 321, 

0373, 

0 394, 

0 410, 

G 431 


0 1 o 6 

EDSLSB 

0 0 12 

(000018) 

0219 , 

0 319, 

0 0 7 f 

0396, 

0 *-i 2 , 

0 433 


G 16i^ 

EDSTRl 

0013 

( 0uQQ19) 

] 21o , 

0747 

0 7 -»5 





0 1 D 5 

EDSTR2 

o0l4 

( 000320) 

u 2 1 -t ^ 

0218, 





0 16 6 

EDLSTl 

0 015 

(000021) 

0 2^6, 

0326 






0 1 67 

FDLST2 

G U i b 

( 0 0 ! j G 2 2 ) 

0 220 , 

Q 22 7, 

U ^^) ^ 4- 





0166 

ENEXT 

0 017 

( 00jD23) 

0 5 03 







C 1 7 6 

LPMSK 

0 u u 2 

{ u G 0 0 J 2 ) 

0 2 07 , 

G 2?-, 

0 269, 

0 2 79, 

0 3 2 3 , 

0 o5 3 


D I7w 

MZERO 

L c i 2 

( 00 jul8) 

3 55 7, 

]^3r , 

J 7 u o 




r\ 

0 17 5 

ZERO 

0 J 2 2 

( JO J J 3^) 

J 2 s 7 , 

: ---2, 


-J o 



'■j 

017 6 

ONE BIT 

•J G 2 S 

{ G 0 J 0 3 5) 

J 2 *,'3 . 

0 2 r: 6 , 

y 297, 

0 vj b u » 

U 2 i 1 , 

J - / 1 


0177 

ZKORIT 

J U 0 o 

( u ^ J 0 5 1 ) 

J - i" J , 

0 52 8 , 

u 'T ? 

y 8 c 'j 




1^1 

o 


o 




O 

o 


. : 3 9 , 

u o 0 1 , 

'J ul ‘S' t 

0 2 4 -f 





V: 

0637, 

Q 55 5 , 

G b5 3 






w 

u337. 

0 342 , 

w 40 4 ^ 

0 473 , 

u52 7 , 

0 5 5 L , 

0 694, G7y4, 

y7?'D, .792 

o 

0 5 9 7, 
0599, 

074 8, 
0 7-0, 

0848 , 
0 844, 

0 6 5 1 , 
C 8 5 1 , 

089o 
0893 , 

0897 



o 

0 2 48, 

G 20 2 , 

G39y , 

Q d3 5 , 

0 c 7 2 , 

0690 , 

C841, 0846, 

1887, 089: 

o 

C: 29, 

u 6 (' , 

« 7 L i • 

f 7 :• J , 

G 8 2 2 




. o 


o 

o 

o 

o 

o 

r^ 


RMTSIH 

PaGE ?q 

date: G 1/2 7/9 9 

' C 

Y fl B 0 L S 



; C 


DEF . LINE 

MAME 

address 

REFERENC 

ED AT 

LINE NUMBER 



' O 

C u 6 5 

IMTSIH 

0015 

0 0 65 ? 

0184, 

u 196 




D 1 83 

START 

uOO 0 

1184, 

0187, 

0190, 0193 




G2G2 

CHECK 

OGIA 

J 2 0 Q , 

0-98 




' 

G 2C 6 

PSTl 

OOIF 

0 5 07 





G 211 

PST2 

u t 2 3 

1208 






G 2 2 & 

PST2A 

Q03>i 

0 22 5 






G 2 29 

PS F3 

0 0 3 5 

u 2 0 9 





- C) 

G 2 3 7 

PST3A 

0 0 3 E 

9 2 34 






C 2^1 

PST-r 

0 0^3 

0 2 58 






G 2^-8 

CKHDR 

uo 

0 2 473 






0 252 

NORIMG 

uO-rF 

0 249 





p;. 

0 2b 6 

RQS TCK 

0 0 6 3 

3 247 , 

0 2 5 5 





0 2 7 3 

MOHOTN 

u 0 6 B 

3 2 71 






0 275 

GAL ADD 

006C 

0 215 , 

li 221, 

0 280 




G 282 

GOCYL 

Q07S 

0 2 0 5 





o 

0 28 7 

RDWRIT 

Ou 75 

3 273 





, 

3 291 

RDGOl 

0 0 79 

0289 






D 3ti n 

WRITRQ 

0082 

0298 






C 3C 5 

WRITOK 

Q088 

0 302 



0-51 , 

C670, 0741, 0819 

: O 

J 31C 

FHFND 

0G8G 

J 2 30 , 

0 25F, 

0^3 3 J 

0 311 

ERFLAG 

0 0 30 

0 251 , 

0 2 p — , 

0 I? *4 U 




u i j, 8 

WRITE 

&C8E 

13 06 , 

0397, 

0811 




C325 

WRI T1 

0 0 9 5 

g 322 





■ o 

G 32 9 

OVERFL 

0 0 99 

3 3 56 





C3 5? 

W R I T 2 

C C 9 E 

a 32 7 






G 3 3 7 

WRT G 

00 A2 

0 3 2 3 , 

U o J' * 





■J A* G 

WER RO R 

0 u A 5 

v.l' C» 





■ o 

C 341 

WRTl 

0 0 A 7 

0 5 38 






C 3 ‘5 ' j 

WR TDl 

C g Q2 

0 0 48 






C ,^5? 

WRTA 

C u Fi 4 

ij 0 4—, 

G .5 ^ 





J 3b Q 

wrtai 

0 U C b 

9 3 5 5 


0 359 



• o 

0 3 6 2 

WRTS 

0QC3 

0 3 49 , 

0 55 1, 




0 -*C G 

TMPMSB 

OOFc 

0 3 7b, 

0 393, 

U 1 1 ? 0 4 >3 u 




u «C1 

THPLS8 

0 0 F 7 

J 376, 

U 3 9b, 




; O 

] ^0? 

NUMRQS 

U0F8 

3 2 91 , 

0 4b 7 


0 42 3, 

0426, C810 

u hG 3 

MUMWDS 

0QF9 

0 292 , 

ii 3 6 4 , 

Q385» Q3B7» 

0 0 4 

3TRTCO 

OCFA 

0 295, 

0383, 

0 ^27 1 0 440^ 

0 47 H- , 

0 80 7 


0 i*10 

READ 

U OFB 

0 2 99 , 

0 ,5 2 




■ o 

C 426 

RCBIGR 

bill 

0 h24 





C -+27 

RDl 

0112 

0425 





0-38 

FHFCND 

OllF 

0 -3o 





o 


o 


o 

C) 

o 

o 

Q 

n 

O 

o 

o 

o 

o 

o 

o 



DMT3IM 


p A G t 3 0 



UATE 

G -:-6 

EFCLR 

G12B 

G -r09 




G -52 

EOFCLR 

0135 

3 437 , 

0443 



0^5 8 

EOD 

0 1 3 B 

E 455 




0 -T 6 4 

REXTl 

015E 

0 44y 




0^66 

REXIT 

0140 

0 457 




0 478 

NSHORT 

0 15 G 

0 468 




Q “I-8 5 

WEXIT 

0159 

Li 3 0 7 , 

Q48G 



D 48 8 

WEXTl 

G 15 D 

0 436 




0 497 

EXIT 

0162 

0 7 42 




0 499 

CYCLE 

U165 

0282 , 

0649 



u ^ 0 3 

CYCLEl 

0169 

0 511 




0 " u 8 

CYCLE? 

Gl&F 

0 5 0 5 




0 512 

CYCLES 

0173 

3 510 

0 48 5 , 

Q-,39 


0 522 

I NCFLG 

017E 

0 4 0?, 

0 5 0 9 

0 52 3 

TEH P 

0 1 7 F 

0 199, 

3 2 0 3, 

j 

0 ? 2 6 

SETST2 

ul8G 

0 33 0 , 

0 50 0 , 

0 531, 

0 5 -r4 

0 oZb 

HDRTST 

0186 

0 418, 

3 543 , 

0 57-r , 

0 3 7 5 

0 54 0 

HDRERR 

3184 

0 ? 5“>- , 

0559, 

0 S 0 4 , 

0 5/2 

G 5 4u 

hercal 

018F 

0 5 42 




0 ??-t6 

OKI 

ul92 

3 538 




G 55 3 

0K2 

019 7 

3? 49 




3 55 8 

0K3 

0199 

0 552, 




G 5 o 0 

0K4 

019F 

Q 553 




j 562 

OKS 

ulAl 

0 5 55 




G 5 b 5 

0K6 

0 1 A 5 

0 6 53 




G5 71 

3K7 

GIAC 

0 567 

0571 



G 57 3 

OKS 

01 A E 

0 5 70 , 

u 581 , 

0874 

0 380 

RDISK 

QIBG 

0 417, 

0429, 

0 5 85 

WOISK 

018 6 

0 264 , 

0 38 C, 

0 386, 

0 392 

0587 

3TREG 

01B9 

0 5 84 




0 60 5 

REQ 

OICA 

0 594 




0 O 0 D 

COMP 

OICE 

0139 




G 60 8 

LU 

GICD 

u 5 96 , 

0 616 



0 6 09 

NUHB 

OICE 

0 58 7 

0 3 79, 

0 3 84, 

0 391 

i o 1 G 

t3UFA0R 

OIGF 

3 2o3, 

0611 

HMADR 

0 lOG 

0 593, 

u 6 0 G 



U 1 ^ 

CMPL 

0103 

0187 , 

0 0 D t'o 



G6 2C 

SA VFI 

0108 

} o 0 2 , 

0 c 1 4 



G 522 

lOEPR 

0109 

0517 


0459, 

0 5 4o 

U o 3 u 

ERROR 

GiOE 

0 30 4, 

0 34 G , 

C u 4 4 

EREXIT 

GIED 

0 559 
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